Help making a Macro

gmayor · #1 03-01-2023, 02:09 AM

You can record a macro that will do that. e.g.

Code:

Sub Macro1()
    Selection.HomeKey wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "***"
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

It might make more sense to replace your asterisks with content controls e.g.

Code:

Sub Macro2()
Dim oRng As Range
Dim oCC As ContentControl
Dim i As Integer: i = 0
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Wrap = wdFindContinue
        Do While .Execute("***")
            i = i + 1
            oRng.Text = ""
            Set oCC = oRng.ContentControls.Add(wdContentControlRichText)
            oCC.Title = "Text" & i
            oCC.Tag = oCC.Title
            oCC.LockContentControl = True
            oRng.End = oRng.End + 1
            oRng.Collapse 0
        Loop
    End With
End Sub

Mullin4414 · #2 03-01-2023, 11:30 AM

thank you so much this is going to help me a lot!, since you seem to be very quick with the code (i havent tried the second one yet im still working out how this all works), do you know if there is a way to instead of selecting the *** i could select the next group of lets say red text or bold text or whatever is easiest, so if i wrote "put patient name here" in red text i could hit F2 and have it select that group of text for me to replace?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Making a Outlook macro that opens a Excel Workbook	bjornltd	Outlook	0	07-03-2021 06:39 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Making a macro run for each page in a mailmerge	bakhesh	Mail Merge	1	09-29-2013 07:58 PM
Need help making a macro to space images	brewsta	Word VBA	3	12-11-2012 03:29 PM
Making a Macro "autoopen"	Joshocom	Word	1	03-16-2010 05:03 PM