Sziasztok!

A gondom a következő: van egy hosszú szövegem, amiből szeretnék törölni helyenként egy több soros szakaszt, ami mindig ugyanazzal a sorral kezdődik, mondjuk BLA és ugyanazzal is zárul, mondjuk ZVA. Mivel több ezer oldalas doksiról van szó, jó lenne automatizálni vhogy. Az alábbi makrót találtam, ami egy kijelölt részt képes törölni, viszont nálam a BLA és ZVA között nem feltétlenül ugyanaz a tartalom, tehát ez így nem is működik. Ha jól értem, az 5-dik sort kéne megváltoztatnom úgy, hogy a szövegkijelölés egy tömbre vonatkozzon BLA-tól ZVA-ig. Mi ennek a szintaktikája?

Előre is kösz a segítséget!

Sub torles()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Selected.Text
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[ Szerkesztve ]