下一個循環的清除/空白變量

Question

我遇到這種情況，我需要clear變量lastWord以便msgbox在接下來的loop中什麼都不會顯示。

以下代碼只是一個示例。

Sub clear_lastWord_Variable() 

    Dim wordArr() As String 
    Dim lastword As String 
    Do 
     selection.Find.ClearFormatting 
     selection.Find.Font.Bold = True 
     With selection.Find 
      .Forward = True 
      .Wrap = wdFindStop 
     End With 
     selection.Find.Execute 

     If selection.Find.Found Then 

      wordArr = Split(selection, " ") 

      For i = LBound(wordArr) To UBound(wordArr) Step 1 
       lastword = wordArr(i) 

      Next i 

      MsgBox lastword 

      ' here should be something to clear lastword 
     Else 
      Exit Do 
     End If 
    Loop 

End Sub 

Answer 1

您無法「清除」非對象變量，只能將其設置爲定義的值。對於字符串變量，通常是空字符串""。

lastword = "" 

或（相同）

lastword = vbNullString 

對於對象的變量，有Set myObj = Nothing。