利用 word VBA 將投標檔案偏離參數列列資料複製至技術偏差表中

geyee發表於2024-06-03

使用 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中一個表格的情況。遍歷行，依次寫入或複製貼上相應資料至對應錶行。

相關文章