Word中VBA删除文本框空行

xseyuan · 发表于 2022-1-20 17:07

用的是WORD2016，VBA删除文本框空行，第一行，中间行都可以顺利删除，未行怎么都删不要掉，参考https://club.excelhome.net/thread-1063343-1-1.html 中，是Chr$(13)还是别的原因，Replace函数也解决只能中间行的替换？

daibao88 · 发表于 2022-1-20 17:21

链接的代码是针对ppt的，你的是word

xseyuan · 发表于 2022-1-21 09:23

daibao88 发表于 2022-1-20 17:21
链接的代码是针对ppt的，你的是word

参考的PPT的，修改为WORD的，首行和中间行都能用，未行的用不了

zhanglei1371 · 发表于 2022-1-21 11:40

xseyuan 发表于 2022-1-21 09:23
参考的PPT的，修改为WORD的，首行和中间行都能用，未行的用不了

Sub 删除空行()
Application.ScreenUpdating = False
On Error Resume Next
Dim arr()
k = 0
For Each oShp In ActiveDocument.Shapes
ReDim Preserve arr(k)
arr(k) = oShp.Name
k = k + 1
Next
For j = 0 To UBound(arr)
sName = arr(j)
Set oShp = ActiveDocument.Shapes(sName)
If oShp.Type = msoGroup Then '操作组合图形（也适用于组合图形下的子组合图形）
For i = 1 To oShp.GroupItems.Count
If oShp.GroupItems(i).TextFrame.HasText Then '操作带文字的自选图形和文本框
Do While oShp.GroupItems(i).TextFrame.TextRange.Characters(1).Text = Chr$(13) '删首行空行
If oShp.GroupItems(i).TextFrame.TextRange.Characters(1).Text = Chr$(13) Then
oShp.GroupItems(i).TextFrame.TextRange.Characters(1).Select
oShp.GroupItems(i).TextFrame.TextRange.Characters(1).Delete
End If
Loop
oShp.GroupItems(i).TextFrame.TextRange = Replace(oShp.GroupItems(i).TextFrame.TextRange, Chr$(13) & Chr$(13), Chr$(13)) '删中间行空行
Do While oShp.GroupItems(i).TextFrame.TextRange.Characters.Last.Previous = Chr$(13)
oShp.GroupItems(i).TextFrame.TextRange.Characters.Last.Delete
Loop
End If
Next
End If
Next
End Sub

复制代码

xseyuan · 发表于 2022-1-26 16:27

zhanglei1371 发表于 2022-1-21 11:40

多谢大神解决问题

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

[求助] Word中VBA删除文本框空行