通过VBA把1.doc的变量值写到2.doc里

suwei · 发表于 2006-2-20 14:54

我想要实现的功能如标题所示：把但即使使用了全局变量好像也无法传递这个值给另一个Word.doc，不知有何高见

konggs · 发表于 2006-2-20 15:55

具体，具体，再具体。

suwei · 发表于 2006-2-20 17:17

uXO2AeQL.zip (4.94 KB, 下载次数: 14) 具体需求一些在附件的 1.doc里！

suwei · 发表于 2006-2-20 22:01

自己来顶一下，斑竹高手们！

suwei · 发表于 2006-2-22 23:26

此问题不知有无解数，或者有更省事的办法来在不同文件间传递数据

smzc · 发表于 2006-2-23 09:30

可以先把文档值保存在文档，要用的时候再复制、粘贴过去

smzc · 发表于 2006-2-23 09:48

刚搞出来！

一、光标停在你的123位置，点击插入－＞域－＞类别（选“文档自动化”，域名选“DocVariable”，新域名输入faname)－＞确定，即可在宏中加入以下代码

For Each aVar In ActiveDocument.Variables
If aVar.Name = "faname" Then num = aVar.Index
Next aVar
If num = 0 Then
ActiveDocument.Variables.Add Name:="faname", Value:=123
Else
ActiveDocument.Variables(num).Value = 123
End If

'更改变量值，也可这样做，VB也太灵活了，也可向上面ELSE里面的那样做，搞不懂！

ActiveDocument.Variables("faname") = "中国农业银行扬中市支行"
'更新值

ActiveDocument.Fields.Update
MsgBox ("Wait....")
ActiveDocument.Variables("faname") = "电子银行部"
ActiveDocument.Fields.Update 哈哈，还能实时更改你所需要的值

如有问题，请发到我邮箱：smzc@fjsm.net

[此贴子已经被作者于2006-2-23 9:52:55编辑过]

suwei · 发表于 2006-2-23 20:06

高手！

		自动登录	找回密码
密码			免费注册

通过VBA把1.doc的 变量值 写到2.doc里

通过VBA把1.doc的变量值写到2.doc里