如何为重复出现的一词组添加递增数字

流水淘金

比如，一篇文章里，有一词组重复出现很多次（词组以“论坛”为例）。我想在第一个“论坛”前面加上1，第二个“论坛”前面加上2，第三个“论坛”前面加上3…
以此类推，这个可以用word的替换功能来实现吗？要是替换不行的话，别的方法可以实现吗？

kqbt

如果只是针对个别或几个词组，用查找和替换就可以了：
1、，在文档中插入一个SEQ域，如：{ seq n }
2、把这个域代码整个“剪切”下来（它会自动保存至剪贴板中）
3、打开“替换”对话框，在“查找内容”栏中输入如：论坛
4、在“替换为”栏中输入：^c^&
5、单击“全部替换”
6、关闭“替换”对话框返回，全选文档，按F9键更新域，编号就会现身。
注意：如果要处理多个词组，记得把 seq n 中的 n 改为其他字符，确保一对一的对应关系。

pbdq

首先，如果用程序判断，怎么判断这个词属于词组的范围？（汉字分词，还是说这样的词有特殊的格式？）

如果有特殊的格式，可以把这个词读出来，然后新建一个文件夹，在文件夹里面新建一个叫  词汇名的txt，内容即是统计词汇出现的次数。如果内容里面不存在特定词汇的文件，即新建一个以该词汇命名的txt文件，并把内容填充为1

如此即可。当然，这是笨办法啊。

pipiludaxian

Sub test() 'by pipiludaxian 查找特定词组，在其前插入递增数字
Dim myrange As Range
Dim ob As String
With ActiveDocument
    Set myrange = .Range(.Content.Start, .Content.End - 1)
End With
With myrange
    With .Find
            .ClearFormatting
            .Text = "懒狗"
            .Forward = True
            .Wrap = wdFindStop
    End With
    i = 1
    Do While .Find.Execute
        With myrange
            .InsertBefore i
            .font.Color = wdColorBlue
            .Collapse wdCollapseEnd
        End With
    i = i + 1
    Loop
End With
End Sub

流水淘金

kqbt 发表于 2014-11-14 10:24
如果只是针对个别或几个词组，用查找和替换就可以了：
1、，在文档中插入一个SEQ域，如：{ seq n }
2、把 ...

1、如果想让递增的数字不是从1开始递增，而是从100开始递增，这个该怎么实现？
2、如果想让递增数字全部保持为三位数，如：001、002、003、005…099…168…，这个能实现吗？

pipiludaxian

三位数字
With myrange
            .InsertBefore VBA.Format(i, "000")
            .font.Color = wdColorBlue
            .Collapse wdCollapseEnd
End With

从100开始递增，将i的初始值改为100

pbdq

pipiludaxian 发表于 2014-11-16 09:13
三位数字
With myrange
            .InsertBefore VBA.Format(i, "000")

学到一招。谢谢。

kqbt

流水淘金 发表于 2014-11-16 06:11
1、如果想让递增的数字不是从1开始递增，而是从100开始递增，这个该怎么实现？
2、如果想让递增数字全部 ...

变通下是可以实现的，但若限制条件太多可能现实意义就大打折扣了：
{ = { seq n } + 99 \#000 }

流水淘金

kqbt 发表于 2014-11-17 22:41
变通下是可以实现的，但若限制条件太多可能现实意义就大打折扣了：
{ = { seq n } + 99 \#000 }

问题完美解决了，谢谢三位热心的解答...