单词vba搜索<tn>，如果<tn>在一个段落中活动超过3次，则将全部更改为<fred>即FRED <tn> Wilma <tn> Pebbles <tn> BamBam <dn Dino

Question

我需要使用<tn>搜索并替换<NEST>，但只能搜索每个段落/行中出现两次以上的内容： 即 摩登原石<tn>弗雷德<tn>威尔玛（保留此段落）

Flintstones <tn> Fred <tn> Wilma <tn> Pebbles <tn> BamBam <tn> Dino（更改为） 打火石<NEST> {佛瑞德{1}} {威尔玛{1}} {卵石{1}} {BAMBAM {1}}恐龙

我尝试过，但我的知识非常有限。 在此先感谢您的帮助。

Answer 1

这是一个小宏，可以为你工作。快乐的VBA： - ）

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