vba删除word中包含特定字符的文本框

308831991

如题，本人自学vba才几天，遇到这样一个问题，实在是没有找到相关的教学贴，只能请教高手答疑。在word封面中有一个包含了企业名称的文本框，想要把这个文本框删除。这样的word文本有很多，所以想通过vba批量删除。

413191246se

1. Sub delTextBox()
   
2.     Dim j As Frame
   
3.     For Each j In ActiveDocument.Frames
   
4.         j.Delete
   
5.     Next
   
6.     Dim i As Shape
   
7.     For Each i In ActiveDocument.Shapes
   
8.         If i.Type = msoTextBox And i.Type = 17 Then
   
9.             i.TextFrame.TextRange.Select
   
10.             Selection.Copy
    
11.             i.Delete
    
12.             Selection.Paste
    
13.         End If
    
14.     Next
    
15.     With Selection
    
16.         .WholeStory
    
17.         With .ParagraphFormat
    
18.             .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
19.             .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
20.             .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
21.             .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
22.         End With
    
23.     End With
    
24. End Sub

复制代码

ggmmlol

参考：
Sub deleteTextFrame()
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        s = shp.TextFrame.TextRange.Text
        If InStr(s, "木林森公司") Then shp.Delete
    Next
End Sub

wdpfox

感谢分享，支持一下！

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）

308831991

ggmmlol 发表于 2021-1-5 08:57
参考：
Sub deleteTextFrame()
    Dim shp As Shape

perfect，谢谢大神给的解答，完美实现了我的需求。

308831991

413191246se 发表于 2021-1-5 01:23

谢谢大神，虽然不是我想要实现的效果，但是也解决了我另外一个问题。3q