 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
David Kuo
註冊時間: 2014-12-28
文章: 1
第 1 樓
|
 發表於: 星期日 十二月 28, 2014 11:09 pm 文章主題: 請教各位先進,在vfp中我啟動word後,如何在vfp中畫word的表格? |
 |
|
| 我有一個需求就是在vfp程式中直接啟動word,同時將資料寫到word中,目前我已經會寫直接啟動word並將資料寫到word中,但我還需要畫表格,請教各位先進是否知道如何下命令?非常感謝. |
|
| 回頂端 |
|
 |
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 2 樓
|
| 發表於: 星期一 十二月 29, 2014 6:18 am 文章主題: |
|
|
| 我的建議是，先畫好表格，再用vfp把資料填進去 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 3 樓
|
| 發表於: 星期一 十二月 29, 2014 9:04 am 文章主題: |
|
|
GOOGLE "Office Automation with Foxpro"
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
215001
註冊時間: 2003-06-11
文章: 393
第 4 樓
|
| 發表於: 星期一 十二月 29, 2014 2:19 pm 文章主題: |
|
|
| 代碼: |
oWord = CREATEOBJECT("Word.Application")
oWord.Visible = .T.
oWord.Documents.Add()
oWord.ActiveDocument.Tables.Add( oWord.ActiveDocument.Range(), 10+1, 4 , 1, 0)
WITH oWord.ActiveDocument.Tables(1)
.Columns(1).SetWidth( oWord.CentimetersToPoints(1.67),0 )
.Columns(2).SetWidth( oWord.CentimetersToPoints(17),0 )
.Columns(3).SetWidth( oWord.CentimetersToPoints(2.12),0 )
.Columns(4).SetWidth( oWord.CentimetersToPoints(1.19),0 )
* 標題列
WAIT WINDOW "請稍後 ....." TIMEOUT 2 && 等表格處理好.避免太快
.Cell(1,1).select
oWord.Selection.InsertAfter("日 期")
.Cell(1,2).select
oWord.Selection.InsertAfter("內 容")
.Cell(1,3).select
oWord.Selection.InsertAfter("備註")
.Cell(1,4).select
oWord.Selection.InsertAfter("組別")
ENDWITH
oWord.Activate
|
word 版面設定請改成橫式 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
