BuildDocFromSections secundário ()
wdApp não ofuscante como Word.Application
docNew não ofuscante como Word.Document
docSource não ofuscante como Word.Document
Sourcesections não ofuscantes como a variação
Escurecer i como o inteiro
Escurecer o bNewInstance como bôoleano
'tentar usar um exemplo existente da palavra
No resumo do erro em seguida 'suprimir o relatório de erro
Ajustar o wdApp = o GetObject (, “Word.Application”)
No erro 0 empreendedores 're-enable o relatório de erro
Se o wdApp não é nada então
'Exprimir o funcionamento, assim que criar um exemplo novo
Ajustar o wdApp = o CreateObject (“Word.Application”)
wdApp.Visible = retificam 'opcional. O código ainda trabalhará com aplicação escondida
o bNewInstance = retifica
Terminar se
sourcesections = disposição (2, 6, 8)
Ajustar o docSource = o wdApp.Documents.Open (“C:\MyFolder\MyTemplate.dot ")
Ajustar o docNew = o wdApp.Documents.Add
Para i = 0 a 2
docSource.Sections (sourcesections (i)). Range.Copy
docNew.Bookmarks (“\ EndOfDoc”). Range.Paste
Em seguida i
wdDoNotSaveChanges de docSource.Close
'Excepto o novo documento e a aplicação próxima a menos que já estiver funcionando
docNew.SaveAs “C:\MyFolder\MyNewDoc.dot”
Se bNewInstance então
wdApp.Quit
Terminar se
Terminar o submarino
|