EXCEL生成WORD工作实例分享.pdf

EXCEL生成WORD工作实例分享--第1页 EXCEL生成WORD工作实例分享 在工作中经常会碰到EXCEL中的数据要复制到WORD文档中，工作量大而且不能 出错。本文是本人在铁塔工作过程中碰到的一种情况，与大家分享。 一、 实现工作目标 将”启用协议.xlsm”表中数据（如图1）中每行的数据生成一个WORD文档(如图2) 图1 图2 需替换图2中标红及有下划线的文字，并生成单站协议。 EXCEL生成WORD工作实例分享--第1页 EXCEL生成WORD工作实例分享--第2页 二、 实际操作步骤 1.先制作一个工作WORD 模板取名“mod.docx”并将内容修改为如下图： 2、打开”启用协议.xls ” EXCEL 表格，按快捷键ALT+F11 打开宏编辑窗口如下图： 3、选择工具-引用，弹出窗口中添加可使用的引用：microsoft word 14.0 object library EXCEL生成WORD工作实例分享--第2页 EXCEL生成WORD工作实例分享--第3页 4、选择启用协议数据所在的 Sheet，双击打开代码窗口，将下面代码复制粘贴的窗口 中： Sub 启用协议() If [站点数量] = 0 Then Exit Sub Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim m As Integer Dim n As Integer Application.DisplayAlerts = False Application.ScreenUpdating = False '关闭屏幕刷新 Load UF UF.Show UF.Label5.Caption = "0/" & [站点数量].Value UF.Label6.Caption = "宁德" '修改“宁德” UF.Repaint j = [站点数量].Value For i = 1 To j 'j 改为生成文档数量 'On Error Resume Next '捕捉错误 UF.Label5.Caption = i & "/" & [站点数量].Value UF.Label6.Caption = "宁德" & Cells(i + 2, 2) '修改“宁德” UF.Label7.Caption = Cells(i + 2, 3) UF.Repaint Dim oSt As Range, wdDoc As Word.Document, wdRange As Word.Ra