Abap Word Ole Automation

Getting started ... Alles für einen gelungenen Start.
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

Abap Word Ole Automation

Beitrag von heffelONE (ForumUser / 2 / 0 / 0 ) »
Hallo Leute,

ich hätte zwei Fragen:

1. Weiß jemand die nötigen Befehle um die Kopf- bzw. Fusszeile über von Abap heraus zu setzen (durch OLE2incl) ?
Ich weiß, im Internet gibts einige Beispiele, jedoch habe ich davon diverse ausprobiert und keines davon scheint zu funktioniert.
Falls es also jemanden gibt, der weiß, wie man eine Kopf- bzw. Fusszeile durch die OLE WORD AUTOMATION erstellt, wäre ich sehr dankbar für eine brauchbare Antwort.

2. Gibt es eine Möglichkeit ein Inhaltsverzeichnis in Word aus SAP heraus zu erstellen ?

Viele Grüße

Andi

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: Abap Word Ole Automation

Beitrag von Tron (Top Expert / 1327 / 35 / 331 ) »
Moin.
zu 1:
*&---------------------------------------------------------------------*
*& Report ZWORD_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zword_test.
INCLUDE ole2incl .

*--Global variables
*--Variables to hold OLE object and entity handles
DATA gs_word TYPE ole2_object . "OLE object handle

DEFINE create_new_instance.
create object gs_word 'Word.Basic.8' .
END-OF-DEFINITION.

DEFINE appshow.
call method of gs_word 'AppShow' .
END-OF-DEFINITION.

DEFINE apphide.
call method of gs_word 'AppHide' .
END-OF-DEFINITION.

DEFINE filenew.
call method of gs_word 'FileNew'
exporting
#1 = 'normal.dot'.
END-OF-DEFINITION.

DEFINE fileopen.
call method of gs_word 'FileOpen'
exporting
#1 = &1.
END-OF-DEFINITION.

DEFINE filesaveas.
call method of gs_word 'FileSaveAs'
exporting
#1 = &1.
END-OF-DEFINITION.

DEFINE filecloseall.
call method of gs_word 'FileCloseAll'
exporting
#1 = 2.
END-OF-DEFINITION.

DEFINE editreplace.
*EditReplace [.Find = text] [.Replace = text]
*[.Direction = number] [.MatchCase = number]
*[.WholeWord = number]
*[.PatternMatch = number]
*[.SoundsLike = number] [.FindNext]
*[.ReplaceOne] [.ReplaceAll]
*[.Format = number] [.Wrap = number]

call method of gs_word 'EditReplace'
exporting
#01 = &1
#02 = &2
#03 = 0
#04 = 0
#05 = 0
#06 = 0
#07 = 0
#08 = 0
#09 = 0
#10 = 1
#11 = 0
#12 = 1.
END-OF-DEFINITION.

DEFINE font.
call method of gs_word 'Font' exporting #01 = &1.
call method of gs_word 'FontSize' exporting #1 = &2.
END-OF-DEFINITION.

DEFINE insert1.
call method of gs_word 'Insert' exporting #1 = &1.
END-OF-DEFINITION.

DEFINE viewheader.
call method of gs_word 'ViewHeader' .
END-OF-DEFINITION.

DEFINE closeviewheaderfooter.
*** Kopffenster wieder schließen
call method of gs_word 'CloseViewHeaderFooter' .
END-OF-DEFINITION.

DEFINE CharCol.
*Color Explanation
*0 (zero) Auto
*1 Black
*2 Blue
*3 Cyan
*4 Green
*5 Magenta
*6 Red
*7 Yellow
*8 White
*9 Dark Blue
*10 Dark Cyan
*11 Dark Green
*12 Dark Magenta
*13 Dark Red
*14 Dark Yellow
*15 Dark Gray
*16 Light Gray

* &1 = integer !!!
call method of gs_word 'CharColor'
exporting
#01 = &1.
END-OF-DEFINITION.


PERFORM create_instance.



*FormatPageNumber [.ChapterNumber = number] [, .NumRestart = number] [, .NumFormat = number] [, .StartingNum = number] [, .Level = number] [, .Separator = number]

*CALL METHOD OF gs_word 'FormatPageNumber'
* EXPORTING
* #01 = 0
* #02 = 0
* #03 = 1.




CALL METHOD OF gs_word 'InsertPageNumbers'
EXPORTING
#01 = 0
#02 = 1
#03 = 0.


* 0= header/1=footer

* 0=links/1=Mitte/2=rechts/3 Inside
* (left on odd pages and right on even pages)
* 4 Outside (right on odd pages and left on even pages)

* If 1, the field is included in the header or footer on the first page.


PERFORM close_instance.

EXIT.


*&---------------------------------------------------------------------*
*& Form create_instance
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM create_instance.
DATA lv_file(80).

create_new_instance.
appshow.

fileopen 'c:\temp\777.doc'.

filesaveas 'c:\temp\888.doc'.
ENDFORM. "Create_Instance

*&---------------------------------------------------------------------*
*& Form Close_Instance
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM close_instance.
DATA lv_file(80).

filesaveas 'c:\temp\888.doc'.
filecloseall.

* Word schliessen
CALL METHOD OF gs_word 'AppClose'.

FREE OBJECT gs_word.

ENDFORM. "Close_Instance
siehe auch http://www.tricktresor.de/blog/erzeugun ... dokuments/

lg Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.

Seite 1 von 1

Vergleichbare Themen

0
Antw.
1521
Views
ABAP OLE Automation / MS Outlook
von Lichynia » 19.06.2009 08:27 • Verfasst in ABAP Objects®
4
Antw.
2890
Views
ABAP und Word?
von ROL_ABAP » 13.12.2012 21:34 • Verfasst in ABAP® für Anfänger
1
Antw.
3102
Views
Word Dokument aus ABAP erstellen
von ROL_ABAP » 15.02.2013 13:24 • Verfasst in ABAP® für Anfänger
4
Antw.
2163
Views
ABAP Word Zeilen löschen
von Pfirsichbäumchen » 21.04.2017 17:32 • Verfasst in ABAP® Core
2
Antw.
1362
Views
Word Dokument mit Wordvorlage aus ABAP erstellen
von msfox » 19.09.2019 11:35 • Verfasst in ABAP® für Anfänger

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 4 Tagen von Lucyalison 1 / 71
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 141