web-dev-qa-db-ja.com

次のループの変数をクリア/空にします

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
5
Ibn e Ashiq

非オブジェクト変数を「クリア」することはできません。定義済みの値にのみ設定できます。文字列変数の場合、通常は空の文字列""

lastword = ""

または(同一)

lastword = vbNullString

オブジェクト変数の場合、Set myObj = Nothing

14
Andre

変数がオブジェクトでない場合は、次のこともできます。

lastword = Empty
4
I.Samp