Using custom style instead of inserting font attributes manually in VBA code

laith93 · #1 11-06-2021, 11:26 PM

Hi,
I have this code to change attributes of multiple words, which requires to type it manually each time, but I want to use custom style.
I edited the code by inserting the line which marked in red color, but doesn't make changes. Any solution please with thanks.

Code:

Sub SearchMultipleWords()
    Dim oDoc As Document
    Dim MyAr() As String, strToFind As String
    Dim i As Long
    strToFind = "Background, Methods, Results, Conclusion"
    MyAr = Split(strToFind, ",")
    For i = LBound(MyAr) To UBound(MyAr)
        With selection.Find
            .ClearFormatting
            .Text = MyAr(i)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Execute

            '~~> Change the attributes
            Do Until .Found = False
            With Selection.Style = ActiveDocument.Styles("B12")
'                With Selection.Font
'                    .Name = "Times New Roman"
'                    .Size = 12
'                    .Bold = True
'                   ' .Color = RGB(200, 200, 0)
''                    .Italic = True
                End With
                Selection.Find.Execute
            Loop
        End With
    Next i
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Duplicating Ranges and changing Font Attributes	CharlieM	Word VBA	3	08-10-2021 04:44 AM
Inserting page numbers manually in footer	msnarayanan	Word	5	10-30-2018 06:30 AM
VBA Code to search for field codes with certain text before the Field code and to change style	welcometocandyland	Word VBA	4	02-08-2017 06:53 PM
Inserting image into paragraph style	gnelz	Word	1	02-07-2017 01:12 PM
VBA code for inserting a future date	cosmopolitan	Word VBA	1	08-14-2013 01:58 PM