1. delphi7向word寫入文本的問題——急求!!!
http://www.2ccc.com/article.asp?articleid=5146
2. Delphi7怎麼調用Word2007另存為PDF的功能
使用vba來指定保存的文件格式為pdf,當然前提必須已安裝MSOffice的PDF輸出插件(默認應該有)
procereTForm1.btn1Click(Sender:TObject);
var
wdo,wdoc,wdocs:OleVariant;
begin
wdo:=CreateOleObject('Word.Application');
wdocs:=wdo.Documents;
wdoc:=wdocs.Open('d: est.docx');
wdoc.ExportAsFixedFormat(OutputFileName:=
'd: est.pdf',ExportFormat:=17);
//查word的宏幫助
{OpenAfterExport:='True',OptimizeFor:='wdExportOptimizeForPrint',Range:=
'wdExportAllDocument',From:=1,To:=1,Item:='wdExportDocumentContent',
IncludeDocProps:='True',KeepIRM:='True',CreateBookmarks:=
'wdExportCreateNoBookmarks',DocStructureTags:='True',BitmapMissingFonts:=
'True',UseISO19005_1:='False');}
end;
3. 怎麼用delphi 7寫程序在Word中生成表格。
1)在調用Documents集合的Add方法時,Template參數不再使用EmptyParam值,而是指定為「值班日誌表.dot」,這樣添加的文檔將以「值班日誌表.dot」為模板;
2)在插入相應的內容時,我使用的是一個比較笨的方法,但是對於這個不規則的表格來說卻可能是最有效的方法:計算出該表格中共有多個個段落,然後通過語句在所有應插入內容的段落中插入內容。也懶得自己數了,定義了一個整型變數paraCount,將其賦值為WordDoc.Paragraphs.Count,最後用一個消息框顯示出來,得到該表格有38個段落,最後注釋掉以上代碼:)
3)接下來的工作就是數數了,數到一個該插入內容的段落,就寫一段代碼插入相應的內容。比如:「值班時間」(表頭)是第6段,接在後面該填入內容的空白段落就是第7段,於是寫代碼在第7段中插入實際內容。
最後,想說的是一個在操作Word 2000時很有用的幫助文件,VBAWRD9.CHM,裡面詳細介紹了Word 2000中使用的VBA,裡面介紹了很多有用的對象、屬性和方法,還有一些VB代碼作為示例,很容易可以想到對應的Delphi代碼。這個文件在Office 2000的安裝盤裡面可以找到,具體路徑忘記了)
希望採納,謝謝!