如何退出do while loop

silhouettecn

本程序很简单，主要是在上标前后各加一个三角和括号。由于不知道如何上传文件，请大家自己设一两个上标测试一下。但是，有个问题，让我不解，我使用EOF()进行判断文件尾，但是，程序进行到尾部了，却一直在执行do 要求进行的语句，退不出来循环，这知为什么？请高手指教。

Sub CSJ上标()

‘找到打开的文件名和路径

    l = ActiveDocument.Path
    m = ActiveDocument.Name
    n = l + "\" + m

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    '给当前打开的文件一个文件号，然后进行查找，如果不到文件尾，则执行查找替换命令。
    Open n For Input As #1
    Do While Not EOF(1)
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .Font.Superscript = True
     If .Execute = True Then
         Selection.InsertBefore Text:="▲{"
         Selection.InsertAfter Text:="}▲"
         Selection.ClearFormatting
         Selection.Find.Forward = True
     End If
    End With
    Loop

'关闭文件
    Close #1
End Sub      'CSJ上标(结束)

konggs

参见：http://www.officefans.net/cdb/viewthread.php?tid=58495&extra=page%3D2%26filter%3Ddigest

也就是以下的代码：

Sub ddd() Selection.HomeKey unit:=wdStory With Selection.Find Do .ClearFormatting .Text = "\[HL\(*\[HL\)\]" .MatchWildcards = True .Execute .Execute findtext:="★", replacewith:=",", Replace:=wdReplaceAll Loop Until .Found = False End With End Sub

silhouettecn

谢谢！