Word VBA代码 嵌入式图形（含Visio、SmartArt图）自动大小和样式等设置，遍历选定内容中嵌入式图形进行批量设置

嵌入式图形含Visio图大小和样式设置_遍历选定内容中嵌入式图形进行设置； 已对外解除多余的引用绑定，确保代码在新的word中可用。 包括： ①可操作嵌入式图形，还包括【SmartArt图形】； ②设置所有嵌入式图形【紧后回车符】，避免嵌入式图形与其题注在同一段落内； ③只针对超过当前【页面编辑区宽度或高度】（嵌入式图形高度+题注高度）的进行适配宽度调整； ④统一自动适配宽度（高度上限满足前提下+适配宽度）【防止超高处理】； ⑤设置visio绘图域对象，如果Visio绘图域对象的下方是【图题注】，则设置成【与下段同页 】； ⑥提供【分类表格的类别，让用户选择】，可自定义相应的段落样式； ⑦根据用户选定的段落样式，将图片和其下方题注设置成指定【段落样式】； ⑧只针对用户自己【选定内容】中的图片进行【批量操作】，而非简单地全文档。 使用方式： ①简单方式：新建word宏，然后把代码复制进去就行（各种文本查看器均可打开）。【注意】如果使用该方式，请记得把第一行代码删除； ②高级方式：在VBA代码编辑器中，导入本宏代码文件，并根据自己的VBA开发环境，设置相应的使用环境参数后，即可使用。