 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期一 九月 01, 2003 9:32 pm 文章主題: Word控制之表格篇(轉貼) |
 |
|
來源:雅狐 xwy
Word控制之表格篇(轉貼)
| 代碼: | ****************************************
* Word控制之表格篇 *
* 1.0 2003.06.17 *
* 雅狐論壇 www.yafox.com *
****************************************
寫在前邊的廢話:
如果沒有看過頁面篇請先查看 http://www.yafox.com/dispbbs.asp?boardID=7&ID=163
�{在應該講講重點了--表格,�}始之前大家且先聽我一段廢話吧
當我們建立了一個新的文檔,WORD是空白的,並不象EXCEL已經有了若干的單格
�]此我們要先建立表格,定義表格的各種屬性
另外事先說明一點,WORD表格的單格對VFP的一些格式是不支持的,
所以在輸出值這前建議將以下類型轉化為字元C型
1.邏輯型
2.日期,日期時間型 (EMPTY時輸出會出錯)
3.含有null值的
4.或者還有其他的吧,暫時我沒有用到的類型或者特定值,大家發�{了告訴我吧 :)
接上篇 http://www.yafox.com/dispbbs.asp?boardID=7&ID=163
WordTable=WordApp.Documents(1).Tables.Add(WordApp.Documents(1).Range(0,0),10,5) &&插入表格,10行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 &&�]置框線類型 0-無 1-實 其他的自己測試吧
WordTable.Borders(1).LineWidth = 12 &&框線寬度(允許的值2,4,6,8,12,18,24,26,48) Borders=1上 2左 3下 4右,此處是�]置表格外框
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 &&寬度,假�]第一列為1cm
WordTable.Columns(2).Width=20 *2.835
WordTable.Columns(3).Width=30 *2.835
WordTable.Columns(4).Width=40 *2.835
WordTable.Columns(5).Width=50 *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 &&垂直對齊 0-上 1-中 3-下
WordTable.Rows(1).Range.Paragraphs.Alignment = 1 &&水平對齊 0-左 1-中 2-右 4-分散
WordTable.Rows(1).HeadingFormat=.t. &&把第一行�]置為標題行
*以下為給單格填入資料
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
**************************************** |
未完待繼,且聽下回示例篇(如果你已經完全掌握了,可是跳過的),大家晚安!
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
