Word 14中如何操作置于文字上下方的图片？宏录制无法选中该图

可行，但这类浮于文字上方/下方的图片属于Word的Shapes集合（而非嵌入型图片所属的InlineShapes），录制宏时无法直接选中，需要通过VBA直接定位或遍历Shapes对象来操作。

针对你需要复制指定位置浮动图片并调整水平位置的需求，以下是具体实现方案：

一、核心思路 #

浮动图片的位置、尺寸、环绕方式都通过Shape对象的属性控制，无需手动选中：

1. 通过遍历或名称定位目标图片
2. 复制图片后，调整新图片的水平位置，保持垂直位置不变
3. 保持新图片与原图片一致的环绕方式（文字上方/下方）

二、针对你的场景的宏代码 #

你的需求：复制水平距页边距右侧0cm、垂直距页边距下方4.2cm、尺寸1.2cm×1.2cm的浮动图片，粘贴后垂直位置不变，水平距页边距右侧3.7cm。

Sub 复制并调整浮动图片位置()
    Dim originalShape As Shape
    Dim newShape As Shape
    Dim pageWidth As Single
    Dim pageHeight As Single
    
    ' 定义参数，可根据需求修改
    Const ORIGINAL_RIGHT_OFFSET = 0 ' 原图片距右侧页边距距离（厘米）
    Const VERTICAL_OFFSET = 4.2     ' 图片距下方页边距距离（厘米）
    Const SHAPE_SIZE = 1.2          ' 图片边长（厘米）
    Const TARGET_RIGHT_OFFSET = 3.7 ' 新图片距右侧页边距距离（厘米）
    
    ' 获取当前页面的宽高（单位：磅，Word VBA默认单位）
    pageWidth = ActiveDocument.PageSetup.PageWidth
    pageHeight = ActiveDocument.PageSetup.PageHeight
    
    ' 遍历所有浮动对象，筛选符合条件的目标图片
    For Each originalShape In ActiveDocument.Shapes
        ' 校验：是图片、尺寸匹配、位置匹配
        If originalShape.Type = msoPicture And _
           originalShape.Width = CentimetersToPoints(SHAPE_SIZE) And _
           originalShape.Height = CentimetersToPoints(SHAPE_SIZE) And _
           ' 计算距右侧页边距的距离：页面宽度 - 图片左坐标 - 图片宽度
           pageWidth - originalShape.Left - originalShape.Width = CentimetersToPoints(ORIGINAL_RIGHT_OFFSET) And _
           ' 计算距下方页边距的距离：页面高度 - 图片上坐标 - 图片高度
           pageHeight - originalShape.Top - originalShape.Height = CentimetersToPoints(VERTICAL_OFFSET) Then
            
            ' 复制原图片
            originalShape.Copy
            ' 粘贴到文档，生成新图片对象
            Set newShape = ActiveDocument.Shapes.Paste(Link:=False)
            
            ' 设置新图片的水平位置：页面宽度 - 目标右侧距离 - 图片宽度
            newShape.Left = pageWidth - CentimetersToPoints(TARGET_RIGHT_OFFSET) - newShape.Width
            ' 保持垂直位置与原图片一致
            newShape.Top = originalShape.Top
            ' 保持环绕方式与原图片一致（文字上方/下方）
            newShape.WrapFormat.Type = originalShape.WrapFormat.Type
            
            Exit For ' 找到目标图片后终止遍历
        End If
    Next originalShape
End Sub

三、简化版（已知图片名称时） #

如果你知道目标图片的名称（右键图片→格式→大小和属性→查看名称），可以直接通过名称定位，代码更简洁：

Sub 按名称复制调整浮动图片()
    Dim originalShape As Shape
    Dim newShape As Shape
    Dim pageWidth As Single
    
    Const TARGET_RIGHT_OFFSET = 3.7 ' 新图片距右侧页边距距离（厘米）
    
    ' 替换为你的图片名称，比如"Picture 1"
    Set originalShape = ActiveDocument.Shapes("Picture 1")
    
    pageWidth = ActiveDocument.PageSetup.PageWidth
    
    ' 复制粘贴
    originalShape.Copy
    Set newShape = ActiveDocument.Shapes.Paste(Link:=False)
    
    ' 调整位置
    newShape.Left = pageWidth - CentimetersToPoints(TARGET_RIGHT_OFFSET) - newShape.Width
    newShape.Top = originalShape.Top
    newShape.WrapFormat.Type = originalShape.WrapFormat.Type
End Sub

四、使用方法 #

1. 打开Word，按下Alt + F11打开VBA编辑器
2. 右键左侧的文档对象→插入→模块
3. 将上述代码粘贴到模块窗口中
4. 按下F5运行宏，或回到Word界面通过开发工具→宏选择运行

内容的提问来源于stack exchange，提问作者user3055937