VBA摘取Word图形(Shapes)内文字

要解决的问题：

在使用VBA抓取Word文档内容时发现存放在形状里的文字是不能通过paragraphs读到的。如下图所示：

解决思路

1. 定义一个累加器用来存储本篇Doc文档内读出来的所有字符串
2. for循环遍历文档内所有的形状（Shapes）
3. 每遍历到一个就用.Select(形状序号).TextFrame.TextRange.Text读出来，赋值到字符串累加器里
4. 完成对当前文档所有形状内字符串的遍历，全部内容已存入累加器。
5. 打印出来或者进行下一步的文本处理

上代码

Sub test()

Dim d As Document
Dim i As Long
rem 形状名