Question : Créer un nouveau document des sections d'un document templated

Salut les types, le

Can n'importe qui me montrent un exemple de la façon dont je peux dynamiquement créer un nouveau document de MS Word par programatically (using VBA) les sections spécifiques de saisie d'un document templated qui est coupé en sections prédéfinies. Laisse dire le calibre fait définir 10 sections. Je voudrais pouvoir créer un nouveau document qui a la section 2, suivi du
Is de la section 6 et de la section 8. ceci faisable ? Sinon using des sections alors je suis ouvert de l'autre suggestions.

Thank vous à l'avance pour n'importe quel contributions class= de

Réponse : Créer un nouveau document des sections d'un document templated

Voici une suggestion d'obligatoire tôt
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :

BuildDocFromSections secondaire ()
    Faible wdApp comme Word.Application
    Faible docNew comme Word.Document
    Faible docSource comme Word.Document
    Faibles sourcesections comme variante
    Obscurcir I comme nombre entier
    Obscurcir le bNewInstance comme booléen
        
    'essayer d'employer un exemple existant de mot
    Sur le résumé d'erreur après 'supprimer le reportage d'erreur
        Placer le wdApp = le GetObject (, « Word.Application »)
    Sur l'erreur 0 GoTo 'permettre à nouveau au reportage d'erreur
    
    Si le wdApp n'est rien alors
        'Exprimer le fonctionnement, ainsi créer un nouvel exemple
        Placer le wdApp = le CreateObject (« Word.Application »)
        wdApp.Visible = rectifient 'facultatif. Le code fonctionnera toujours avec l'application cachée
        le bNewInstance = rectifient
    Finir si
    
    
    sourcesections = rangée (2, 6, 8)
    Placer le docSource = le wdApp.Documents.Open (« C:\MyFolder\MyTemplate.dot ")
    Placer le docNew = le wdApp.Documents.Add
    Pour I = 0 à 2
        docSource.Sections (sourcesections (i)). Range.Copy
        docNew.Bookmarks (« \ EndOfDoc »). Range.Paste
    Après i
    wdDoNotSaveChanges de docSource.Close
    
    'Sauf le nouveau document et l'application étroite à moins qu'elle ait déjà fonctionné
    docNew.SaveAs « C:\MyFolder\MyNewDoc.dot »
    Si bNewInstance alors
        wdApp.Quit
    Finir si
Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us