大家看看这样的word空行怎么快速删除？（已经试过查找、替换以及宏命令） 如何在WORD文档中生成直径10cm的圆？

Sub 测试()
Dim myRange As Range, myEnd As Long
'如果没有选定区域则作全文档处理
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
myEnd = myRange.End  '取得待区域的结束位置
With myRange.Find
    .ClearFormatting '清除查找框格式
    .Replacement.ClearFormatting '清除替换框格式
    .MatchWildcards = False '不勾选“使用通配符”
    .Text = "^t"   '查找制表符
    .Replacement.Text = ""  '替换为空
    .Execute Replace:=wdReplaceAll '全部替换
End With
End Sub
================================
如何在WORD文档中生成直径10cm的圆？

ActiveDocument.Shapes.AddShape(msoShapeOval, 222#, 178.5, 100#, 100#)
是这样吗?