如何在word文档中替换字符串？
1.在word模板中设定 <#title> 区域，我想用指定数据替换掉它，word中宏代码如下，如何改造成vfp代码
Sub Macro3()
'
' Macro3 Macro
' 宏在 2007-5-20 由 Juice 录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " <#TJBH> "
.Replacement.Text = " <#TJBHa> "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAllwdReplaceAll
End Sub
2.如何新建word文件并另存为mht网页文件,我的代码如下，可是用浏览器打不开，我不知道如何转换一下
oword = CREATEOBJECT( "Word.application ")
_fileName = FULLPATH( "AttachFile\通知通告\ " + ALLTRIM(STR(Year(date()))) + IIF(month(date()) < 10 , "0 " + ALLTRIM(STR(month(date()))), ALLTRIM(STR(month(date())))) + IIF(Day(date()) < 10 , "0 " + ALLTRIM(STR(Day(date()))), ALLTRIM(STR(Day(date())))) + ".mht ")
oword.Documents.Add
oword.ActiveDocument.Saveas(_fileName)
oword.Visible = .T.
首先感谢大家！
[解决办法]
第1个问题：可以参考
VFP统计WORD文件中某一词或字出现的次数
*-------------------------------------
例如，Word文件名为XWY.DOC，内容为：
中华人民共和国
中国
人民大会堂
以下为统计“人民”、“国”和“华”这几个词或字的出现次数：
WAIT "正在访问 Word 软件…… " WINDOW NOWAIT
WOLE=CREATEOBJECT( "Word.application ")
IF TYPE( "WOLE ")# "O "
WAIT CLEAR
MESSAGEBOX( "访问Word失败！请检查你的系统是否正确安装 Word 软件！ ",48, "没有安装Word ")
RETURN
ENDIF
WOLE.Documents.OPEN( "D:\TEST\XWY.DOC ")
WOLE.Documents(1).Select
WOLE.Selection.Copy
lcString=_CLIPTEXT
WOLE.QUIT
RELEASE WOLE
WAIT CLEAR
?OCCURS( '国 ',lcString) &&显示为2
?OCCURS( '人民 ',lcString) &&显示为2
?OCCURS( '华 ',lcString) &&显示为1
