如何调用word中一个vba函数CentimetersToPoints(0.35)？

pb65 2005-07-28 05:24:53

用oleobject.CentimetersToPoints(0.35)出错，不知道该如何调用

...全文

548 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

sbks 2005-12-15

打赏
举报

学习

wfliu 2005-12-03

打赏
举报

关注

lzheng2001 2005-12-03

打赏
举报

不会吧,我的也是WORD2003用以下代码完全是可以的

OLEObject lo_word
int li_Ret
lo_Word = CREATE OLEObject
li_Ret = lo_Word.ConnectToObject("","word.application")
IF li_Ret <> 0 THEN
//没有打开则新建
li_Ret = lo_Word.ConnectToNewObject("word.application")
if li_Ret <> 0 then
MessageBox('OLE错误','OLE无法连接，错误ID:' + string(li_Ret)+'可能是Word安装不正确！')
return
end if
END IF
lo_word.Documents.Add()
messagebox("test",string(lo_word.CentimetersToPoints(0.17)))
lo_word.quit()
destroy lo_word

vondon 2005-09-28

打赏
举报

string gs_message
oleObject PBObject
string ls_GUID
long ll_result

PBObject = CREATE oleObject
gs_message = "错误信息"
ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")
IF ll_result < 0 THEN
// handle the error
messagebox(gs_message,"连接失败：与powerbuilder.application连接出错！")
ELSE
ll_result = PBObject.GenerateGUID(REF ls_GUID)
END IF

if ll_result < 0 then
messagebox(gs_message,"生成guid失败：不能获得guid！")
return
end if

of_guid = mid(ls_guid,2,len(ls_guid) - 2)

j9dai 2005-07-29

打赏
举报

关注 + 友情UP

pb65 2005-07-29

打赏
举报

lzheng2001(１加１):
你说的方法我原来就是这么做的，现在提示无效的函数。
Pb6.5 + word2003

lzheng2001 2005-07-29

打赏
举报

我用以下代码试了一下,没问题的

OLEObject lo_word
int li_Ret
lo_Word = CREATE OLEObject
li_Ret = lo_Word.ConnectToObject("","word.application")
IF li_Ret <> 0 THEN
//没有打开则新建
li_Ret = lo_Word.ConnectToNewObject("word.application")
if li_Ret <> 0 then
MessageBox('OLE错误','OLE无法连接，错误ID:' + string(li_Ret)+'可能是Word安装不正确！')
return
end if
END IF
lo_word.Documents.Add()
messagebox("test",string(lo_word.CentimetersToPoints(0.17)))
lo_word.quit()
destroy lo_word

lzheng2001 2005-07-29