Microsoft Office Forums - View Single Post - Word Macro: Insert Circle Shape over selected text

Guessed · 05-31-2024, 06:18 AM

I see you have been working on this problem for a while

Would you consider a box rather than a circle?

Code:

Sub Macro1()
  With Selection.Font.Borders(1)
    .LineStyle = Options.DefaultBorderLineStyle
    .LineWidth = Options.DefaultBorderLineWidth
    .Color = Options.DefaultBorderColor
  End With
End Sub