怎样另存为一个新的word文件?

[wode88]

Private Sub Command1_Click()
Set docApp = CreateObject("Word.Application")
docApp.Visible = True

Set doc1 = docApp.Documents.Open("C:\a\b\c.doc")

docApp.Selection.Find.ClearFormatting
With docApp.Selection.Find
.Text = "国家"
.Replacement.Text = "中国"
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
docApp.Selection.Find.Execute
docApp.Selection.TypeText "中国"
doc1.Close
Set doc1 = Nothing
docApp.Quit
Set docApp = Nothing

End Sub

数据读到c.doc后怎样能另存为一个ok.doc并保存在C:\a\b\ 下。

[faysky2]

doc1.SaveAs "C:\a\b\.ok.doc"

[faysky2]

......
doc1.SaveAs "C:\a\b\.ok.doc"

doc1.Close
Set doc1 = Nothing
docApp.Quit
Set docApp = Nothing

End Sub

[wode88]

我还有个问题？
c.doc里的国家有二个或二个以上的话怎才能把中国二个字全部替换例如：
c.doc里有
世界上人口最多的是国家。
世界上最大的发展中-国家

世界上人口最多的是中国。
世界上最大的发展中-中国

我会马上再加２０分．

[wode88]

我已经加了20分了。

[vansoft]

用查找替换的方法。
录一下宏，学习一下代码，就知道了。

[faysky2]

在查找前面加上两句试试：

......
docApp.Selection.WholeStory
docApp.Selection.Find.ClearFormatting

docApp.Selection.Find.ClearFormatting
With docApp.Selection.Find
.Text = "国家"
.Replacement.Text = "中国"
......

[faysky2]

docApp.Selection.WholeStory
docApp.Selection.Find.ClearFormatting
docApp.Selection.Find.Replacement.ClearFormatting
With docApp.Selection.Find
.Text = "国家"
.Replacement.Text = "中国"
......

[白发程序猿]

在word里录制宏，操作你所要的操作，看看那个宏就知道 了