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 ?

Ahoj,

potřeboval bych v jednom souboru, jehož obsah vypadá:

ghd wkiw
jk wrkuk
uk euk
Page 1
jzwel wruklqruk
jkqweu rukh
Page 2

atd...

smazat všechny řádky, které začínají slovem Page, až po enter(tj. celý řádek)

Začíná se mi zdát, že funkce "najdi-nahraď je na tohle slabá, ono těch page je tam desetisíce, uměl by mě někdo pomoci?

Předmět Autor Datum
A to nejde nakopírovat do PSPadu a nahradit tam? Obávám se však, že když má dokument desetitisíce řá…
Kráťa 09.03.2011 14:19
Kráťa
Najit/Nahradit samozrejme pouzit jde. Musis pouzit zastupne symboly. Hledat: Page ?*^13 Nahradit: […
Jan Fiala 09.03.2011 15:25
Jan Fiala
To je zajímavý úkol, mám PSPad verzi 4.5.4 (což je snad poslední verze?) a tohle "Page ?*^13" ani to…
JoDiK 09.03.2011 15:44
JoDiK
Možná to bude tím, že JaFi se baví o Wordu a ty o PSPadu. ;-)
host 09.03.2011 15:46
host
Word se zapnutými zástupnými symboly neumí hledat konec odstavce a ^13 už vůbec ne... na to má word… poslední
JoDiK 09.03.2011 15:54
JoDiK
Půjde to makrem, nevím sice jak ho vyladit, aby běželo jen do konce dokumentu, ale pokud nebude stač…
JoDiK 09.03.2011 15:53
JoDiK

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

Zpět do poradny Odpovědět na původní otázku Nahoru