word vba 删除指定尺寸的文本框

snow653124 · 发表于 2022-7-27 06:55

用代码看的啊

Sub 删除文本框()
Dim n%
For n = ActiveDocument.Shapes.Count To 1 Step -1
      With ActiveDocument.Shapes(n)
         Debug.Print .Height
         Debug.Print .Width
         If .Height = 67.85 And .Width = 138.85 Then .Delete
      End With
Next
End Sub

看立即窗口的数值
建议用F8来逐步运行看大小

wdpfox · 发表于 2022-7-29 17:51

学习了，谢谢分享！

		自动登录	找回密码
密码			免费注册

[求助] word vba 删除指定尺寸的文本框