ppt页面中多个文本框内的文字如何合并到一个文本框内，或者去掉所有文本框。

zzpsx

ppt页面中多个文本框内的文字如何合并到一个文本框内，或者去掉所有文本框。 去掉所有文本框.rar (324.91 KB, 下载次数: 6)

2024-2-27 13:43 上传

点击文件名下载附件

cyh3230

这个好像有个什么插件能办到, 具体名字忘记了, 是 英豪 还是 onekey 什么的

shenjianrong163

1. Sub test()
   
2.     Dim sld As Slide, shp As Shape, shp1
   
3.     Dim s As String, b As Boolean
   
4.     For Each sld In ActivePresentation.Slides
   
5.         s = ""
   
6.         b = False
   
7.         For Each shp In sld.Shapes
   
8.             If shp.HasTextFrame Then
   
9.                 If b = False Then
   
10.                     b = True
    
11.                     Set shp1 = shp
    
12.                     s = shp.TextFrame.TextRange.Text
    
13.                 Else
    
14.                     s = s & shp.TextFrame.TextRange.Text
    
15.                     shp.Delete
    
16.                 End If
    
17.             End If
    
18.         Next shp
    
19.         If b = True Then shp1.TextFrame.TextRange.Text = s
    
20.     Next sld
    
21. End Sub

复制代码