VFP 愛用者社區

[aforangel]

請教我已經開了一個已有內容的WORD檔出來, 請問我如何能在WORD檔中準確地移到第一頁中間某一個位置上打加入一些資料

sh=CREATEOBJECT("Word.Application")
sh.visible = .f.
sh.selection
sh.Documents.Open(alltrim(.text4.value))

可對WORD 的文件進行SEARCH嗎?
例如: 找到WORD檔內一個字叫 "NAME", 就移到NAME後3個位填上 JOHN

[ckp6250]

我word用得很頻繁
我來幫您

操控word最簡單的方法昰，預先在您的範本檔上，插入許多【書籤】，
之後，程式中，對那個書籤填上您要填的資料。

例如，word中，有一句『我愛小姐』，然後，您在「愛」和「小姐」中間，插入一個書籤，這個書籤，命名叫name
程式中，這樣寫：
sh.Selection.Goto(-1, , ,'name')
sh.Selection.TypeText('林志玲')

那麼，整句就會變成『我愛林志玲小姐』

大約是這樣啦，更多的變化，比如林志玲這三個字，要多大多小，要什麼顏色，您就再自行研究

學習方法，把您想做的事錄製巨集，然後，打開那個巨集，看看它怎麼寫，再把它轉換成vfp的語法

[aforangel]

嗯, 今晚就試, 謝謝CKP

不過對我來說資料填到就好了, 巨集我真的不懂用

[aforangel]

抱歉, 再請教一問題

sh=CREATEOBJECT("Word.Application")
sh.visible = .f.
sh.selection
sh.Documents.Open(alltrim(.text4.value))
sh.Selection.Goto(-1, , ,'xname')
sh.Selection.TypeText('林志玲')
sh.Selection.Goto(-1, , ,'xclass')
sh.Selection.TypeText('2A')
sh.Selection.Goto(-1, , ,'xno')
sh.Selection.TypeText('11')
sh.Selection.Goto(-1, , ,'barcode')
sh.Documents(1).range.Font.Name="標楷體"
sh.Selection.TypeText('9999343011122311010"')
sh.Documents(1).range.Font.Name="新細明體"

如果我只想印barcode時更改字體為"標楷體", 印完之後再返回"新細明體", 是加到這個位置嗎? 又是用這句command 嗎?

[ckp6250]

sh.Documents(1).range.Font.Name="標楷體"
改成
sh.Selection.Font.Name="標楷體"

想用vfp駕馭word,巨集得下點功夫研究
不可能每個動作都來發問

[jtcom01]

請教先進..
依上序程式..在word文件插入一書籤name,然後用程式執行將'林志玲'帶入name
是否可以用command執行列印word文件內容:我愛林志玲

[garfield]

你問的問題不就是這個主題說的範例嗎?
你應該會將 '林志玲' 這個文字變成變數吧 !?

[jtcom01]

謝謝先進..應該是我不會用CREATEOBJECT()..是否有範例課供參考..謝謝

[garfield]

4樓的文章就是最基本的範例啊,
如果這樣範例你有看沒有懂, 你就趁早死心吧, 免得浪費時間.

[jtcom01]

感謝先進..努力中...

[jtcom01]

感謝各位先進..終於懂了..
可以請教先進..如何將WORD文件預覽及印出呢?感激不盡

[garfield]

[jtcom01]

再次感謝先進..
已經能將程式中text1.value帶入word中的name書籤
但..不知如何在程式中將word文件印出或預覽..感謝

[jtcom01]

預覽為..
sh.Application.PrintPreview

列印該如何呢?? 請教各位先進

[garfield]

如果你不會或不想去錄word的巨集,
堅信知識是請教出來的, 那你會很累啊.
或許改用google 搜尋 keyword: createobject word.application 再加上 print 或其它你要查的功能
萬一你自認英文很差, 把 print 改成 列印, 這會出現中文相關資料,
又你除了VFP以外其它的程式語言都不會, 那你可以再加上 vfp
總算可以找到看得懂的資料,
祝好運.