使用 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中一个表格的情况。遍历行,依次写入或复制粘贴相应数据至对应表行。
标签:Tables,VBA,word,Sub,参数表,Cell,Range,ActiveDocument From: https://www.cnblogs.com/geyee/p/18229225