| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3278081
建立时间:2005年6月6日 |
| |
|
 [delpih编程]vba对word中域的直接操作
软件技术
吕向阳 发表于 2010/9/16 15:28:20 |
| 本代码直接作用为，用一个循环，将所有的域遍历一次，接着判断是否是一个链接到excel单元格的域，如是，则将其链接的excel的路径文件改为新的路径。 也就是实现了域的链接表格动态变化。For i = 1 To ActiveDocument.Fields.Count'MsgBox ActiveDocument.Fields.Item(i).TypeIf ActiveDocument.Fields.Item(i).Type = 56 ThenMsgBox ActiveDocument.Fields.Item(i).Codestrtmp = ActiveDocument.Fields.Item(i).CodeActiveDocument.Fields.Item(i).Code.Text = Replace(strtmp, "D:\\My Documents\\财务报表附注模板\\新兴模板附注.xls", "D:\\My Documents\\财务报表附注模板1\\新兴模板附注.xls", 1, 1, vbTextCompare)End IfNext i |
|
|