为下一个循环清除/清空变量

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。

Answer 2

如果您的变量不是对象，您也可以执行：

lastword = Empty