Filehost.ro - gazduire fisiere
Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff. 		Nou pe simpatie:
Alexandra21
Femeie
24 ani
Calarasi
cauta Barbat
24 - 53 ani
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides /

[WORD] Replace Specific Text only in Selection [VBA]

 Pagini: 1 Moderat de TRaP, TonyTzu
#1
TRaP
Moderator
Postari: 960
Source of inspiration:
https://word.tips.net/T000851_Replacing ... _Tabs.html

The code below replaces bullet lists made manually with tab at 0,5 cm, - and space with nothing.



Sub ReplaceSpecificText()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

    With Selection.Find
        .text = "^t- "
        .Replacement.text = ""
        .Forward = True
    End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub
 
   
#2
TRaP
Moderator
Postari: 960

Sub ReplaceRisc()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

' replaces F1. F2. etc. until F9.
    With Selection.Find
        .Text = "F([0-9])."
        .Replacement.Text = "-"
        .Forward = True
        .MatchWildcards = True
        .Wrap = wdFindStop
        .Format = False
        .Execute Replace:=wdReplaceAll
    End With

End Sub



Sub ReplaceRisc2()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

' replaces F10. F11. etc. until F99.
    With Selection.Find
        .Text = "F([0-9][0-9])."
        .Replacement.Text = "-"
        .Forward = True
        .MatchWildcards = True
        .Wrap = wdFindStop
        .Format = False
        .Execute Replace:=wdReplaceAll
    End With

End Sub
 
   
Pagini: 1  
Mergi la