关于WORD文本框编程的问题

Set   Wordapp   =   CreateObject("Word.Application")  
          Set   Worddoc   =   Wordapp.Documents.Open(App.Path   &   "\junbiao.doc")  
          Worddoc.Shapes(1).TextFrame.TextRange   =   "ee"  
  这些代码错在哪里,出现了第三条语句错误.  
  请问有好的方法使VB能对WORD文本框附值 问题点数：0、回复次数：4Top

1 楼RUKYO（蠢蠢的男子汉 - 恋星夜柔光，舔烈酒豪情）回复于 2004-09-04 03:47:14 得分 0

改成这样试试看：  
  Set   Wordapp   =   CreateObject("Word.Application")  
  Set   Worddoc   =   Wordapp.Documents.Open(App.Path   &   "\junbiao.doc")  
  Wordapp.ActiveDocument.Shapes.AddTextbox   Orientation:=msoTextOrientationHorizontal,   Left:=100,   Top:=100,   Width:=300,   Height:=200  
  Wordapp.ActiveDocument.Shapes(1).TextFrame.TextRange   =   "ee"  
  Top

2 楼monkeychendeng（monkey）回复于 2004-09-04 16:24:36 得分 0

是，我自己的问题，没有把shapes(index)设置对  
  请教我有一个文档是没有页眉的，另一个有，而且有页码  
  请问如果把两个文档合在一起，那么怎么样使他们保持原来的风格。Top

3 楼jam021（jam）回复于 2004-09-05 20:46:46 得分 0

把没页眉的考进来不行吗?Top

4 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2004-09-06 16:20:49 得分 0

是呀，  
   
  反正都是文档，你就直接copy进来吧。Top

相关问题

• 文档
• word
• wordapp
• worddoc
• shapes
• set

• 帖主：monkeychendeng

• Visual Basic类图书
• Visual Basic类源码下载