ABAP Word Zeilen löschen

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
5 Beiträge • Seite 1 von 1
5 Beiträge Seite 1 von 1

ABAP Word Zeilen löschen

Beitrag von Pfirsichbäumchen (ForumUser / 7 / 0 / 0 ) »
Hallo,

Ich möchte ein Word file mit ABAP updaten.
Es soll nach dem Wort ‘Hello’ gesucht werden und alle Zeichen nach diesem Wort gelöscht werden. Anschließend soll hier ein anderer Text geschrieben werden.

Beispiel für Input:

Line 1
Line 2
Hello
Line 4
Line 5
Line 6
Line 7

So sollte das Ergebnis aussehen:
Line 1
Line 2
Hello
New comment 1
Richtig? ☐

Wie become ich das hin?

Hier mein Anfangscoding

INCLUDE ole2incl .
SELECTION-SCREEN BEGIN OF BLOCK a40 WITH FRAME TITLE text-s02.
PARAMETERS: p_pfad TYPE trfile default 'D:\HelloTest1' .
SELECTION-SCREEN: END OF BLOCK a40.
data gd_pfad TYPE trfile.
* ole
DATA: h_word TYPE ole2_object ,
h_documents TYPE ole2_object ,
h_docs TYPE ole2_object ,
h_activedoc TYPE ole2_object,
h_bookmarks type ole2_object,
h_bookmark type ole2_object,
h_content TYPE ole2_object,
h_range type ole2_object,
h_selection TYPE ole2_object,
h_replacement type ole2_object,
h_font TYPE ole2_object,
h_find TYPE ole2_object.

CREATE OBJECT h_word 'WORD.APPLICATION'.
SET PROPERTY OF h_word 'Visible' = '0' . "1 für Test
* open document
CALL METHOD OF h_word 'Documents' = h_docs.
concatenate p_pfad '.docx' into gd_pfad.
CALL METHOD OF h_docs 'Open' = h_documents
EXPORTING #1 = gd_pfad .

CALL METHOD OF h_word 'ActiveDocument' = h_activedoc.
CALL METHOD of h_activedoc 'Activate'.

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


Re: ABAP Word Zeilen löschen

Beitrag von gtoXX (Specialist / 185 / 34 / 31 ) »
Zeichne Dir am einfachsten, das was Du machen möchtest mit Word-Makros auf, wenn Du die VBA Befehle nicht kennst.
Im Endeffekt werden per Ole einfach die entsprechenden Methoden ausgeführt.
"Code lügt nicht ^^"

Re: ABAP Word Zeilen löschen

Beitrag von Pfirsichbäumchen (ForumUser / 7 / 0 / 0 ) »
Hallo,
leider komme ich noch nicht so ganz zurecht. Mit den Word-Makros habe ich noch ein Problem:
Wie bekomme ich dieses Makro in mein ABAP-Programm?
Ich verwende dort schon grundsätzlich Makros, z. B.
define olewrite.
cALL METHOD OF gd_selection 'TypeText'
EXPORTING #1 = &1.

end-of-definition.
Dieses Makro funktioniert.

Wie muss ich das Delete-Makro nach ABAP übertragen?

' MakroDelete Makro
' Delete Text
'
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Für das Suchen hat er mir keine Makro-Aufzeichnung gemacht.
Sub MakroSuchen()
'
' MakroSuchen Makro
' Suche Wort
'
End Sub
Könnt Ihr mir da ein Beispielcoding für ABAP zur Verfügung stellen. Danke!

Re: ABAP Word Zeilen löschen

Beitrag von ewx (Top Expert / 4784 / 294 / 628 ) »
Schau mal hier:
http://www.tricktresor.de/blog/methoden-word/
Das hilft dir, die Visual-Basic-Befehle in ABAP zu übersetzen.
Ist allerdings nicht ganz trivial, weil du immer das passende Objekt erzeugen musst um dann dessen Methoden aufrufen zu können.

Re: ABAP Word Zeilen löschen

Beitrag von Pfirsichbäumchen (ForumUser / 7 / 0 / 0 ) »
Hallo, den Link kenne ich schon. Damit bin ich leider nicht zurecht gekommen. Daher habe ich mich an das Forum gewandt.

Seite 1 von 1

Vergleichbare Themen

2
Antw.
2403
Views
Zeilen aus ALV Löschen
von moee » 12.03.2009 13:18 • Verfasst in ABAP® für Anfänger
2
Antw.
309
Views
Löschen von itab-Zeilen
von Patrick1982 » 08.07.2021 12:30 • Verfasst in ABAP® für Anfänger
6
Antw.
4446
Views
ALV Drucktaste zum Zeilen einfügen/löschen
von Ibiza90 » 27.08.2013 08:24 • Verfasst in ABAP® für Anfänger
2
Antw.
1665
Views
Markierte Zeilen aus einem ALV löschen
von meier0815 » 26.04.2004 13:49 • Verfasst in ABAP® Core
2
Antw.
2305
Views
Markierte Zeilen aus einem ALV löschen
von meier0815 » 23.04.2004 13:25 • 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 / 72
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 141