Da es evtl. ja auch bessere Wege gibt erst einmal eine kurze Erklärung:
Ich habe ein Dokument mit 10 Seiten, jede Seite hat mehrere Textfelder. Über ein Userform wähle ich aus, welche Seiten ich benötige. Je nach Kombination werden die Textfelder automatisch mit Text gefüllt.
Momentan löse ich das ganze mit:
ActiveDocument.Formfields("name").TextInput.Default="Text"
Wenn ich alle genutzten Felder gefüllt habe, drucke ich jede genutzte Seite einzeln über printout.
Jetzt sollen die genutzten Seiten aber editierbar werden. Also eine Art Vorschau erstellt werden. Das Ganze wollte ich mit einem neuen Dokument lösen, in das ich die genutzten Seiten kopiere und dann die Felder in dem neuen Dokument fülle. DAnn kann ich hinterher einfach über den Drucken-Dialog drucken.
mein Code zum kopieren einer Seite:
'oDoc=Application.activedocument
'nDoc=Documents.add(,,,false)
'x=Seite im Dokument
Documents(oDoc).select
activeDocument.computestatistics(wdStatisticPages)
Selection.goto what:=wdGotoPage, which:=gotoAbsolute, count:=x
Selection.goto what:=wdGotoBookmark, name:="\page"
Selection.copy
Documents(nDoc).select
activeDocument.computestatistics(wdStatisticPages)
Selection.goto what:=wdGotoPage, which:=gotoAbsolute, count:=activeDocument.Content.Information(wdActiveEndPageNumber)
Selection.goto what:=wdGotoBookmark, name:="\page"
Selection.paste
Das funktioniert anscheinend auch erstmal. Wenn ich aber jetzt mit
Documents(nDoc).select
ActiveDocument.Formfields("name").TextInput.Default="Text"
Die Felder im neuen Dokument füllen will, dann bleiben die leer.
Hat jemand eine Idee warum?
Gruß
Michael