Comment remplacer toute la phrase avec VBA

Question

Iam essayant de rendre le code pour supprimer l'espace supplémentaire, voici mon code

Sub ColourChange() 
     For Each sentence In ActiveDocument.StoryRanges 
       LArray = Split(sentence, " ") 
       var = "" 
       For Each Text In LArray 
        If Text <> "" Then 
         var = var + " " + Text 
        End If 
       Next 
     Next 
End Sub 

Mais j'essaie de remplacer la phrase en cours avec la nouvelle phrase (var), qui a déjà supprimer l'espace supplémentaire, mais il ne peut pas être fait :(quelqu'un sait comment remplacer la phrase entière?

Answer 1

le code suivant montre comment remplacer des phrases existantes par de nouvelles.

Private Sub ColourChange() 

    Dim OldSen As String, NewSen As String 
    Dim SenRng As Range 

    For Each SenRng In ActiveDocument.Sentences 
     OldSen = SenRng.Text 
     NewSen = "(((" & OldSen & ")))" 
     SenRng.Text = NewSen 
    Next SenRng 
End Sub 

Veuillez noter que Sentence est une plage et un membre de la collection Sentences.

Je ne comprends pas ce que vous voulez faire avec les espaces, mais si votre intention est de supprimer les blancs supplémentaires que vous pouvez envisager d'utiliser la fonction Replace, comme, NewSen = Replace(OldSen, " ", " ")