Seeking Assistance with Word Macro to Add Transparent, Blue Line Circle Shape

syl3786 · #1 01-15-2024, 06:49 AM

I'm in need of some assistance regarding Word macros. Specifically, I'm wondering if it's possible to automatically add a transparent, blue line circle shape over specific text using a Word macro. 📝💻

I've explored some options, but I'm not quite sure how to approach this task. That's why I'm reaching out to this knowledgeable community for guidance and expertise.

If you have experience with Word macros or VBA (Visual Basic for Applications), I would greatly appreciate your insights. Is it feasible to achieve this goal using a macro? Are there any specific techniques or code snippets you could suggest?

My intention is to have the macro identify the specific text within a Word document and automatically overlay a transparent, blue line circle shape on top of it (see attached document) Expected Result.docx

Your assistance would be immensely valuable, and I'm eager to learn from your expertise. Thank you in advance for your support! 😊💙

My code drafted:

Code:

Sub AddCircleShape()
    Dim rng As Range
    Dim shape As Shape
    
    Set rng = ActiveDocument.Content
    rng.Find.Text = "YOUR_SPECIFIC_TEXT"
    rng.Find.Execute
    
    If rng.Find.Found Then
        Set shape = ActiveDocument.Shapes.AddShape(msoShapeOval, rng.Information(wdHorizontalPositionRelativeToPage), rng.Information(wdVerticalPositionRelativeToPage), rng.Information(wdShapeSizeWidth), rng.Information(wdShapeSizeHeight))
        With shape
            .Fill.Transparency = 0.5 ' Adjust the transparency value as desired
            .Fill.ForeColor.RGB = RGB(0, 0, 255) ' Set the color to blue; modify RGB values if needed
            .Line.Visible = msoTrue
        End With
    End If
End Sub

vivka · #2 01-17-2024, 04:31 AM

Hi! Try this:

Code:

Sub Find_Str_Add_Shape()
'In the selection, find the inputboxed string & add a transparent
'blue oval shape over it.
    
Dim rng As range
Dim stri As String
Dim shp As shape
    
    Set rng = selection.range
    stri = InputBox("Enter the string to find:")
    rng.Find.text = stri
    rng.Find.Execute
    
    If rng.Find.found Then
        rng.Select
        Set shp = ActiveDocument.Shapes.AddShape(msoShapeOval, _
        selection.Information(wdHorizontalPositionRelativeToPage), _
        selection.Information(wdVerticalPositionRelativeToPage), _
        20, 16)
        With shp
            .Fill.Transparency = 1 'Full transparency
            .Line.ForeColor.RGB = RGB(0, 0, 255) 'Blue color
            .Line.Visible = msoTrue
        End With
    End If
End Sub

You may change 'Set rng = selection.range' to 'Set rng = ActiveDocument.range'.

syl3786 · #3 01-19-2024, 07:58 AM

Quote:

Originally Posted by vivka

Hi! Try this:

Code:

Sub Find_Str_Add_Shape()
'In the selection, find the inputboxed string & add a transparent
'blue oval shape over it.
    
Dim rng As range
Dim stri As String
Dim shp As shape
    
    Set rng = selection.range
    stri = InputBox("Enter the string to find:")
    rng.Find.text = stri
    rng.Find.Execute
    
    If rng.Find.found Then
        rng.Select
        Set shp = ActiveDocument.Shapes.AddShape(msoShapeOval, _
        selection.Information(wdHorizontalPositionRelativeToPage), _
        selection.Information(wdVerticalPositionRelativeToPage), _
        20, 16)
        With shp
            .Fill.Transparency = 1 'Full transparency
            .Line.ForeColor.RGB = RGB(0, 0, 255) 'Blue color
            .Line.Visible = msoTrue
        End With
    End If
End Sub

You may change 'Set rng = selection.range' to 'Set rng = ActiveDocument.range'.

Hi Vivka, thank you so much for your assistance - it really helped me!

I apologize for my delayed response, but I've been feeling ill lately. Thankfully, I'm on the mend and am feeling about 80% better. I hope you're doing well too! I have a question that might sound a bit silly, but I was wondering if it's possible to set the width of a line?

vivka · #4 01-19-2024, 11:16 AM

Hi, syl3786! 1. You are welcome! 2. Get well as soon as possible! 3. Thank you for your wishing me good health! 4. Add

Code:

.Line.Weight = 3

after

Code:

.Line.ForeColor.RGB = RGB(255, 0, 0)

You may change '3' to any other value.

syl3786 · #5 01-21-2024, 03:11 AM

Quote:

Originally Posted by vivka

Hi, syl3786! 1. You are welcome! 2. Get well as soon as possible! 3. Thank you for your wishing me good health! 4. Add

Code:

.Line.Weight = 3

after

Code:

.Line.ForeColor.RGB = RGB(255, 0, 0)

You may change '3' to any other value.

Many thanks for your help!

vivka · #6 01-21-2024, 03:41 AM

You are welcome!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Potential Clashes in Macros - Seeking Assistance	yanyan9896	Word VBA	2	10-09-2023 04:59 AM
vba code in word to delete line having inline shape	anand	Word VBA	7	06-18-2015 10:02 PM
remove blue line	dogbite	Word	1	12-17-2014 06:23 AM
How to write Text above the Shape Line in Ms Word 2010	tahakirmani	Word	2	11-28-2013 05:33 PM
Round Blue Circle Keeps Flashing and Circling	randyflycaster	Word	5	09-14-2011 07:29 AM