Łukasz Michalik Trener
konto usunięte
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.
Łukasz Bogaczyk Trener
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
Mateusz
Kowalczyk
Student, Uniwersytet
Warszawski
Temat: Praca z Wordem, zadanie praktyczne
Panie Łukaszu,gdzie Pan zdobył tak profesjonalną wiedzę?????
Jestem pod wrażeniem:)
Łukasz Bogaczyk Trener
Temat: Praca z Wordem, zadanie praktyczne
Na szkoleniach i w praktyce.Podobne tematy
-
GL - Ogólne » Praca na pół etatu -
-
Meble » praca/technolog/Meble Vox/Czarnków -
-
PRZEDSTAWICIEL MEDYCZNY » praca jako PM -
-
firma IDEALNA » praca miejsce spotkań towarzyskich czy zarabianie kasy -
-
Giełda » Praca magisterska o inwestorach giełdowych -
-
Giełda » Praca dla pasjonatów -
-
Kraków » Mieszkanie, praca -
-
Kariera inżyniera » praca platforma -
-
Vive la France.... » Praca w Olsztynie -
-
Etnologia » etno a praca -
Następna dyskusja: