Word Macro

[nerd 28]

Hi,

 

hab ich schon mal erwähnt, dass ich VBA hasse? Leider bin ich gerade in einem Projekt bei dem es nun notwendig wird eine Funktion via VBA auszuführen um einen Fehler einer richtigen Anwendung temporär auszubügeln (ich hasse sowas - noch mehr als VBA ;) ).

 

Es geht darum, dass eine Anwendung ein Ergebnis in einer Word Tabelle ausgeben muss - leider erstellt die Anwendung hier nicht pro Datensatz eine neue Zeile einer Tabelle sondern eine Tabelle pro Datensatz :cry: Für den Fehler (externe Software) wird es auch kurzfristig keinen fix geben. Mein Ziel ist es jetzt also die ganzen Tabellen (siehe Anhang) in eine Tabelle zusammen zu führen. Von hand geht das recht einfach indem man die Zeilenumbrüche nach jeder Tabelle löscht. Nun meine Frage geht das auch mit einem Macro und zwar so, dass nur die Tabelle zwischen dem Start und Stop marker bearbeitet wird?

 

Viele Grüße

TEST.doc

[Wurschtl 10]

Hi nerd,

habs mir mal angeschaut... wenn du über

 

Suchen nach Absatzmarke mit Formatierung "Arial Schriftgröße 1"

 

(Ansicht auf 500% vergrößern - dann sieht mans wenn alle Zeichen anzeigen eingeschaltet ist)

 

gehst ist das schon mal ein Teil der Lösung. Das nur der Bereich zwischen Start und Ende bearbeitet werden soll müsste glaube ich über VBA mit Bereichsdefinition gelöst werden - aber sicher bin ich nich -

Gruß Wurschtl

[nerd 28]

Hi,

 

Danke für die Antwort. Ich hab meine Abneigung gegenüber VBA zwischenzeitlich überwunden und eine Lösung für das Problem gefunden:

 

Sub merge()

   Dim r As Range
   Set r = ActiveDocument.Range
   With r.Find
   .ClearFormatting
   .Text = "###FIND_ME###^p^p"
   .Replacement.Text = ""
   .Forward = True
   Do While .Execute = True
       With r
           .Delete
           .Collapse 0
       End With
   Loop
   End With
End Sub

 

Viele Grüße