Temat: Praca z Wordem, zadanie praktyczne

Jak w dokumencie składającym się z 200 stron szybko zamienić spacje występujące po pojedynczych literach na twarde spacje??

Temat: Praca z Wordem, zadanie praktyczne

Najlepiej skorzystaj z opcji ctrl+f "zamień"

dla "i"
W pole znajdź wpisujemy [SPACJA] i [SPACJA]

w pole zamień wpisujemy [SPACJA] i [CTRL + SHIFT + SPACJA]

naciskamy Zamień wszystko

i tak dla pozostałych - tak jest chyba najszybciej.

Temat: Praca z Wordem, zadanie praktyczne

Sub Zamiana()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Chr(32) & "i" & Chr(32)
.Replacement.Text = Chr(32) & "i" & Chr(160)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Chr(32) & "a" & Chr(32)
.Replacement.Text = Chr(32) & "a" & Chr(160)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Chr(32) & "w" & Chr(32)
.Replacement.Text = Chr(32) & "w" & Chr(160)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Chr(32) oznacza kod spacji
Chr(160) oznacza kod twardej spacji
"x" wyszukiwana litera
Reszta kodu to wynik zarejestrowania makra i "podmiany" znaków, powyższe makro nie uwzględnia wielkości liter

Temat: Praca z Wordem, zadanie praktyczne

Panie Łukaszu,
gdzie Pan zdobył tak profesjonalną wiedzę?????
Jestem pod wrażeniem:)

Temat: Praca z Wordem, zadanie praktyczne

Na szkoleniach i w praktyce.