Word Dokument mit Wordvorlage aus ABAP erstellen
3 Beiträge
•
Seite 1 von 1
3 Beiträge
Seite 1 von 1
Anhand des Code hier viewtopic.php?t=18538 versuche ich aus einer Wordvorlage dotm-Datei ein Worddokument zu erzeugen.
Leider wird mir in Word nur ein grauer Bildschirm angezeigt.
Wenn ich mit "Open" statt mit "FileNew" arbeite, also so:
öffnet sich das Worddokument. Ist dann allerdings eine dotm-Datei und keine docx. Also keine neues Dokument.
Jemand eine Idee?
Code: Alles auswählen.
CREATE OBJECT p_worddoc 'Word.APPLICATION'.
GET PROPERTY OF p_worddoc 'Application' = wordapp.
SET PROPERTY OF wordapp 'Visible' = 1.
GET PROPERTY OF wordapp 'Documents' = documents.
CALL METHOD OF documents 'FileNew'
EXPORTING
#01 = p_path. "...Pfad zur dotm-Datei
CALL METHOD OF p_worddoc 'AppShow'.
* CALL METHOD OF documents 'Open'
* EXPORTING
* #01 = p_path.
GET PROPERTY OF wordapp 'ActiveDocument' = p_document.
Wenn ich mit "Open" statt mit "FileNew" arbeite, also so:
Code: Alles auswählen.
CREATE OBJECT p_worddoc 'Word.APPLICATION'.
GET PROPERTY OF p_worddoc 'Application' = wordapp.
SET PROPERTY OF wordapp 'Visible' = 1.
GET PROPERTY OF wordapp 'Documents' = documents.
* CALL METHOD OF documents 'FileNew'
* EXPORTING
* #01 = p_path.
*
* CALL METHOD OF p_worddoc 'AppShow'.
CALL METHOD OF documents 'Open'
EXPORTING
#01 = p_path.
GET PROPERTY OF wordapp 'ActiveDocument' = p_document.
Jemand eine Idee?
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
So, also das öffnen klappt, aber nicht wie gewollt.
Folgender Code:
Nun hab ich aber gelesen, dass Word.Basic veraltet ist und man was neueres nehmen soll. Vermutlich hat mein Vorgänger im Code daher "Word.Application" verwendet.
Somit die Frage, wie bekomme bei Word.Application die Vorlag als neu Datei auf?
Folgender Code:
Code: Alles auswählen.
CREATE OBJECT p_worddoc 'Word.Basic'.
CALL METHOD OF p_worddoc 'FileNew'
EXPORTING
#01 = p_path. "dotm-File.
CALL METHOD OF p_worddoc 'AppShow'.
Somit die Frage, wie bekomme bei Word.Application die Vorlag als neu Datei auf?
So hab's nach etwas VBA-Studium doch selbst gelöst bekommen:
Via "Word.Application".
Mit "open" öffnet man die dot(m)-Datei selbst und mit "add" macht man daraus ein Word-Dokument (docx).
Code: Alles auswählen.
FORM open USING p_path TYPE pathextern
p_pathz TYPE string
CHANGING p_worddoc TYPE ole2_object
p_document TYPE ole2_object.
DATA: wordapp TYPE ole2_object.
DATA: worddoc TYPE ole2_object.
DATA: documents TYPE ole2_object.
DATA: wordobj TYPE ole2_object.
DATA: documentv TYPE ole2_object.
CREATE OBJECT p_worddoc 'Word.APPLICATION'.
GET PROPERTY OF p_worddoc 'Application' = wordapp.
SET PROPERTY OF wordapp 'Visible' = 1.
GET PROPERTY OF wordapp 'Documents' = documents.
CALL METHOD OF documents 'add'
EXPORTING
#01 = p_path.
* CALL METHOD OF documents 'Open'
* EXPORTING
* #01 = p_path.
GET PROPERTY OF wordapp 'ActiveDocument' = p_document.
"Speichern des Dokuments
CALL METHOD OF p_document 'SaveAs' = documentv
EXPORTING
#01 = p_pathz.
GET PROPERTY OF wordapp 'ActiveDocument' = p_document.
ENDFORM.
Mit "open" öffnet man die dot(m)-Datei selbst und mit "add" macht man daraus ein Word-Dokument (docx).
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
3944
Views
Views
14
Antw.
Antw.
10703
Views
Views
1
Antw.
Antw.
2261
Views
Views
4
Antw.
Antw.
3724
Views
Views
Informationen in ein bestehendes Word Dokument einfügen
von sgevolker » 16.04.2009 09:50 • Verfasst in ABAP® für Anfänger
von sgevolker » 16.04.2009 09:50 • Verfasst in ABAP® für Anfänger
5
Antw.
Antw.
4312
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
msfox
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.