为下一个循环清除/清空变量
Clear / Empty Variable for next loop
我遇到的情况是我需要 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
你不能"clear"一个非对象变量,你只能将它设置为一个定义的值。对于字符串变量,通常是空字符串 ""
.
lastword = ""
或(相同)
lastword = vbNullString
对于对象变量,有Set myObj = Nothing
。
如果你的变量不是一个对象你也可以这样做:
lastword = Empty
我遇到的情况是我需要 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
你不能"clear"一个非对象变量,你只能将它设置为一个定义的值。对于字符串变量,通常是空字符串 ""
.
lastword = ""
或(相同)
lastword = vbNullString
对于对象变量,有Set myObj = Nothing
。
如果你的变量不是一个对象你也可以这样做:
lastword = Empty