Sub BuildDocFromSections ()
Schemerige wdApp als Word.Application
Schemerige docNew als Word.Document
Schemerige docSource als Word.Document
Schemerige sourcesections als Variant
Schemerige I als Geheel
Schemerige bNewInstance zoals Van Boole
'probeer om een bestaand geval van Word te gebruiken
Op Fout hervat 'onderdrukken fout daarna rapportering
Plaats wdApp = GetObject (, „Word.Application“)
Op Fout GoTo 0 're-laat fout rapportering toe
Als wdApp dan niets is
'Word die, leidt zo tot een nieuwe instantie lopen niet
Reeks wdApp = CreateObject („Word.Application“)
wdApp.Visible = Ware 'Facultatief. De code zal nog met verborgen toepassing werken
bNewInstance = Waar
Eind als
sourcesections = Serie (2, 6, 8)
Reeks docSource = wdApp.Documents.Open („C:\MyFolder\MyTemplate.dot“)
Reeks docNew = wdApp.Documents.Add
Voor I = 0 tot 2
docSource.Sections (sourcesections (I)). Range.Copy
docNew.Bookmarks („\ EndOfDoc“). Range.Paste
Volgende I
docSource.Close wdDoNotSaveChanges
'Sparen nieuw document en dichte toepassing tenzij het reeds liep
docNew.SaveAs „C:\MyFolder\MyNewDoc.dot“
Als bNewInstance toen
wdApp.Quit
Eind als
Sub van het eind
|