Salve a tutti.

uso questo codice, che funziona, per creare un documento word, ma non riesco a farlo funzionare per scrivere le pagine aggiuntive dopo la prima...ci vorrebbe un comando del tipo addnewpage che non riesco a trovare....qualcuno mi può aiutare. Grazie.


Dim objWordApp As Word.Application
.......................
objWordApp = New Word.Application
......................
Dim objDoc As Word.Document
'Show the Word application window if checked.
'objWordApp.Visible = IIf(chkShowWord.Checked, True, False)

'Open an existing document.
objWordApp.Documents.Open(filewordgen) '("C:\Sample.doc")

objDoc = objWordApp.ActiveDocument
Do Until EOF(numin)
.............
.............
objDoc.Content.Find.Execute(FindText:=elsost(0), ReplaceWith:=elsost(1))
.......................
.....................
Loop
'Save and close the document.
objWordApp.Documents.Item(1).Save()
'MsgBox("Replaced all instances of 'VB' with 'Visual Basic Express' " & _
'"and saved the document")
objWordApp.Documents.Close(Word.WdSaveOptions.wdDo NotSaveChanges)
objWordApp.Quit()
objWordApp = Nothing
System.Diagnostics.Process.Start(filewordgen)