大虾求教！！怎样统计word中的行数？？？

我需要不定数的在word中追加文本，但是我怎用控制光标在最后一行？？

解决方案 »

  1.   

    提取出来,然后写的时候加进去就可以了
    dim strFile,strTemp as String
    dim IntLine as Integeropen "C:/abc.doc" for input as #1
    Do Until EOF(1)
      Line Input #1, strTemp
      strFile=strFile & strTemp
      IntLine=IntLine+1
    loopstrFile是装载后的结果
    IntLine是你要的行数
      

  2.   

    在word里启动录制宏，记录下你的操作然后打开宏研究一下代码就知道该怎么写了
      

  3.   

    我现在想要的就是随时获取word的总行数，随时在最后一行追加数据