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

wuxxx123456 · 发表于 2022-7-25 13:18

word vba 删除指定尺寸的文本框求助大佬找了好久也没找到删除指定尺寸文本框相关的内容。

wuxxx123456 · 发表于 2022-7-25 22:26

在线等

snow653124 · 发表于 2022-7-26 08:51

Sub 删除文本框()
Dim tt As Shape
For Each tt In ActiveDocument.Shapes
      With tt
         If 60 < .Height < 70 And 130 < .Width < 145 Then .Delete
      End With
Next
End Sub

snow653124 · 发表于 2022-7-26 08:53

本帖最后由 snow653124 于 2022-7-26 08:55 编辑

好像有问题等下哈

wuxxx123456 · 发表于 2022-7-26 19:12

嗯是有问题

snow653124 · 发表于 2022-7-26 19:22

犯了一个基础性的错误，删除要从后往前删，否则计数器会报错，这个不会了

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

snow653124 · 发表于 2022-7-26 19:23

wuxxx123456 发表于 2022-7-26 19:12
嗯是有问题

已更新，等审核
我固定死了文本大小，可以根据我第一个来设置尺寸的范围，那个是通用的

wuxxx123456 · 发表于 2022-7-26 20:21

嗯可以了感谢！谢谢你！

wuxxx123456 · 发表于 2022-7-26 20:28

67.85 And .Width = 138.85 麻烦问下这个数值是怎么算出来的

wuxxx123456 · 发表于 2022-7-26 20:58

snow653124 发表于 2022-7-26 19:22
犯了一个基础性的错误，删除要从后往前删，否则计数器会报错，这个不会了

Sub 删除文本框()

67.85 And .Width = 138.85 麻烦问下这个数值是怎么算出来的

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

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

评分