OLE WORD Textmarke
1 Beitrag
•
Seite 1 von 1
1 Beitrag
Seite 1 von 1
Hallo,
ich habe eine WORD-Vorlage mit den Textmarken 'TM1' und 'TM2' angelegt.
Diese möchte ich nun aus einem ABAP heraus anspringen und Texte einfügen. Leider funktioniert der Ansprung überhaupt nicht. Die einzufügenden Texte werden immer an den Beginn der ersten Zeile des Dokuments gestellt.
Die gefundenen Verweise haben mir leider auch nicht weiter geholfen.
Mit WORD.APPLICATION öffnet sich WORD gar nicht.
Ich verwende WORD 2010 in einem 731er System.
Anbei mein Coding.
Kann mir hier jemand weiterhelfen?
Viele Grüße
Kerstin
ich habe eine WORD-Vorlage mit den Textmarken 'TM1' und 'TM2' angelegt.
Diese möchte ich nun aus einem ABAP heraus anspringen und Texte einfügen. Leider funktioniert der Ansprung überhaupt nicht. Die einzufügenden Texte werden immer an den Beginn der ersten Zeile des Dokuments gestellt.
Die gefundenen Verweise haben mir leider auch nicht weiter geholfen.
Mit WORD.APPLICATION öffnet sich WORD gar nicht.
Ich verwende WORD 2010 in einem 731er System.
Anbei mein Coding.
Code: Alles auswählen.
REPORT z_word_textmarke.
TABLES: sscrfields.
*
* OLE-Definitionen der SAP
INCLUDE ole2incl.
INCLUDE excel__c.
*
DATA: h_word TYPE ole2_object.
*
PARAMETERS: p_dotfl LIKE rlgrap-filename OBLIGATORY. "Formatvorlage
*-----------------------------------------------------------------------
START-OF-SELECTION.
*
CREATE OBJECT h_word 'word.basic'.
CALL METHOD OF
h_word
'AppShow'.
* Dokument auf Basis der Vorlage erstellen
CALL METHOD OF h_word 'FileNew'
EXPORTING
#1 = p_dotfl.
* Textmarke anspringen
PERFORM goto_textmark USING 'TM1'.
CALL METHOD OF h_word 'Insert'
EXPORTING
#1 = 'Text1'.
* Textmarke anspringen
PERFORM goto_textmark USING 'TM2'.
CALL METHOD OF h_word 'Insert'
EXPORTING
#1 = 'DUMMY'.
END-OF-SELECTION.
************************************************************************
*---------------------------------------------------------------------
* Form GOTO_TEXTMARK
*---------------------------------------------------------------------
FORM goto_textmark USING p_tmark.
DATA: txtmark(255) TYPE c.
*
txtmark = p_tmark.
CALL METHOD OF
h_word
'EditGoto'
EXPORTING
#1 = txtmark.
ENDFORM. " GOTO_TEXTMARK
Viele Grüße
Kerstin
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Seite 1 von 1
Vergleichbare Themen
Frage die ABAP Experten
Über diesen Beitrag
Kerstin
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.