Word vba 宏应用实例(一)

Word vba 宏批处理应用实例（一）

Office办公软件使用过程中，应用宏进行批处理操作，能帮助工作者节省大量时间，提高办公效率与准确性，而且是一件非常有意思的事情。废话不说了，直接上实例——Word vba之文档表格内容自动拷贝。

举个栗子，有两个word文档：A和B。A中有200页，每页中有一个表格，表格第一行需要录入天气数据，见图1所示。B中有一个表格，有200行，每行有1条天气数据，见图2所示。现在需要把文档B中的天气数据拷贝到文档A 中，你会怎么处理？CTRL+C然后CTRL+V，想想——心累。。。。手好酸。。。。。。。。然而，如果你用Word vba 来处理，你就可以坐在旁边喝咖啡了。

图1 Word文档A

图2 文档B

操作过程很简单，代码也就几行：

1）打开文档A，进入视图选项卡，点击宏图标，打开宏界面，如图。

2）宏名随便输入个名称如“aa”，点击创建，进入Word vba 工程界面，然后复制以下代码，覆盖原有内容，如下图。完成后保存，若无法保存，文档A 另存为启用宏的Word文档（*.docm）。

Sub tianqi_copy()

Dim source, target, ttt As String

source = ""

target = ""

target =

Dim dias As Dialog

Set dias = Dialogs(wdDialogFileOpen)

If dias.Show = -1 Then

source =

End If

If source = "" Or target = "" Then

Exit Sub

End If

Windows(source).Activate

For n = 1 To ActiveDocument.Tables(1).Rows.Count

Windows(source).Activate

ttt = ActiveDocument.Tables(1).Cell(n - 1, 1).Range

ttt = Replace(ttt, Chr(13), "")

Windows(target).Activate

ActiveDocument.Tables(n).Cell(1, 1).Range = ttt

Next

End Sub

3）关闭word vba工程界面，再次点击文档 A 宏选项，这回就有个tianqian_copy的宏，选择运行，弹出文件选择窗口，选择B文档，然后就等待执

行完毕，时间长可以去喝个咖啡，回来就看到文档A中每个表格已经录好了天气数据。

下期Word vba再举个高级的栗子，那个代码就长了。