向word中传值的问题?

[ninibaobei]

我用下面的javascript程序在自定义的书签位置插入值
var wordapp=new ActiveXObject("word.application")
var zw1="shuqian.dot"
wordapp.application.visible=true
var current1=wordapp.application.documents.add(zw1)
ActiveDocument.BookMarks("aaa").Select'aaa为word模版中自定义的书签
wordapp.wordbasic.insert("aaaaaaaaaaaaa")
为什么不能实现,是我定义的书签不对,还是语句不对.

[davidnim]

向Word的书签传值，可以这样做
ActiveDocument.Variables("aaa").value = "aaaaaaaaaaaaaa"

[ninibaobei]

不能实现,你试过吗?可否说详细些.

[flyeyer]

Set object = uidoc.Getobject( "word" ) '''''获得OlE对象
Set wordapp=object.application
wordapp.activedocument.bookmarks("书签名").select
wordapp.wordbasic.insert("test")
ls中是这样添加的，没有问题，你可以自己再试一下。