下一循环的清除/空变量

时间:2016-05-15 07:23:58

标签: vba ms-word word-vba word-2007

我遇到clear变量lastWord的情况,以便msgboxloop下显示任何内容。

以下代码只是一个示例。

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

2 个答案:

答案 0 :(得分:10)

您不能“清除”非对象变量,您只能将其设置为定义的值。对于字符串变量,通常是空字符串""

lastword = ""

或(相同)

lastword = vbNullString

对于对象变量,有Set myObj = Nothing

答案 1 :(得分:2)

如果您的变量不是对象,您也可以这样做:

lastword = Empty