Sub NemTorhetoszokozKi() ' ' NemTorhetoszokozKi Makró ' Rögzítés: 2010.07.04., készítő: eNeL ' Selection.HomeKey Unit:=wdStory ' A dokumentum elejére állunk. 'Ez a rész a nem törhető szóközöket szóközökre cseréli. ' With Selection.Find .Text = "^s" .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory ' A dokumentum elejére állunk. End Sub