 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期一 九月 01, 2003 8:57 pm 文章主題: 產生Word文件(轉貼) |
 |
|
產生Word文件(轉貼)
| 代碼: | ****************************************
* Word控制之示例篇 *
* 1.0 2003.06.18 *
* 雅狐論壇 www.yafox.com *
****************************************
WAIT "正在訪問 Word 軟件 " WINDOW NOWAIT
WordApp=CREATEOBJECT("Word.application")
If Type("WordApp")#"O"
WAIT CLEAR
MessageBox( "訪問Word失敗！請檢查你的繫統是否正確安裝 Word 軟件！",48,"Word不正常")
RETURN .f.
ENDIF
WAIT "正在�]置 Word 頁面 " WINDOW NOWAIT
WordApp.Visible =.f.
WordApp.Caption ='測試'
WordApp.Documents.Add
WordApp.Documents(1).PageSetup.PaperSize =7
WordApp.ActiveDocument.PageSetup.Orientation =0
WordApp.Documents(1).PageSetup.TopMargin =26.4 *2.835
WordApp.Documents(1).PageSetup.BottomMargin =25.4 *2.835
WordApp.Documents(1).PageSetup.LeftMargin =19.0 *2.835
WordApp.Documents(1).PageSetup.RightMargin =19.0 *2.835
WordApp.Documents(1).PageSetup.VerticalAlignment =0
WordApp.Documents(1).PageSetup.HeaderDistance =22.0*2.835
WordApp.Documents(1).PageSetup.FooterDistance =19.0*2.835
WordApp.Documents(1).Sections(1).Headers(1).Range.Text="www.yafox.com 許文遠 xuwy@21cn.com"
WordApp.Documents(1).Sections(1).Headers(1).Range.Paragraphs.Alignment=2
*WordApp.Documents(1).Sections(1).Footers(1).Range.Text="頁�}"
WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment= 1
WordApp.Documents(1).Range.Text="我的標題"
WordApp.Documents(1).Range.Font.Size=13
WordApp.Documents(1).Range.Font.Name="黑體"
WordApp.Documents(1).Range.Paragraphs.Alignment= 1
WAIT "正在�]置 Word 表格 " WINDOW NOWAIT
WordTable=WordApp.Documents(1).Tables.Add(WordApp.Documents(1).Range(LENC(WordApp.Documents(1).Range.Text)-1,LENC(WordApp.Documents(1).Range.Text)-1),100,5) &&插入表格
WordTable.Range.Paragraphs.Alignment= 0
WordTable.Range.Font.Name="宋體"
WordTable.Range.Font.Size=11
WordTable.Range.Font.Bold=.f.
WordTable.Range.Font.Italic =.f.
WordTable.Range.Font.Underline =.f.
WordTable.Borders.Enable=1
WordTable.Borders(1).LineWidth = 12
WordTable.Borders(2).LineWidth = 12
WordTable.Borders(3).LineWidth = 12
WordTable.Borders(4).LineWidth = 12
WordTable.Rows(1).Borders(1).LineWidth = 12
WordTable.Rows(1).Borders(2).LineWidth = 12
WordTable.Rows(1).Borders(3).LineWidth = 12
WordTable.Rows(1).Borders(4).LineWidth = 12
WordTable.Columns(1).Width=10 *2.835
WordTable.Rows(1).Range.Font.Size=12
WordTable.Rows(1).Range.Font.Bold=.t.
*WordTable.Rows(1).Height=10 *2.835
WordTable.Rows(1).Cells.VerticalAlignment= 1
WordTable.Rows(1).Range.Paragraphs.Alignment = 1
WordTable.Rows(1).HeadingFormat=.t.
WAIT "正在生成數據 " WINDOW NOWAIT
FOR i=1 TO WordTable.Columns.Count
WordTable.Cell(1,i).Range.Text=CHR(64+i)
NEXT
FOR i=2 TO WordTable.Rows.Count
WordTable.Cell(i,1).Range.Text=i
NEXT
WAIT CLEAR
WordApp.Visible =.t.
****************************************
&&相關文章:
&&頁面篇 http://www.yafox.com/dispbbs.asp?boardID=7&ID=163
&&表格篇 http://www.yafox.com/dispbbs.asp?boardID=7&ID=200 |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
