VFP 愛用者社區

richshih · 註冊時間: 2007-10-11 文章: 153 第 1 樓

搜尋了很久多是用oWrod=Createobject("word.application") 無法坎入Form中
拉了activex 至Form中也不行

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 2 樓

oWrod=Createobject("word.application") 是非常好用的東西，小弟寫了不下數十支程式，用的不亦樂乎，您的目的是什麼？為何一定要在Form中呈現？

syntech · 發表於: 星期五四月 10, 2009 5:34 pm 文章主題:

借問一下,
你用過 FORM.ADDOBJECT()嗎?

http://topic.csdn.net/t/20030513/17/1778160.html

richshih · 註冊時間: 2007-10-11 文章: 153 第 4 樓

回樓上倆位先進
1)是用於寄信程式
oMseg=Createobject("MSMAPI.MAPIMessages")
其中oMseg.msgNoteText 原先是用MEMO欄位來取得使用者輸入的資訊但太單調又不支援超連結儲存所以想改用WORD來編輯
2)FORM.ADDOBJECT('oWord','Word.Application') 是無法建立的
請二位先進再多費神了

宏偉軟件 · 註冊時間: 2009-02-19 文章: 11 第 5 樓

用 ole綁定可以嗎實現思路先建立一個DBF表有個通用字段可以添加一個WORD文檔到表中
然後天界OLE綁定對象設置OLE綁定對象的數據源就OK

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 6 樓

　　那就對了!
　　若是用於『寫信程式』才需考慮內崁Word
　　若是用於『寄信程式』oWrod=Createobject("word.application") 真正首選

　　您先把使用者MEMO資料填進Word，愛怎麼美化都行，要超連結就超連結，直接呈現使用者面前，讓使用者編輯，編完存檔後，再用附件方式去把這Word寄出去

　　如果，您寄的是同樣內容，不同收件者，比如搬家通知等，利用Word的合併列印功能，更是幾行程式搞定，輕鬆愉快，請考慮認真研究Createobject("word.application")

　　又，謹建議，寄信方面，利用outlook可能會比Createobject("MSMAPI.MAPIMessages") 來的有效率，因為outlook可以有『寄信備份』功能（使用者事後也許會查他是那一天寄出去的），這項是Createobject("MSMAPI.MAPIMessages") 所做不到的；而且outlook本身就能美化內文，連內崁Word都省了，請搜尋相關文章

　　此外，syntech和宏偉軟件兩位先進所提的方法也適用，
　　不過，就寄信而言，實無需大費周章

richshih · 註冊時間: 2007-10-11 文章: 153 第 7 樓

我門公司的操作介面多是用VFP的程式,個人希望能做到單一介面 .最理想的方式是寄信收信都還在公司的操作介面,不希望為了收信寄信再去開OUtlook,word, 同時收到的內容與夾檔儲存於DBF達到共享, 登入Account & password 都於VFP單一完成 ,無須每台電腦都設定OUtlook ,電腦重灌就不用傷腦筋了,所以我是用如下的
ChilkatEmail2 ActiveX Reference
參作介面目前已完成上線了 ,現想改進寄信內文(Body)以前用MEMO傳遞,現想用FORM內坎WORD傳遞, 經樓上諸先進指導 ,宏偉軟件先進的方式應該可行, 不過尚未實做,目前試了一下syntech先進的
http://topic.csdn.net/t/20030513/17/1778160.html
可行也能於VFP內存成.Doc 目前只差一步, 我想VFP內存成.Htm ,用SaveAs("xx.Htm") 打開變亂碼 ,如存成DOC用WORD打開然後檔案>另存為>選.Htm存檔又是正常的 ,是否與SaveAs("aa.Htm",?,?,?....)後面的許多參數有關麻煩諸先進再不吝賜教

garfield · 發表於: 星期六四月 11, 2009 11:25 pm 文章主題:

去 word 錄巨集,
在 Virtual Basic 編輯器裡看到錄的巨集為
ActiveDocument.SaveAs FileName:="Doc1.mht", FileFormat:=wdFormatWebArchive _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
在"即時運算"裡輸入
? wdFormatWebArchiv
出現
9
表示在 vfp裡要用
word物件.ActiveDocument.SaveAs("Doc1.mht", 9 )
即可另存為單一檔案網頁檔
不管是word,excel, access, 你都可以運用這種操作方式來查到你要的指令.
希望對你有幫助.