Hallo zusammen!
(Hoffe, bin hier im richtigen Forum)
Ich habe aus anderen Beispielen und Vorlagen folgende Sub in einem Makro erstellt:
Das funktioniert eigentlich soweit nicht schlecht, allerdings wird beim Aufruf (siehe unten) die Zeilenschaltung beim Suchmuster nicht erkannt und deshalb der gesamte restliche Text gelöscht.
Text-Beispiel:
Nun versuche ich die "Zeile drei..." (wobei nur der Anfang der Zeile bekannt ist) aus diesem Text mit Aufruf von
durch eine Zeilenschaltung zu ersetzen.
Im Manual, welches ich hier gefunden habe, heisst es, dass man mit ".*" (Punkt=beliebiges Zeichen mit Ausnahme von CR!, und Stern=beliebige Anzahl an Vorkommen, quasi den Rest bis zum Zeilenende - in diesem Fall durch eine Zeilenschaltung - ersetzen könne.
Tatsächlich wird mir aber der ganze folgende Text weggelöscht, also auch die Zeile vier, was nicht erwünscht ist.
Wer kann mir helfen, am liebsten mit RegExp Zeile drei wegzubekommen, aber NUR diese Zeile?
Im voraus besten Dank für jeglichen Input!
(Hoffe, bin hier im richtigen Forum)
Ich habe aus anderen Beispielen und Vorlagen folgende Sub in einem Makro erstellt:
Quellcode
- Sub ksaRegExp(strPatternA As String, strPatternB As String)
- patt = strPatternA
- Set re = CreateObject("VBScript.RegExp")
- re.Global = True
- re.IgnoreCase = True
- re.Pattern = patt
- Selection.WholeStory
- With Selection
- Set mc = re.Execute(Selection.Text)
- For Each mi In mc
- Selection.WholeStory
- Selection.Find.Execute mi.Value, False, False, False, False, False, True, wdFindAsk, False, strPatternB, True, False, False, False, False
- Next
- End With
- Set mc = Nothing
- Set re = Nothing
- End Sub
Das funktioniert eigentlich soweit nicht schlecht, allerdings wird beim Aufruf (siehe unten) die Zeilenschaltung beim Suchmuster nicht erkannt und deshalb der gesamte restliche Text gelöscht.
Text-Beispiel:
Nun versuche ich die "Zeile drei..." (wobei nur der Anfang der Zeile bekannt ist) aus diesem Text mit Aufruf von
durch eine Zeilenschaltung zu ersetzen.
Im Manual, welches ich hier gefunden habe, heisst es, dass man mit ".*" (Punkt=beliebiges Zeichen mit Ausnahme von CR!, und Stern=beliebige Anzahl an Vorkommen, quasi den Rest bis zum Zeilenende - in diesem Fall durch eine Zeilenschaltung - ersetzen könne.
Tatsächlich wird mir aber der ganze folgende Text weggelöscht, also auch die Zeile vier, was nicht erwünscht ist.
Wer kann mir helfen, am liebsten mit RegExp Zeile drei wegzubekommen, aber NUR diese Zeile?
Im voraus besten Dank für jeglichen Input!
