.Wrap = wdFindContinue和=1;Replace:=wdReplaceAll 和=2有什么区别?

Lackfeeling

昨天在弄一个在excel vba中调用word字符替换的功能
弄了大半天,硬是死活不能替换
后来网上搜了下原因,有人指出将
.Wrap = wdFindContinue   改为=1
Replace:=wdReplaceAll   改为=2
结果,这代码在excel中能正常运行了!

源代码如下,有些我查了注释,并写了下来
(有些在按F1的帮助文档里查不到,不知道是不是我的安装包不完整的问题)
希望有人能在在 三个问号的注释处帮我解释一下啊???

Sub ReplaceWord() '要在工具菜单中引用Microsoft Word xx.0 Object Library
    Dim WdApp, Wd
    Application.ScreenUpdating = False

    Set WdApp = CreateObject("word.application")

    Set Wd = WdApp.Documents.Open(ThisWorkbook.Path & "\测试.doc*")

    WdApp.Visible = False

      WdApp.Selection.Find.ClearFormatting '???
            WdApp.Selection.Find.Replacement.ClearFormatting '???
            With WdApp.Selection.Find
                    .Text = "name" ' 待查字符串为name
                    .Replacement.Text = "姓名" '找到后替换为姓名
                    .Forward = True '向前继续搜索吗?
                    .Wrap = 1 '???这是啥意思? 原来为 .Wrap = wdFindContinue   改为=1后运行正常
                    .Format = False '???
                    .MatchCase = False '区分大小写吗
                    .MatchWholeWord = False '全字符匹配
                    .MatchByte = True '???
                    .MatchWildcards = False '使用通配符吗
                    .MatchSoundsLike = False '要返回一个与待查字符发音相近的单词吗?
                    .MatchAllWordForms = False '??? 如果为 True，意为 需查找待查文本的所有形式?
            End With
            WdApp.Selection.Find.Execute Replace:=2 '这是啥意思? 原来为 Replace:=wdReplaceAll   改为=2后运行正常

    Wd.SaveAs ThisWorkbook.Path & "\测试1.doc"
    Wd.Close
    WdApp.Quit
    Set Wd = Nothing
    Set WdApp = Nothing
    Application.ScreenUpdating = True
    MsgBox "转换完成", vbOKOnly, ""
End Sub

doitbest

WdApp.Selection.Find.ClearFormatting '???清除查找格式
WdApp.Selection.Find.Replacement.ClearFormatting '???清除替换格式
                      .Wrap = 1 '???这是啥意思? 原来为 .Wrap = wdFindContinue   1代表wdFindAsk 结束对所选内容或区域的搜索后，Word 会显示一条消息，询问是否搜索文档的其余部分。
                    .Format = False '不查找格式
                    .MatchByte = True '区分全角和半角
                     .MatchAllWordForms = False '??? 如果为 True，意为 需查找待查文本的所有形式，即英语单词的各种时态

Lackfeeling

doitbest 发表于 2014-10-16 20:46
WdApp.Selection.Find.ClearFormatting '???清除查找格式
WdApp.Selection.Find.Replacement.ClearFormatt ...

感谢前辈解惑  `(*∩_∩*)′
那还有这条呢
Replace:=wdReplaceAll  '这是替换所有找到的待查字符吧
他改为Replace:=2 '这是啥意思?  2就代表wdReplaceAll还是其他的呢?
我这边的F1里按不出来

doitbest

2代表wdReplaceNone，不替换
WdReplace 可以是下列 WdReplace 常量之一：
wdReplaceAll
wdReplaceNone
wdReplaceOne

Lackfeeling

doitbest 发表于 2014-10-17 15:33
2代表wdReplaceNone，不替换
WdReplace 可以是下列 WdReplace 常量之一：
wdReplaceAll

终于搞懂了 Thx  :)

hhjjpp

纠正一下，Wrap = wdFindContinue，表示使用通配符时，查找包含字符最多（连续的字符区域）的、符合查找条件的查找结果
Wrap = wdFindstop则指包容字符最少的查找结果；没有“wrap=3”这样的结果，不知会有Wrap=wdFindAsk

小花鹿

如果是前期引用应该是可以的，不用改的

weiyingde

doitbest 发表于 2014-10-16 20:46
WdApp.Selection.Find.ClearFormatting '???清除查找格式
WdApp.Selection.Find.Replacement.ClearFormatt ...

word find.excute的参数中，有的用数值表示，有的用英文表示，其中数值不只代表什么意思？
比喻：
matchcase:=true(或flase)，true和false用数字，分别是什么？
还有replace有
WdReplaceAll
WdReplaceNone
WdReplaceOne
这些常量若是用数值表示，各是什么？

doitbest

wdReplaceAll    2    替换所有匹配项。   
wdReplaceNone    0    不替换任何匹配项。   
wdReplaceOne    1    替换遇到的第一个匹配项
matchcase:=true 区分大小写
一般参数英文和数值可以互相代替，英文参数更“去专业化”，但在执行时要增加编译的环节

weiyingde

doitbest 发表于 2017-4-6 20:02
wdReplaceAll    2    替换所有匹配项。   
wdReplaceNone    0    不替换任何匹配项。   
wdReplaceOn ...

谢谢你的讲解。