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
|