vba对word中域的直接操作

吕向阳发表于 2010-9-16 15:28:20

本代码直接作用为，用一个循环，将所有的域遍历一次，接着判断是否是一个链接到excel单元格的域，如是，则将其链接的excel的路径文件改为新的路径。也就是实现了域的链接表格动态变化。

For i = 1 To ActiveDocument.Fields.Count
'MsgBox ActiveDocument.Fields.Item(i).Type
If ActiveDocument.Fields.Item(i).Type = 56 Then
MsgBox ActiveDocument.Fields.Item(i).Code
strtmp = ActiveDocument.Fields.Item(i).Code
ActiveDocument.Fields.Item(i).Code.Text = Replace(strtmp, "D:\\My Documents\\财务报表附注模板\\新兴模板附注.xls", "D:\\My Documents\\财务报表附注模板1\\新兴模板附注.xls", 1, 1, vbTextCompare)
End If
Next i

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。