利用 word VBA 将投标文件偏离参数表列数据拷贝至技术偏差表中

使用 vba 将正偏离参数表的第一列信息复制粘贴至对应的技术偏离表的第4列中。需要同时打开两个 word 文件，在技术偏差表中打开 VBE（可以用ctrl + f11 快捷键），插入模块。

忽略格式的方式，

Sub CopyDataToTable()

  Windows("正偏离参数表.docx").Activate
  
  For i = 1 To ActiveDocument.Tables(1).Rows.Count
    a = ActiveDocument.Tables(1).Cell(i, 1).Range.Text
    Windows("技术偏差表.docx").Selection.Tables(1).Cell(i + 1, 4).Range = Replace(a, vbCr, "")
  Next
  Rem Debug.Print ActiveDocument.Tables(1).Cell(2, 4).Range.Text

End Sub

考虑文本格式的方式

Sub CopyAndPasteDataToTable2()
  Windows("正偏离参数表.docx").Activate
  For i = 1 To ActiveDocument.Tables(1).Rows.Count Step 1
    On Error Resume Next
    ActiveDocument.Tables(1).Cell(i, 1).Range.Copy
    Windows("技术偏差表.docx").Selection.Tables(1).Cell(i + 1, 4).Range.Paste
  Next
End Sub

以上是针对 word中一个表格的情况。遍历行，依次写入或复制粘贴相应数据至对应表行。