公众号链接的手机网站怎么做,广州pc网站建设,常州城乡建设局网站首页,新中式装修效果图本文章的目的是找到某种字体的文字#xff0c;而不是替换某种字体的文字#xff0c;也不是将某种字体全部替换为另外一种文字。
第一步#xff1a;在PPT中按下ALTF11 出现以下窗口 第二步#xff1a;点击插入-模块 第三步#xff1a;将以下代码输入到窗体中
Sub F…本文章的目的是找到某种字体的文字而不是替换某种字体的文字也不是将某种字体全部替换为另外一种文字。
第一步在PPT中按下ALTF11 出现以下窗口 第二步点击插入-模块 第三步将以下代码输入到窗体中
Sub FindTextByFont()Dim slide As slideDim shape As shapeDim textRange As textRangeDim fontName As StringDim foundTexts As StringDim found As Boolean 要查找的字体名称fontName InputBox(请输入要查找的字体名称:, 查找字体)If fontName Then Exit Subfound FalsefoundTexts 以下是使用字体 fontName 的文字: vbCrLf vbCrLf 遍历所有幻灯片For Each slide In ActivePresentation.Slides 遍历每张幻灯片上的所有形状For Each shape In slide.Shapes 检查形状是否有文本If shape.HasTextFrame ThenIf shape.TextFrame.HasText Then 遍历形状的所有文本范围For Each textRange In shape.TextFrame.textRange.Runs 如果文本范围的字体名称匹配If textRange.Font.Name fontName Thenfound TruefoundTexts foundTexts 幻灯片 slide.SlideIndex 中的文字: textRange.Text vbCrLfEnd IfNext textRangeEnd IfEnd IfNext shapeNext slideIf found ThenMsgBox foundTextsElseMsgBox 没有找到使用字体 fontName 的文字。End If
End Sub第四步按下F5运行后会弹出新的窗口 输入字体后会列出所有的文字位置
