域无法正确赋值，这是否Word域的一个Bug???

yisuylm · 发表于 2009-4-9 18:35

Sub Test()
  Set myField = ActiveDocument.Fields.Add(Selection.Range, wdFieldAddin)
  myField.Result.Text = "abc"
  MsgBox  myField.Result.Text
End Sub

这段代码生成的AddIn域，虽然代码myField.Result.Text = "abc"已经赋值，但是域值为空，从界面也可以看到，ABC并不是myField的域值，但是在WPS中却是预期结果，不知道是我的机器环境问题，还是word的bug，凡请大家帮忙测一下，是不是你们的系统也有同样问题

yisuylm · 发表于 2009-4-9 18:41

在线等大家的测试结果

yisuylm · 发表于 2009-4-9 18:55

为了方便，上传一个附件

yisuylm · 发表于 2009-4-9 21:28

没有人试吗？

守柔 · 发表于 2009-4-10 06:30

原帖由 yisuylm 于 2009-4-9 18:35 发表
Sub Test()
  Set myField = ActiveDocument.Fields.Add(Selection.Range, wdFieldAddin)
  myField.Result.Text = "abc"
  MsgBox  myField.Result.Text
End Sub

这段代码生成的AddIn域，虽然代码myField.Re ...

Sub Test()
Dim myField As Word.Field
Set myField = ActiveDocument.Fields.Add(Selection.Range, wdFieldAddin)
myField.Data = "ABC"
MsgBox myField.Data
End Sub
烦请学习一下Field对象的基本属性。

daocao2003 · 发表于 2009-4-10 09:47

终于等到守柔出来说了句话，昨天我试了半天，一直以为楼主的代码是错的，可惜才疏学浅不敢肯定。

yisuylm · 发表于 2009-4-10 12:31

回5楼守柔版主，myField.Data = "ABC"，这个属性是Addin类型的域的特定属性，这个我知道，请您把那段代码在wps2007中进行测试，是完全正确的，跑玩测试代码后，另存为word文档，在word中打开也是正常的，但是代码在word中运行，却不是需要的结果

yisuylm · 发表于 2009-4-10 12:37

为了证实我的说法，我上一个用wps2007另存的word文档，再看那个域，却是正常的，域结果和域合在一起了

yisuylm · 发表于 2009-4-11 10:22

经过反复测试，确实是word的bug，已经解决，代码这样写就可以了：
Sub Test()
Set myField = ActiveDocument.Fields.Add(Selection.Range, wdFieldQuote, "Test")
myField.Code.Text = "Addin"
myField.Result.Text = "abc"
End Sub

http://hi.baidu.com/%B1%F0%CE%CA ... 9e9c1741341717.html

luoshiying2005 · 发表于 2013-10-31 14:22

楼主是个高手

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

[求助] 域无法正确赋值，这是否Word域的一个Bug???

赞守柔版主