Új hozzászólás Aktív témák

• #2683 Fire/SOUL/CD félisten gigabytman #2682

  Új Válasz 2021-08-21 22:23:50 #2683

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz gigabytman #2682 üzenetére

  Csak egyetlen sorral bővül a kód, egy Selection.Copy sorral.

  Sub Makró1()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting

'mit cseréljen
.Text = "ezt cseréli"
'mire cserélje
.Replacement.Text = "erre"

.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Selection.Copy
End Sub

• #2681 Fire/SOUL/CD félisten gigabytman #2680

  Új Válasz 2021-08-21 19:14:06 #2681

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz gigabytman #2680 üzenetére

  Remélem erre van szükséged...

  Sub Makró1()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting

'mit cseréljen
.Text = "ezt cseréli"
'mire cserélje
.Replacement.Text = "erre"

.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub

Új hozzászólás Aktív témák