请问，怎样在word中的指定位置插入数据。谢谢！

Question

请问怎样通过VB6+Word2000实现：首先判断打开的word文档有多少页，然后在每页的固定位置写入数据
比如：一个文档有3页，在每页的第34行第5列开始插入数据非常感谢！！我现在只会打开指定的word文档Dim WrdApp As Word.Application    Set WrdApp = CreateObject("Word.Application")
  
WrdApp.Visible = True
  
WrdApp.Documents.Open ("c:\test.doc")

Answer 1

Selection.MoveDown Unit:=wdLine, Count:=34
Selection.MoveRight Unit:=wdCharacter, Count:=5

Answer 2

在WORD中定义书签,然后通过VBA进行书签替换就行了,具体操作看此贴:http://community.csdn.net/Expert/topic/4205/4205111.xml?temp=.8663294

Answer 3

谢谢各位不好意思，我一开始没有说清楚
我的实际情况是：word文档的页数不固定，但是要写入内容的位置是固定的，从每页第34行第5列开始写入一个字符串，用cuizm(射天狼)书签的方法是不是需要在每一页上都需要加一个书签，然后替换所有的书签，可我的页数是不固定的，请问具体怎样实现呢？万分感谢！！

Answer 4

打开word，然后选菜单 工具-〉宏-〉录制宏
在word里手动做一遍要做的插入操作，然后停止录制宏选菜单
工具-〉宏-〉visul basic 编辑器
打开编辑器，里面左边的窗口中有个模块的文档，选择它，会看到里面的代码，这个代码就是和刚才你做的动作等效的vb代码，研究一下帖到vb程序里就可以了with wrdapp
 那段代码。。end with