怎么用vba解析word的字体

qq_37651404 2017-10-12 08:44:40

希望是最后输出word里用到的所有字体，不过我的想法感觉很蠢，要以字为单位查出每个字的字体然后放入列表去重。各位大佬有没有什么比较简洁的方法啊，最好可以留一下代码，万分感谢！

...全文

949 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

赵4老师 2017-10-13

打赏
举报

FontNames 对象参阅属性方法事件特性多个对象 FontNames 代表一个所有有效字体名称的列表。使用 FontNames 对象用 FontNames、LandscapeFontNames 或 PortraitFontNames 属性都可返回 FontNames 对象。本示例在活动文档的后面显示有效纵排字体的种类数目。 MsgBox PortraitFontNames.Count & " fonts available" 本示例在活动文档的后面显示 FontNames 对象中的所有字体名称。 For Each aFont In FontNames ActiveDocument.Range.InsertAfter aFont & vbCr Next aFont 用 FontNames (index) 可返回一个字体名称，其中 index 是索引序号。下列示例显示 FontNames 对象中的第一个字体名称。 MsgBox FontNames(1) 说明不能在有效字体列表中添加或删除名称。？

再WPS中，用“[一二三四五六七八九十]{1,3}.*^p”通配所有汉字序号开头的内容，设置为标题 1运用通配符“^p[一-﨩]{1,12}：”找到所有段落标记开头，中间有1-12汉字的内容，将其设置为蓝色加粗楷体。

代码解析：Table是表格对象的意思，Rows代表表格中的

前言对于CSS字体加密，我目前遇到了这几种情况：字体字形坐标点与编码之间的对应关系不会随着多次请求而变化，例如：58同城房子出租字体字形坐标点每次请求时，位置不固定，但是每个文字的打点数量一致，例如：猿人学第7题字体的打点坐标点与打点数量随着每次请求都会发生变换，例如：58同城招聘我们之所以认为1这个形状是数字一。是因为我们通过学习后才懂得，“哦！这个是 ‘1‘ 。” 所以，为了让电脑识别出文字，就可以依靠机器学习，啊，但是我不会。直接上手机器学习针对的是比较难识别的图像，例如：复杂的验证码。

为了方便在Word文档中，给学生整理错题，所以用VBA实现了生成错题文档的快捷方法。

本例环境基于ubuntu18.04，python3，wps。所有本例用到的类库都使用pip3来安装。首先安装pip3。 sudo apt install pip3 1. python处理word文档安装处理word文档用到的python类库python-docx。 pip3 install python-docx ...