Effacer/Vider la variable pour la prochaine boucle

Question

Je rencontre une situation dans laquelle j'ai besoin de clear la variable lastWord de sorte que msgbox ne montre rien dans le prochain loop.

Le code suivant est juste un exemple.

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

Vous ne pouvez pas "effacer" une variable non-objet, vous ne pouvez la définir qu'à une valeur définie. Pour une variable de chaîne, c'est généralement la chaîne vide "".

lastword = "" 

ou (identique)

lastword = vbNullString 

Pour les variables d'objets, il n'y a Set myObj = Nothing.