【求助】能否用word vba代码对选中范围内的图形进行设置？

Zhanghaijing87

【求助】能否用word vba代码对选中范围内的图形进行设置？
我在日常办公中经常会遇到有些文件中有不少图形（不是悬浮图片或者嵌入图片而是文本框，插入图形等图形），这些图形悬浮在文档中不利于排版，我想通过VBA一键设置所选范围内的图形使其达到以下目的：
1、批量转为嵌入式图形；
2、段落设置为居中，单倍行距，段前段后无间距。（以此为例，其他设置可以根据需求自己修改）
一、现在我有一段代码把全文内图形变为嵌入式。但是不能设置所选范围内的图形，（因为有的时候全文嵌入有些地方会乱，所以我想选中范围内变为嵌入式，但是selection.shaperange）代码如下：
Sub 所有图形转嵌入()
    Dim sh As Shape
    For Each sh In ActiveDocument.Shapes
        sh.ConvertToInlineShape
    Next
End Sub
二、经常之前跟部分老师沟通。有以下两段代码，都可以正常运行。但是他必须点中某一个形状，不能识别到所选范围内的的图形。只能点一个设置成功一个，代码如下：
Sub 所选图形嵌入并调整大小()
'蜀中草莽老师写
    Dim sh As Shape
    For Each sh In Selection.ShapeRange
        sh.ConvertToInlineShape
        With sh.Range.ParagraphFormat
            .LineSpacingRule = wdLineSpaceSingle
            .Alignment = wdAlignParagraphCenter
            .CharacterUnitFirstLineIndent = 0
            .CharacterUnitLeftIndent = 0
            .LeftIndent = 0
            .FirstLineIndent = 0
            .Width = 8 * 72 / 2.54
            .LockAspectRatio = True
        End With
    Next
End Sub

Sub 所选图形嵌入并调整大小()
'臭冬瓜老师写
    Dim sh As Shape
    For Each sh In Selection.ShapeRange
        with sh.ConvertToInlineShape
with .Range.ParagraphFormat
            .LineSpacingRule = wdLineSpaceSingle
            .Alignment = wdAlignParagraphCenter
            .CharacterUnitFirstLineIndent = 0
            .CharacterUnitLeftIndent = 0
            .LeftIndent = 0
            .FirstLineIndent = 0
end with
            .Width = 8 * 72 / 2.54
            .LockAspectRatio = True
        End With
    Next
End Sub
都是必须一个一个选中这个图形，感觉所选范围内他是识别不到多个图形并对其进行设置的，请问这是什么原因？能否帮忙修改出所选图形转嵌入并设置的vba代码？感谢各位大佬了。。第一次求助。

batmanbbs

Zhanghaijing87

万分感谢冬瓜老师。。。

loquat

不知道这种思路行不行。

zds0616

可以参考下面两种方法：
1、分类重复操作，先执行编辑操作 再选择要重复的范围，最后选择重复操作的对象类型
https://v.douyin.com/i6QJWnS5/ cAG:/ 08/29 B@T.Lw

2、批量选择，这个方法相对更相对简单一些，一键批量选择相应的内容，然后就可以批量进行各种编辑操作了
https://v.douyin.com/i6QeeHdH/ wSY:/ 03/31 d@n.Dh

Zhanghaijing87

loquat 发表于 2024-7-4 17:08
不知道这种思路行不行。

感谢老师。。。

Zhanghaijing87

zds0616 发表于 2024-7-4 19:57
可以参考下面两种方法：
1、分类重复操作，先执行编辑操作 再选择要重复的范围，最后选择重复操作的对象类 ...

好的。感谢回复。