把对象里的属性定义替变量后运行报错

把对象里的属性定义为变量后运行报错
运行ole_1.object.Document.Bookmarks.Item( sBookMarkName ).Range.Text = sText报错
运行ole_1.object.Document.Bookmarks.Item('xm').Range.Text = stext不报错，
想把sBookMarkName 当做变量怎么写？？
------解决方案--------------------
要是能用MODIFYT一样方式操作就好了
------解决方案--------------------
这个知道，恐怕不行。。。
帮顶。
------解决方案--------------------
这个不大清楚，帮顶！加引号试试
------解决方案--------------------
加引号了不行。
看来只能用 CHOOSE case 一个个的判断了。