word 利用 vba 批量盖章

Word利用VBA（Visual Basic for Applications）批量盖章的过程涉及创建自定义宏来自动化这个任务。以下是一个简单的步骤概述：

1. **打开VBA编辑器**：在Word文档中，点击“开发者”选项卡（如果没显示，需要在文件菜单里启用它），然后选择“Visual Basic”。

2. **创建新模块**：在VBA编辑器中，你会看到一个新的窗口，那里可以编写宏代码。右键点击"插入"区域，选择"模块"来添加新的VBA代码。

3. **编写盖章代码**：
- 使用`ActiveDocument Shapes.AddPicture`方法插入图片作为印章。
- 编写循环结构，如For Each Loop，遍历需要盖章的位置（例如，特定的文本框或表格范围）。
- 调用`Shape.Range.InsertAfter`将印章放置在指定位置，并调整大小和位置使其看起来像盖章。

Sub BatchStamp()
    Dim rng As Range
    Dim stampPath As String
    stampPath = "C:\path\to\your\stamp.png"
    
    Set rng = ActiveDocument.Tables(1).Range ' 例子：替换为你的盖章区域
    
    For Each cell In rng.Cells
        With ActiveDocument.Shapes.AddPicture(stampPath, msoFalse, msoTrue)
            .Left = cell.Left + cell.Width - .Width
            '.Top = cell.Top + cell.Height - .Height ' 位置调整
            .Width = cell.Width * 0.5 ' 适应宽度
            .Height = .Width ' 保持矩形形状
            .BringToFront ' 将印章置于文字之上
        End With
    Next cell
End Sub

4. **运行宏**：保存代码并关闭VBA编辑器，在Word文档中按Alt + F8，选中刚刚创建的宏（BatchStamp），然后点击“运行”。

记得替换`rng`变量中的`Tables(1)`为你实际想要操作的盖章范围，并根据需要修改印章位置计算公式。