word的格式已經設計好了的
如果在報表里面做
要畫很多線又要調位置
要花很多時間才完成word里面很簡單的事情啊
uj5u.com熱心網友回復：
ClearoWord = CREATEOBJECT('Word.Application')
oWord.Documents.Open(GetFile())
nPages = oWord.ActiveDocument.ComputeStatistics(2) && Number of Pages
nWords = oWord.ActiveDocument.ComputeStatistics(0) && Number of Words
nLines = oWord.ActiveDocument.ComputeStatistics(1) && Number Of Lines
nChars = oWord.ActiveDocument.ComputeStatistics(3) && Number Of Characters no spaces
nPara = oWord.ActiveDocument.ComputeStatistics(4) && Number Of Paragraphs
nCharSp = oWord.ActiveDocument.ComputeStatistics(5) && Number Of Characters with Spaces
? "頁數：" + Transform(nPages)
? "字數：" + Transform(nWords)
? "行數：" + Transform(nLines)
? "段落：" + Transform(nPara)
? "字符(帶空格)：" + Transform(nCharSp)
oWord.Quit(.F.)
oWord = .NULL.
*****************************
VFP呼叫WORD舉例
* VFP_WORD.PRG -- VFP 通過 OLE 呼叫 Word, 產生新檔案:
ow1 = CreateObject("Word.Basic")
c_WordVer = ow1.AppInfo(2) && Word 版本號
ow1.AppShow
IF c_WordVer = [8.0]
ow1.AppMaximize
ENDIF
ow1.FileNewDefault
*** 使之后字符數字預設字體為宋體:
ow1.StartOfLine
ow1.EndOfLine(1)
ow1.Font("宋體")
ow1.CenterPara
ow1.Font("楷體_gb2312")
ow1.FontSize(42)
*初號字:42, 1號字:26, 2號字:22, 3號字:16,
* 4號字:14, 5號字:10.5, 6號字:7.5
ow1.FontSize(16)
ow1.Insert("某某單位")
ow1.Font("宋體")
ow1.FontSize(7.5)
ow1.Insert("XXXX表")
ow1.Insertpara
ow1.Leftpara
ow1.Insertpara
ow1.Insertpara
ow1.Font("宋體")
ow1.FontSize(10.5)
ow1.Insert("張三 ZhangShan 1963.01.23 1234.56")
ow1.Insertpara
ow1.Insert("李四 LiSi 1974.04.01 876.54")
ow1.Insertpara
ow1.Insert("王五 WangWu 1985.12.31 765.43")
ow1.Insertpara
ow1.Insert("趙錢孫李 ZhaoQianSunLi 1900.01.01 5432.10")
ow1.Insertpara
ow1.Insert(" 制表：XXX")
ow1.Insertpara
IF c_WordVer = [7.0]
ow1.ToolsOptionsGeneral(,,,,,,,,,,,,,2)
ENDIF
IF c_WordVer = [8.0]
ow1.ToolsOptionsGeneral(.T.,.F.,.F.,.F.,.T.,.F.,.F.,.F.,.T.,.T.,2,.T.,.T.,.T.)
ENDIF
ow1.FilePageSetup(0,1,"12","12","10","10","0")
IF MESSAGEBOX([列印預覽嗎?], 4+32) = 6
IF ow1.FilePrintPreview() != -1
ow1.FilePrintPreview
ENDIF
ENDIF
WAIT [按任意鍵繼續...] WINDOW TIMEOUT 60
IF ow1.FilePrintPreview() = -1
ow1.ClosePreview
ENDIF
IF MESSAGEBOX([存盤嗎?], 4+32) = 6
ow1.FileSaveAs("TEST1.DOC") && 預設目錄: C:\My Documents
ELSE
ow1.SetDocumentDirty(0) && 將檔案作為“干凈”處理
ow1.FileClose
ENDIF
*ow1.FileExit(2) && 退出 Word,不保存修改后的檔案退出
* 或:
*ow1.FileQuit(2) && 退出 Word,不保存修改后的檔案退出
* 或:
ow1.AppClose
RELEASE ow1
RETURN
uj5u.com熱心網友回復：
怎么可以看到我的檔案
uj5u.com熱心網友回復：
可以但是很麻煩，建議直接在報表里做，用著可能更方便，也比較可控轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/59334.html
標籤：VFP
上一篇：greenplum 報錯