Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem word - jak smazat všechny řádky začínající slovem Page ?

Půjde to makrem, nevím sice jak ho vyladit, aby běželo jen do konce dokumentu, ale pokud nebude stačit 100 výskytů, prostě ho pusť znovu...
Že jich je ve skutečnosti míň nevadí...
Předpoklad: ten řádek s textem PAGE je opravdu jen jeden řádek a chceš ho odstranit (ne jen smazat text Page xxx, aby tam zůstal vynechaný prázdný řádek)

Sub hledej()
'
' hledej Makro
'
'
For i = 1 To 100
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "page"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1

Next i
End Sub

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny