Daten aus Excel in Word/PDF exportieren

[schauan]

Hallöchen,

die Meldung ist ja äußerst aussagekräftig :15: Da hat BillyBoy wohl doch noch Geheimnisse

[AlterDresdner]

Hallo Martina,
genau diese aussagefähige Fehlermeldung bekomme ich auch, wenn irgend etwas offen ist.
Also: MeinBeispiel.docx (von früher) und MeinBeispiel.xlsm (neue Anlage unten) in ein Verzeichnis stecken und MeinBeispiel.xlsm öffnen, Makro starten.
Ergebnis sollte ein offenes PDF und Dateien erg.doc, temp.doc und ablauf.txt in diesem Verzeichnis sein.
Wenn das so nicht ist: Excel schließen und ablauf.txt im Forum posten (oder mir Zugang auf Deinen Rechner per Teamviewer geben).

Welche Office-Version hast Du?

[MartinaS]

Hallo, 

vielen Dank für das Update. Ich verwende Office 365. Ich habe es auch mal auf meinem Laptop versucht, aber es passiert dasselbe: 

Code:

"Word offen"
"Varianten: 4"
"Textmarke: M1"
"Textmarke: M2"
"Textmarke: M3"
"5: MeinBeispiel.docx"
"Textmarken ersetzt: 5"
"erg erstellt: Microsoft Word"
"4: MeinBeispiel.docx"
"Textmarken ersetzt: 4"

[AlterDresdner]

Hallo Martina,
dann stirbt er in dem Else-Zweig und vermutlich an dem .Windows("erg.docx").Activate aus Gründen, die man möglichenfalls in Excel365 rausfinden könnte,
ich mit meinem 2010 bin dann leider raus.
Vielleicht findet sich ein Anderer mit 365, der hier weitermachen kann und will.
Viel Erfolg wünscht der AlteDresdner

[schauan]

Hallöchen,

das Window muss nicht unbedingt aktiviert werden. Es könnte auch so gehen. WordErg wird hierbei aus der vorangehenden Zuweisung im If-Teil genommen. Ob das Ergebnis wie gewünscht ist, sei mal dahingestellt. Zumindest läuft es so durch.

With WordErg
.Goto What:=3, Which:=1, Count:=1
.Range.InsertBreak Type:=7
.Goto What:=3, Which:=1, Count:=1
.Range.InsertFile Filename:=ThisWorkbook.Path & "\temp.docx", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
End With

[AlterDresdner]

Hallo Andre,
schön, dass noch einer...
Läuft bei mir (2010) durch, bringt aber nur eine Seite statt der gewünschten 3 zustande, warum auch immer...

Habe das Problem bei Herber verlinkt angegeben
https://www.herber.de/forum/messages/1737950.html

[1Matthias]

Moin!
Also habe auch kein Ex365. Falls es aber an dem Zugriff auf Erg.xls liegt, hätte ich hier mal die Datei umgebaut. Damit läuft alles im Dokument und es werden keine zusätzlichen Blätter zum Zwischenspeichern angelegt. Die activate etc. entfallen damit. Der Code merkt sich die ersten beiden Blätter (oder auch nur das erste). Dort werden die Textmarken ersetzt und dann der Teil ans Ende kopiert. Zum Schluß wird der Anfang gelöscht. Die Ausgabe in die ablauf.txt habe ich gelassen.
Das .visible von Word habe ich rausgenommen. Wenn es drin war, hat mich Excel immer geärgert und wollte den Zwischenspeicher nicht löschen (zumindest mit cutcopymode, mit dataobject wollte ich nix einbauen) und somit die Word Instanz nicht killen. Ihr könnte ja mal testen, ob das hilft.
VG

[AlterDresdner]

Hallo Matthias,
endet bei mir (2010) mit dem bekannten Excelfehler.
Im Debugger zieht er sich bei Set WordDoc = Wordobj.documents.Open... in sein Innenleben zurück und "wartet auf das Ende einer OLE-Aktion".
Ich bin dann raus (und denke über ein neueres Excel nach )

[MartinaS]

Vielen Dank für eure Antworten! Ich hätte wirklich weder gedacht, dass das so ein schwieriges Problem ist, noch, dass sich so hilfsbereite Menschen finden. Ich bin euch wirklich sehr dankbar für euren Einsatz, aber leider funktioniert es so noch nicht.

@Schauan/AlterDresdner:
Wenn ich deine Variante einfüge, so wie es AlterDresdner gemacht hat, gibt es ja immernoch eine Zeile Wordobj.Windows("erg.docx").Activate, bei der das Makro abstürzt. Kommentiere ich diese aus, läuft es durch und erzeugt ein PDF, aber leider nur von der ersten Reihe, wie von AlterDresdner beschrieben.

@Matthias:
Auch deine Variante läuft bei mir leider nicht durch, in der Zeile "rseite.Copy" erhalte ich den Laufzeitfehler 4198.

Tut mir leid, dass ich selbst keine große Hilfe bin, aber das übersteigt meine Excelkompetenzen 

Viele Grüße 

MartinaS

[1Matthias]

Moin!
Habe eben mal bei mir nochmal getestet. Da läuft es fehlerfrei durch. Habe auch die 2010 Version. Wobei die fehlerhafte Zeile ja auch in eurem Ausgangscode schon mit drin war. Bis zu der Stelle hat sich nur geändert, dass ich 2 Variablen mehr habe und der Schleifenkopf davor entfallen ist. Ansonsten ist da alles gleich inkl. der Zeile. Mhm. Komisch.
VG