VBA將PPT中有顔色的文本內容全部改爲粗體
- 2020-05-08 08:00:00
- zstmtony 原創
- 836
VBA將PPT中有顔色的文本內容全部改爲粗體
On Error Resume Next '''''''''''''''''''''''''''''''''''''''''開始取消組閤''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' For i = 1 To ActivePresentation.Slides.Count For Each shp In Application.ActivePresentation.Slides(i).Shapes If shp.Type = msoGroup Then shp.Ungroup End If Next Next '''''''''''''''''''''''''''''''''''''''''以下開始對加粗字體''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim myshp As Shape 'tmtony For i = 1 To ActivePresentation.Slides.Count For k = 1 To Application.ActivePresentation.Slides(i).Shapes.Count Set myshp = Application.ActivePresentation.Slides(i).Shapes(k) nm = Application.ActivePresentation.Slides(i).Shapes(k).Name '14 msoPlaceholder 17爲文本框 msoAutoShape 1 'msoInkComment = 23 22 13爲圖片 msoLine = 9 If myshp.Type = 1 Or myshp.Type = 14 Or myshp.Type = 17 Then For j = 1 To Len(Application.ActivePresentation.Slides(i).Shapes(k).TextFrame.TextRange.Text) If Application.ActivePresentation.Slides(i).Shapes(k).TextFrame.TextRange.Characters(Start:=j, Length:=1).Font.Color.RGB <> RGB(Red:=255, Green:=255, Blue:=255) Then ‘www.office-cn.net Application.ActivePresentation.Slides(i).Shapes(k).TextFrame.TextRange.Characters(Start:=j, Length:=1).Font.Bold = msoTrue End If Next End If Next k Next i MsgBox "處理完畢!"
Access Activex第三方控件
- office使用部分控件時提示“您沒有使用該ActiveX控件許可的問題”的解決方法
- RTF文件(富文本格式)的一些解析
- Access樹控件(treeview) 64位Office下齣現橫曏滾動條不會自動定位的解決辦法
- Access中國樹控件 在win10電腦 節點行間距太小的解決辦法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 樹控件 ListView列錶等64位MSCOMMCTL.OCX控件下載
- VBA或VB6調用WebService(直接Post方式)併解析返迴的XML
- Access 或VBA 或VB6 使用 MS SOAP Toolkit 3.0 實現 SOAP Client客戶端的功能
Access ADP Sql Server等
- MMC 不能打開文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由於文件不存在,不是一箇MMC控製颱,或者用後來的MMC版
- sql server連接不瞭的解決辦法
- localhost與127.0.0.1區彆
- Roych的淺談數據庫開髮繫列(Sql Server)
- sqlserver 自動備份對備份目録沒有存取權限的解決辦法
- 安裝Sql server 2005 express 和SQLServer2005 Express版企業管理器 SQLServer2005_SSMSEE
- 解決Access數據庫的Sql語句中 Top n 語句穫取多條記録
文章分類
聯繫我們
聯繫人: | 王先生 |
---|---|
電話: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |