word vba搜索<；tn>；，如果<；tn>；在一段中激活超过3次将所有更改为<；弗雷德>；i、 e.弗雷德<；tn>；威尔玛<；tn>；卵石<；tn>；班巴姆<；tn>；恐龙

我需要搜索

并将其替换为

，但仅限于在每个段落/行中出现两次以上的内容： 即 Flintstones

Fred

Wilma（保持本段原样）

Flintstones

Fred

Wilma

Pebbles

BamBam

Dino（更改为） 弗林斯通

Fred

Wilma

Pebbles

BamBam

Dino

我试过了，但我的知识非常有限。

---

提前感谢您提供的帮助。

这里有一个小宏，可以帮您完成这项工作。快乐VBA:-）

Public Sub-ReplaceTN（）
**作为整数的Dim J
对于J=1到ActiveDocument.parations.Count**
ActiveDocument.段落（J）.Range.Select
如果UBound（拆分（Selection.Text，“”）>2，则
选择。查找
.Text=“”
.Replacement.Text=“”
.Forward=True
.Wrap=wdFindContinue
以
Selection.Find.Execute Replace:=wdReplaceAll
如果结束
**下一个J**End接头

感谢您的帮助，但是，这似乎取代了任何一行中出现的所有etc，而不仅仅是第三行和第四行etc。抱歉，如果我发送了令人困惑的信号，第一个计时器。代码更新为替换每个段落，而不是整个文档。查找标记在**之间的更改。希望这就是你要找的。

Public Sub ReplaceTN()
**Dim J As Integer
For J = 1 To ActiveDocument.Paragraphs.Count**
    ActiveDocument.Paragraphs(J).Range.Select
    If UBound(Split(Selection.Text, "<tn>")) > 2 Then
        With Selection.Find
            .Text = "<tn>"
            .Replacement.Text = "<NEST>"
            .Forward = True
            .Wrap = wdFindContinue
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End If
**Next J** End Sub