 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期一 九月 01, 2003 9:32 pm 文章主題: Word控制之頁面篇(轉貼) |
 |
|
來源:雅狐 xwy
Word控制之頁面篇
| 代碼: | ****************************************
* Word控制之頁面篇 *
* 1.0 2003.06.15 *
* 雅狐論壇 www.yafox.com *
****************************************
寫在前邊的廢話:
前些日子寫了EXCEL控制的幾篇文章,大家似乎沒有什麼興趣(�]為沒有多少的流覽量嘛,好傷心 ;-(
或者大家已經有這方面的資料了,既然這樣那就寫幾篇關於WORD控制的文章吧,
�]為這方面的文章網很少見,其次WORD的排版能力確實比EXCEL強很多,
對於不規則表格的處理,非它莫屬,不過本文不深入討論不規則表格,
只是把它當成EXCEL之外的另一種選擇,為不熟悉EXCEL的用戶,
或者需要特定格式排版的用戶提供另一種方式的輸出報表.
WAIT "正在訪問 Word 軟體……" WINDOW NOWAIT
WordApp=CREATEOBJECT("Word.application") &&訪問WORD
If Type("WordApp")#"O"
WAIT CLEAR
MessageBox( "訪問Word失敗！請檢查你的系統是否正確安裝 Word 軟體！",48,"Word不正常")
RETURN .f.
ENDIF
WordApp.Caption ="許文遠"
WordApp.Documents.Add &&建立一個新文檔
WordApp.Documents(1).PageSetup.PaperSize =7 && 7-A4 6-A3 2-241 &&紙張類型
WordApp.ActiveDocument.PageSetup.Orientation =0 && 紙張方向 0-豎 1-橫
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 &&頁面對齊方式 0-上 1-中3-下
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).Range.Paragraphs.Alignment=2 &&頁�}居中
WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment= 1 &&增�[一個居中的頁碼域在頁�}
WordApp.Visible =.t. &&使Word可視
**************************************** |
未完待繼,且聽下回表格篇,88
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
guku1101
註冊時間: 2006-07-03
文章: 84
來自: 高雄
第 2 樓
|
| 發表於: 星期一 十一月 19, 2018 3:14 pm 文章主題: |
|
|
感謝分享
_________________
BB |
|
| 回頂端 |
|
|
KEN3238
註冊時間: 2011-09-19
文章: 1
第 3 樓
|
| 發表於: 星期三 十一月 28, 2018 10:48 am 文章主題: |
|
|
| 感謝分享!!(樓主若能分享一下Visio的批量替換??!! 謝謝!!!) |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
