如何运用WORD VBA获取艺术字中的文本

作者：绿色风分类：时间：2022-08-18 浏览：106

楼主
xmyjk

Q:如何运用WORD VBA获取艺术字中的文本?

A:用过WORD VBA的朋友，都知道，WORD图片对象，有inlineshape和shape这两种。
今天详细测试了下，inlineshape一般为：嵌入式艺术字和嵌入式图片
而，shape一般为：文本框、自定义图形以及浮动型图片和浮动型艺术字
其中嵌入式图片和图片是可以相互转换的。

因此，在嵌入式shape中，区分艺术字和嵌入式图片的方法就是，读取其AlternativeText属性，有文本的话，就是艺术字了。

Sub test2()
Dim Sh As InlineShape
For Each Sh In ActiveDocument.InlineShapes
Debug.Print Sh.AlternativeText
Next
End Sub

另外，也可以判断TextEffect的对象是否存在。再另外，.TextEffect.Text可以修改或者获取艺术字的文本

Sub test2()
Dim Sh As InlineShape
For Each Sh In ActiveDocument.InlineShapes
MsgBox (Sh.TextEffect.Text)
Next
End Sub

最后，同理，如果是文本框，浮动自定义图片和浮动艺术字的文本获取也可以用AlternativeText或TEXTEFFECT

Sub test12()
Dim Sh As Shape
For Each Sh In ActiveDocument.Shapes
Debug.Print Sh.AlternativeText
Debug.Print Sh.TextEffect.Text
Next
End Sub

艺术字.rar

2楼
eliane_lei

弦月整理得真快！辛苦了

3楼
BianChengNan

支持弦月版主

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表