Question

VB怎样读text文件并输出结果到word文档中？

例如，text文件中写着：
标题
=1
=2
=3
怎样利编写VB程序将其中的数字都读出来并在word中做表？
表格格式为：
标题
XX 1
XX 2
XX 3

Answer 1

dim xx(1000) as string '假设最多1000行
open "c;\1.txt" for input as #1
i=1
while not eof(1)
input #1, xx(i)
xx(i)=mid(xx(i),2) '把开始的=号去掉
i=i+1
wend
close #1
dim aa as new word.application
aa.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=i, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
for j= 1 to i-1
Selection.TypeText Text:="xx"

Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=xx(i)
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCell, Count:=1
next
aa.visibel=true

追问

说ActiveX部件不能创建对象，什么意思？

追答

你的机器上必须有word，另外需要把Word相关的类添加到引用，不知道你的office的版本，不知道具体是哪个类

追问

我安装了word，也引用了，是12.0，可是还是说不能创建啊

追答

把dim aa as new word.application改成

dim aa as word,apblication
set aa=createobject("word,apblication")
有些机器上office对象不能直接new，有些机器上可以

追问

我用VB打开excel前面加上Public excelapp As Object '声明Excel对象，就行了，但是word还是不行，是不是也要加个类似的？

追答

Selection.MoveDown 就是让光标向下移动，接着填写，移动的单位是wdLine，就是表格的一行