Sub GondolatjelCsereNemtor()
'
' GondolatjelCsereNemtor Makró
' Rögzítés: 2010.07.11., készítő: eNeL
'
Selection.HomeKey Unit:=wdStory ' A dokumentum elejére állunk.

' Ez a rész cseréli a kötőjelet gondolatjelre, ha mögötte szóköz van. Tehát jó esetben
' nem bántja a kérdőszó előtti, vagy egyéb kötőjelet (pl. van-e; ide-oda). Nem törhető
' szóközt helyez el a gondolatjel után
'
With Selection.Find
.Text = "- "
.Replacement.Text = "^=^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Ez, mint előbb, csak a kötőjel+vessző kombinációra, szóköz persze nincs.
With Selection.Find
.Text = "-,"
.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

' Ez a rész cseréli a nagykötőjelet gondolatjelre, ha mögötte szóköz van.
With Selection.Find
.Text = "^+ "
.Replacement.Text = "^=^s"
.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