Jak odstranit všechny prázdné řádky ve WORD 2003

[majtin]

Ahoj,mám v dokumentu Word 2003 vždy asi 1-2 řádky textu bez mezery a mezi nimi vždy 3 řádky mezeru.A právě tyto potřebuji odstranit.Myslel jsem,že je to jednoduché,ale zřejmě není.Děkuji

[mike007]

Vítej na PC-help

Jestli tam máš jen ty tři prázdné řádky a víc ne, tak je smažeš úplně jednoduše. Stačí kliknout před větu za prázdnými řádky a pomocí Backspace si ty prázdné řádky vymažeš

Pokud je to obsáhlý dokument, kde je prázdných řádků více, použij makro, viz níže.

1. Ve Wordu; Použij klávesovou zkratku Alt+F11, kterou se dostaneš do prostředí VBA.
2. V menu VBA vyber Insert --> Module a do prázdného okna napravo nakopíruj toto makro:

Sub smazat_prazdne_radky()
Do
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
End With
Loop Until Selection.Find.Execute(Replace:=wdReplaceAll) = False
End Sub

Prostředí VBA zavři klasicky křížkem v pravém horním rohu.

Ve Wordu; vyber z menu Nástroje --> Makro --> Makra (případně kl. zkratka Alt+F8), označ makro "smazat_prazdne_radky" a klikni na tlačítko Spustit

[majtin]

Je to obsáhlý dokument,přes 150 stran,růčo by to nešlo.Všechno jsem provedl dle tvých instrukcí,celý dokument se zřejmě uspořádá,jak chci,ale kousne se to.I když jsem vybral jen 2 strany jako vzorek,počítač na tom pořád pracoval,nedá se to uložit. Prováděnou akci ani nelze přerušit Esc.V dokumentu to problikává,jako kdyby to počítač projížděl pořád dokola.Nemůže být v tom makru chybička?

[mike007]

Jestli máš počítač líný, musíš být hold trpělivý. V makru chybička není. Můžeme tam leda přidat příkaz na vypnutí screenupdatingu. Tím se makro o něco zrychlí. Víc ti s tím nepomohu.

Sub smazat_prazdne_radky()
Application.ScreenUpdating = False
Do
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
End With
Loop Until Selection.Find.Execute(Replace:=wdReplaceAll) = False
Application.ScreenUpdating = True
End Sub

[MirekL]

Nebo to zkus bez makra:

• CTRL+H
• Najít ^13{2;} a zatrhní Zástupné znaky
• Nahradit ^p
• Nahradit vše

Mělo by fungovat bez problému.

[majtin]

Tak oba postupy fungují perfektně,když si libovolný text napíšu sám.Já však použil titulky,z kterých jsem odstranil časy Použil jsem postup:
CTRL-H najít: ([0-9]*[0-9][0-9][0-9])*[0-9][0-9][0-9]
nahradit : ^p
A s tímto si ani to makro (to jen pro část menší než stránka,jinak se kousne,jakoby cykluje),ani druhý postup

Nebo to zkus bez makra:

• CTRL+H
• Najít ^13{2;} a zatrhní Zástupné znaky
• Nahradit ^p
• Nahradit vše

Mělo by fungovat bez problému.

neporadí (nenajde nic ke nahrazení). V tomto případě funguje:
CTRL-H najít:^p^p
nahradit:^p
Takže svůj problém považuji za vyřešený (už vím,že to šlo jednodušeji).Přidávám ukázku,kdybyste chtěli prubnout proč to nešlo,ale není to důležité.Díky moc.

[mike007]

Vlákno tedy označuji za vyřešené. Příště to prosím udělej sám. Díky.