如何用pb打开word，急！

zhou2001 2003-01-27 11:22:11

如何编写打开一个已知名称的word文件？

...全文

451 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

iamknight 2003-04-21

打赏
举报

要求在本地装有WORD　，调用API　函数SHELLEXECUTE　具体用法参看MSDN。

chhwyj 2003-04-20

打赏
举报

去年的电脑报上面有，当然合订本上也会有，看看去？？也许会得到解决的方法！！

july 2003-04-20

打赏
举报

建议使用ole控件

xirumin 2003-04-19

打赏
举报

run( '路径 winword.exe '+ '你的文件路径全名')

LynnWang 2003-04-19

打赏
举报

关注

zhouweiwansui 2003-04-19

打赏
举报

如果你要在窗口里面显示word文件的内容,用ole显示;
如果你要在外部用word打开word文件,用函数shellexecute即可

wangkenping 2003-01-30

打赏
举报

OLEObject ole_object
ole_object = CREATE OLEObject

//连接PowerPoint
IF ole_object.ConnectToNewObject("word.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF

ole_1.open("c:\wordname.doc")

lonking 2003-01-29

打赏
举报

以前用过！是一API函数，直接到用即可！可查查！

zhou2001 2003-01-27

打赏
举报

我要的是打开word文件的脚本

wgy2008 2003-01-27

打赏
举报

constant integer ppLayoutBlank = 12
OLEObject ole_object
ole_object = CREATE OLEObject

//连接PowerPoint
IF ole_object.ConnectToNewObject("word.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF

ole_object.Visible = True

long ll_colnum,ll_rownum
constant long wdWord9TableBehavior = 1
constant long wdAutoFitFixed = 0
constant long wdCell = 12
string ls_value

//得到数据窗口数据的列数与行数（行数应该是数据行数 + 1）
ll_colnum = Long(dw_1.object.datawindow.column.count)
ll_rownum = dw_1.rowcount() + 1

ole_object.Documents.Add("C:\WINDOWS\Application Data\Microsoft\Templates\Normal.dot",false,0)
//ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range, ll_rownum, ll_colnum,wdWord9TableBehavior,wdAutoFitFixed)

string ls_colname
integer i,j
for i = 1 to ll_colnum
//得到标题头的名字
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
ls_value = dw_1.describe(ls_colname + ".text")
ole_object.Selection.TypeText(trim(ls_value))
ole_object.Selection.MoveRight(wdCell)
next

dw_1.setredraw(false)
ole_object.Selection.MoveLeft(wdCell)
for i = 2 to ll_rownum
for j = 1 to ll_colnum
dw_1.scrolltorow(i - 1)
dw_1.setcolumn(j)
ls_value = dw_1.gettext()
ole_object.Selection.MoveRight(wdCell)
ole_object.Selection.TypeText(ls_value)
next
next
dw_1.setredraw(true)

constant long wdFormatDocument = 0
//保存新建的文档
ole_object.ActiveDocument.SaveAs("sample.doc", 0,False,"",True,"",False,False,False, False,False)

//断开OLE连接
Ole_Object.DisConnectObject()
Destroy Ole_Object