ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Word > 如何运用WORD VBA获取艺术字中的文本

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

作者:绿色风 分类: 时间:2022-08-18 浏览:106
楼主
xmyjk
Q:如何运用WORD VBA获取艺术字中的文本?

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

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

  2.     Dim Sh As InlineShape
  3.     For Each Sh In ActiveDocument.InlineShapes
  4.         Debug.Print Sh.AlternativeText
  5.     Next
  6. End Sub
另外,也可以判断TextEffect的对象是否存在。再另外,.TextEffect.Text可以修改或者获取艺术字的文本
  1. Sub test2()

  2.     Dim Sh As InlineShape
  3.     For Each Sh In ActiveDocument.InlineShapes
  4.         MsgBox (Sh.TextEffect.Text)
  5.     Next
  6. End Sub
最后,同理,如果是文本框,浮动自定义图片和浮动艺术字的文本获取也可以用AlternativeText或TEXTEFFECT
  1. Sub test12()

  2.     Dim Sh As Shape
  3.     For Each Sh In ActiveDocument.Shapes
  4.         Debug.Print Sh.AlternativeText
  5.         Debug.Print Sh.TextEffect.Text
  6.     Next
  7. 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总版主之一

评论列表
sitemap