Sub AddCircleShape()

    Dim rng As Range
    Dim stri As String
    Dim shp As Shape
    Dim padding As Long
    Dim rightCount As Integer
    Dim X, Y, myWidth, myHeight
    
    Set rng = ActiveDocument.Range
    stri = "AGREE／" 

    With rng.Find
        .Text = stri
        .Font.Underline = True
        .Execute
        While .found
            rng.Select
            
            ' Calculate the position and size of the circle
            myHeight = IIf(Selection.ParagraphFormat.LineSpacing > rng.Font.Size, Selection.ParagraphFormat.LineSpacing, rng.Font.Size + rng.Font.Size / 5)
            Y = rng.Information(wdVerticalPositionRelativeToPage) - myHeight / 10 + myHeight - rng.Font.Size - rng.Font.Size / 5
            myHeight = rng.Font.Size + rng.Font.Size / 5 ' 120%
            X = rng.Information(wdHorizontalPositionRelativeToPage)
            rng.Collapse wdCollapseEnd
            myWidth = rng.Information(wdHorizontalPositionRelativeToPage) - X
            myWidth = myWidth - 40
            padding = 2
            X = X - padding
            Y = Y - padding
            myWidth = myWidth + padding * 2
            myHeight = myHeight + padding * 2
            
            ' Add the circle shape
            Set shp = ActiveDocument.Shapes.AddShape(msoShapeOval, X, Y, myWidth, myHeight)
            With shp
                .Fill.Transparency = 1 ' Full transparency
                .Line.ForeColor.RGB = RGB(255, 0, 0)
                .Line.Weight = 1
                .Line.Visible = msoTrue
            End With
            
            rng.Collapse wdCollapseEnd
            .Execute
        Wend
    End With

    rightCount = 30
    
    For Each shp In ActiveDocument.Shapes
        If shp.AutoShapeType = msoShapeOval Then
            If shp.Line.ForeColor.RGB = RGB(255, 0, 0) Then
                shp.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                shp.RelativeVerticalPosition = wdRelativeVerticalPositionPage
                shp.Left = shp.Left + rightCount
            End If
        End If
    Next shp
    
        For Each shp In ActiveDocument.Shapes
        If shp.AutoShapeType = msoShapeOval Then
            shp.Line.ForeColor.RGB = RGB(0, 112, 192)
            shp.Line.Visible = msoTrue
        End If
    Next shp
    
    Selection.Collapse

End Sub