mehrere Word-Tabellen befüllen
22.05.2023 15:24:12
krug96
Hallo Jochen,
ich hätte da doch noch eine Frage.
Ich habe den Programmcode in meine Umgebung übernommen. Dabei passiert folgendes:
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add(Vorlage_9960DE)
With wrdApp
.Visible = True
'Word in den Vordergrund bringen
.Activate
.Selection.HomeKey Unit:=wdStory
' .Selection.TypeParagraph
End With
Hier wird die Word-Vorlage kopiert und als neue Datei erzeugt. Dann werden u.A. Informationen wie z.B.
wrdDoc.FormFields("anzSeiten").Result = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)an das neue Word-Dokument übergeben. Danach wird die vorhandene Tabelle entsprechend kopiert, die Felder werden ausgefüllt.
'Tabelle kopieren (Anzahl der zu erzeugenden Tbellen)
wrdApp.ActiveDocument.Tables(18).Range.Copy
For Tb = 1 To iSelCnt1 + iSelCnt2 + iSelCnt3 - 1
'18te Tabelle kopieren
wrdApp.ActiveDocument.Tables(18).Range.Copy
With wrdApp
.Selection.EndKey Unit:=wdStory
'Abstand zwischen den Tabellen
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.Paste
End With
Next
und zum Schluss wird alles gespeichert und geschlossen.
'schliesst das Word-Dokument
wrdDoc.Save
wrdDoc.Close
'beendet Word
wrdApp.Quit
'löscht den Verweis auf das Word Objekt
Set wrdDoc = Nothing
Set wrdApp = Nothing
'Excelmeldungen einschalten
Application.ScreenUpdating = True
Das funktioniert aber nur einmal.
Führe ich das alles nochmals aus, dann kommt eine Fehlermeldung --> "Der Remote-Server-Computer exisitert nicht oder ist nicht verfügbar."
Er stört sich dann an dem Befehl
wrdDoc.FormFields("anzSeiten").Result = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)Damit das das nochmals ausgeführt werden kann, muss ich aus der UserForm raus und diese dann neu starten, damit das dann genau 1x wieder funktioniert.
Was könnte das sein?
Vielen dank für eine kurze Rückmeldung.
Grüße
Michael