Ich will hier den Inhalt von Text3 in eine Tabelle umwandeln.
Nochmal: Text3 entspricht hier dem letzten Absatz. Also hast du rStart = wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.start
Nachdem du die Variable gesetzt hast, kannst du deine Replacements durchführen, wodurch der Text in neue Absätze aufgespaltet wird. Danach machst du rEnd = wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.End
nun hast du Start und End deines Ranges mit dem du weiterarbeiten kannst.
Gruß Mr. K.
|