PC-HELP.CZ

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

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

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?

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

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.

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

MirekL píše: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.

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