吕向阳 发表于 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 |
联系客服