Skopírovaný text a predložky na konci riadku (Word 2007)

Štandardne je nastavené, že počas písania sa majú normálne medzery nahradiť pevnými. Toto nastavenie skontrolujete cez Tlačidlo Office > Možnosti programu Word > Kontrola pravopisu a gramatiky > Možnosti automatických opráv a záložka Automatický formát počas písania . Nastavenie ale nefunguje keď text skopírujete do Wordu.

Nastavenie automatických opráv Word 2007 

Druhá možnosť je použiť rozšírené možnosti Hľadať / Nahradiť a postupne všetky nahradíte v celom dokumente. Dôležité je zakliknúť možnosť Rozlišovať predponu . Inak by hľadanie a nahradzovanie menilo aj písmená, ktoré sú na konci slov. Do časti hľadať treba dopísať aj tú medzeru, aby bolo jednoznačne určené čo sa má hľadať a nahradzovať.

Nahradiť špeciálne znaky Word 2007 

Posledná možnosť je vytvoriť makro, ktoré urobí takúto zmenu v celkom texte naraz jedným kliknutím. Kód makra je uvedený nižšie a stačí ho skopírovať do nového modulu v editore VBA. Ten zobrazíte napr. klávesovou skratkou Alt + F11, alebo tlačidlom Visual Basic na záložke Vývojár. Pevná medzera je v kóde označená špeciálnym znakom takto "a^s". Toto treba zadať aj do okna nahradiť pri použití druhej možnosti. Ak makro uložíte napr. do globálnej šablóny normal.dotm tak budete mať túto funkciu dostupnú v každom dokumente.
Text vložený bez pevných medzier (vľavo) a po nahradení pevnými medzerami (vpravo).

Normálne a pevné medzery Word 2007 

Kód môže byť aj takýto:

Sub nahrad_medzery()
' Makro vytvoril Peter Belko
'
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = " a "
 .Replacement.Text = " a^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " i "
 .Replacement.Text = " i^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " k "
 .Replacement.Text = " k^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " o "
 .Replacement.Text = " o^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " s "
 .Replacement.Text = " s^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " u "
 .Replacement.Text = " u^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " v "
 .Replacement.Text = " v^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = " z "
 .Replacement.Text = " z^s"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

V prípade, že neviete ako makro skopírovať pošlem Vám šablónu aj s makrom, ktoré si skopírujete do požadovaného dokumentu, alebo text skopírujete do šablóny, urobíte nahradenie a následne upravený text skopírujete do cieľového dokumentu. :-)
Aktualizované 20.10.09: vo VBA kóde chýbali po kopírovaní do článku medzery pred predložkami v častiach .Text = " a " . Replacement.Text = " a^s" . Platí to pre všetky predložky v kóde.