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
非オブジェクト変数を「クリア」することはできません。定義済みの値にのみ設定できます。文字列変数の場合、通常は空の文字列""
。
lastword = ""
または(同一)
lastword = vbNullString
オブジェクト変数の場合、Set myObj = Nothing
。
変数がオブジェクトでない場合は、次のこともできます。
lastword = Empty