VFP 愛用者社區

[chinyu]

Sub 巨集1()
'
' 巨集1 巨集
' 巨集錄製於 2005/4/8，錄製者 Customer
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "22222"
.Replacement.Text = "test22222"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
-------------------------------------------------------
程式如下：
oleWord=CREATEOBJECT("Word.Basic")
oleWord.FileOpen("e:\test.doc")
*oleWord.FilePrint(0,0,0,"","","",0,1,"",0,0,0,"")
oleWord.Selection.Find.ClearFormatting
oleWord.Selection.Find.Replacement.ClearFormatting

With oleWord.Selection.Find
.Text = "22222"
.Replacement.Text = "test22222"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
oleWord.Selection.Find.Execute Replace:=wdReplaceAll

oleWord.FileSaveAs("e:\word2.doc")
oleWord.AppClose("Microsoft Word")

請各位前輩幫忙看一下，在 With oleWord.Selection.Find 這行就出錯了。

[catjoke]

有時候由一個外掛的 Word Macro 來處理會好一些, 你亦不用照顧太多轉換的問題~~~

程式如下：
oleWord=CREATEOBJECT("Word.Basic")
oleWord.FileOpen("e:\test.doc")
oleWord.Run("巨集一")

理他娘如何如何, 一句就抓著來幹~

[chinyu]

已解決，主要是要開啟word當報表輸出用，要取代報表的預定內容，程式如下：
oleWord=CREATEOBJECT("Word.Application")
oleWord.Documents.Open("e:\test.doc")
*oleWord.Visible = .T.
oleWord.Selection.Find.Execute("22222",.F.,.F.,.F.,.F.,.F.,.T.,0,.F.,"測試",2) &&將[22222]字串全部取代為[測試]
oleWord.Selection.Find.Execute("11111",.F.,.F.,.F.,.F.,.F.,.T.,0,.F.,"測試1",2)

oleWord.ActiveDocument.SaveAs("e:\word2.doc")
oleWord.Application.Quit