Next Without For?

Question

Я уверен, что это было задано сто раз, и я сравнивал его с другими, как это, но я не вижу проблемы в своем коде. Теперь он доходит до «Next oOccurrence», и я получаю сообщение «Next Without For». Я этого не вижу ... не так ли?

Option Explicit 
Public i As Integer 

Sub ReplaceComponent() 
Dim NameStr As String 
Dim NewNamePath As String 

Dim NameStr2 As String 
Dim OldNamePath As String 

For i = 0 To 99 Step 1 

NameStr = Renamer.New_Name.Text    'Concatenates the full new file path 
NewNamePath = Renamer.Path_Text.Text & "\" + NameStr & "-" & Right("00" & i, 3) & ".ipt" 

NameStr2 = Renamer.Old_Name_Display.Text  'Concatenates the old file NAME 
OldNamePath = NameStr2 & "-" & Right("00" & i, 3) & ".ipt" 


Dim oOccurrence As ComponentOccurrence    'Creates a ton of errors that have been giving me a headache 
For Each oOccurrence In ThisApplication.ActiveDocument.ComponentDefinition.Occurrences 
    If oOccurrence.ReferencedDocumentDescriptor.FullDocumentName = OldNamePath Then 
    oOccurrence.Replace NewNamePath, True 
Exit For 
    End If 

    If i = 99 Then 
DeletetheDirectory       'When i = 99, deletes the temporary directory 
               'Will save the file 
               'Will close the file 
Resolve_and_Open.Show vbModal     'Reopens form 3 to select the next assembly 
    Else: Next oOccurrence 
    Next i 
    End If 

End Sub 

Answer 1

Я думаю, что ваша проблема в том, что у вас есть End If after Next i. Сначала нужно закрыть If i = 99, и нет необходимости в Else вообще, так как вы должны зацикливаться независимо от того, i = 99 или нет.

If i = 99 Then 
     DeletetheDirectory           
     Resolve_and_Open.Show vbModal    
    End if 
    Next oOccurrence 
Next i 

Answer 2

Я не совсем уверен, что вы пытаетесь сделать, но, возможно, следующее переформатирование поможет.

Я не могу запустить ваш код, потому что я не знаю, что такое Renamer. Можете ли вы просто объяснить две петли и что вы, когда хотите, чтобы они закончились?

Option Explicit 
Public i As Integer 

Sub ReplaceComponent() 
    Dim NameStr As String 
    Dim NewNamePath As String 

    Dim NameStr2 As String 
    Dim OldNamePath As String 

    For i = 0 To 99 Step 1 

     'Concatenates the full new file path 
     NameStr = Renamer.New_Name.Text 
     NewNamePath = Renamer.Path_Text.Text & "\" + NameStr & "-" & Right("00" & i, 3) & ".ipt" 

     'Concatenates the old file NAME 
     NameStr2 = Renamer.Old_Name_Display.Text 
     OldNamePath = NameStr2 & "-" & Right("00" & i, 3) & ".ipt" 

     'Creates a ton of errors that have been giving me a headache 
     Dim invAD 
     Set invAD = ThisApplication.ActiveDocument 
     Dim oOccurrence As ComponentOccurrence 
     Set oOccurrence = invAD.ComponentDefinition.ActiveOccurrence 

     For Each oOccurrence In ThisApplication.ActiveDocument.ComponentDefinition.Occurrences 
      If oOccurrence.ReferencedDocumentDescriptor.FullDocumentName = OldNamePath Then 
       oOccurrence.Replace NewNamePath, True 
       Exit For 
      End If 

      If i = 99 Then 
       'When i = 99, deletes the temporary directory 
       DeletetheDirectory 

       'Reopens form 3 to select the next assembly 
       Resolve_and_Open.Show vbModal 
       Exit For 
      End If 
     Next oOccurrence 
    Next i 

End Sub