在Wincc下是可以直接访问WORD文件的
为什么这段程序打不开WORD文件呢？
Dim k,m,aVarName(6),aVarValue(6),oWord,oApp,oTbl,oDoc
m=6
For k=1 To m
aVarName(k)=ScreenItems("lap"+CStr(k)).Text
aVarValue(k)=HMIRuntime.Tags("V6_Word_Value"+CStr(k)).Read
Next
Set oWord = CreateObject("Word.Application")
oWord.Visible =vbTrue
Set oDoc=oWord.Documents.Open(HMIRuntime.Tags("D:\neimeng").Read&"\111.doc")
Set oApp=GetObject(,"Word.Application")
oApp.Visible =vbTrue
Set oTbl =oApp.ActiveDocument.Tables(1)
For k=1 To m
oTbl.Cell(k+1,1).Range.Text=aVarName(k)
oTbl.Cell(k+1,2).Range.Text=aVarName(k)
Next
oApp.Quit
Set oApp=Nothing
Set oTbl=Nothing
这段程序是WINCC教程里的。