wps通过vb宏来查看文档中使用的所有字体

一、打开WPS

按步骤打开WPS→开发工具→VB宏

二、编辑宏

在打开的编辑器中输入以下内容，保存后关闭：

Option ExplicitPublic Sub Main()Dim sMsg            As StringsMsg = GetFonts(ActiveDocument)MsgBox "The fonts in this document are:" & vbNewLine & vbNewLine & sMsgIf Not CompareFonts(sMsg) = vbNullString ThenMsgBox "The following fonts are used in this document," & _vbNewLine & "but are not installed on this PC:" & vbNewLine & CompareFonts(sMsg)End IfEnd SubPrivate Function GetFonts(ByVal oDocument As Document) As StringDim oParagraph      As ParagraphDim i               As IntegerDim oWord           As WordsDim sFontType       As StringDim sMsg            As StringFor Each oParagraph In oDocument.ParagraphsFor i = 1 To oParagraph.Range.Characters.CountsFontType = oParagraph.Range.Characters(i).Font.NameIf InStr(1, sMsg, sFontType) = 0 ThensMsg = sMsg & sFontType & vbNewLineEnd IfNextNextGetFonts = sMsgEnd FunctionPrivate Function CompareFonts(ByVal oFonts As String) As StringDim vFont           As VariantDim sMsg            As StringDim xFont           As VariantDim i               As LongDim allFonts        As StringFor Each vFont In FontNamesallFonts = allFonts & vbNewLine & vFontNext vFontxFont = Split(oFonts, vbNewLine)For i = 0 To UBound(xFont)If InStr(allFonts, xFont(i)) = 0 ThensMsg = sMsg & vbNewLine & xFont(i)End IfNext iCompareFonts = sMsgEnd Function

如下图所示：

三、运行宏

再次打开vb宏窗口，点击刚才添加的宏，运行。效果如下图所示：

wps通过vb宏来查看文档中使用的所有字体相关推荐

Word控件Spire.Doc 【脚注】教程(1) 使用C#或VB.NET在 Word 文档中插入脚注和尾注
Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库.在于帮助开发人员无需安装 Microsoft Word情况下,轻松快捷高效地创建.编辑.转换和打印 Micr ...
Word控件Spire.Doc 【图像形状】教程(6)：如何在 C#、VB.NET 的 Word 文档中插入形状和形状组
Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库.在于帮助开发人员无需安装 Microsoft Word情况下,轻松快捷高效地创建.编辑.转换和打印 Micr ...
在Word和PowerPoint 2007文档中嵌入True Type字体
If you are the creative type that likes to use custom fonts in your documents or PowerPoint presenta ...
【WPS】JS宏在word文档创建表格并输入内容.
找了一大片后发现JS宏的接口和VBA的接口是差不多一样的.所以参考VBA的接口尝试搭配录制宏功能写JS宏. function Macro2() {Selection.SetRange(0, 0); ...
wps如何删除括号里的内容_文档中怎么批量去除括号里面的答案 - 卡饭网
在word2007文档中如何批量删除英文字母? 在word2007文档中如何批量删除英文字母? 在word2007文档中如何批量删除英文字母? 步骤 1.点击office word2 ...
用VBA在Word文档中每页页眉插入返回文档目录中相应位置的超链接
[说明]此文中在页眉插入跳转到目录项的超链接的代码几经改进,但改进后并未删除改进之前的代码,是为了有个对比利于学习.如果想节约时间,该步骤可直接查看该部分最后一个代码块. 对于Word长文档,标准做法 ...
InDesign 教程：如何在文档中导航页面？
欢迎观看indesign教程,小编带大家学习 InDesign 的基本工具和使用技巧,了解如何使用"属性"面板."页面"面板和其他方法在文档中的页面之间导航. ...
python word排版_利用Python-docx 读写 Word 文档中的正文、表格、段落、字体等
前言: 前两篇博客介绍了 Python 的 docx 模块对 Word 文档的写操作,这篇博客将介绍如何用 docx 模块读取已有 Word 文档中的信息. 本篇博客主要内容有: 1.获取文档的章节信 ...
python word中表格字体设置_利用Python-docx 读写 Word 文档中的正文、表格、段落、字体样式等...
前言: 前两篇博客介绍了 Python 的 docx 模块对 Word 文档的写操作,这篇博客将介绍如何用 docx 模块读取已有 Word 文档中的信息. 本篇博客主要内容有: 1.获取文档的章节信 ...

wps通过vb宏来查看文档中使用的所有字体

wps通过vb宏来查看文档中使用的所有字体

目录

一、打开WPS

二、编辑宏

三、运行宏

wps通过vb宏来查看文档中使用的所有字体相关推荐

最新文章

热门文章