怎样可以走出这个死循环？

praijna

老师：
      您好！
      如下语句，执行加超链接的时候，就进入死循环，始终停在第一个上标处，如何解决？
Sub shishi()
    Dim fi As Field
            Dim i As Paragraph, mt, oRang As Range, N%, m%
        With CreateObject("vbscript.regexp")
            .Pattern = "\([0-9]+\)"
            .Global = True: .IgnoreCase = False: .MultiLine = True
    For Each fi In ActiveDocument.Fields
             fi.Select
             S = Selection
        For Each mt In .Execute(S)
            If mt <> "" Then
            cljmz = "传灯序" & Format(Split(Split(S, "(")(1), ")")(0), "000")
            ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, SubAddress:=cljmz（执行这句后，就死循环了）
             End If
          Next
    Next
    End With
End Sub




感恩！
file:///C:\Users\Prajna\Documents\Tencent Files\528692676\Image\C2C\5)AVHT52W``1FMS(M$FWR]N.png

duquancai

自以为是：提问一个局部问题，也解决了这一个局部，没想到：局部问题和全局有千丝万缕的关系！慢慢折腾吧！！！

praijna

duquancai 发表于 2017-7-17 20:49
自以为是：提问一个局部问题，也解决了这一个局部，没想到：局部问题和全局有千丝万缕的关系！慢慢折腾吧！ ...

老师，您说得对，对 VBA 了解太少了，恳请老师帮助！

duquancai

praijna 发表于 2017-7-17 20:53
老师，您说得对，对 VBA 了解太少了，恳请老师帮助！

手机，无法帮助！

praijna

duquancai 发表于 2017-7-17 21:01
手机，无法帮助！

好的，感恩！

zhanglei1371

    For Each fi In ActiveDocument.Fields
换成
For j = 1 To ActiveDocument.Fields.Count
   Set fi = ActiveDocument.Fields(j)

praijna

zhanglei1371 发表于 2017-7-18 11:16
For Each fi In ActiveDocument.Fields
换成
For j = 1 To ActiveDocument.Fields.Count

感恩老师的指导，可以了！