Altid mellemrum til sidst

I visse sammenhænge har man brug for at alle linjer slutter med et mellemrum. Det sikrer denne makro at de gør.

Sub CheckMellemrumogSaet()
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    If Selection = " " Then
        Exit Sub
    Else
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.TypeText Text:=" "
    End If
End Sub

Makroen undersøger om der findes et mellemrum i slutningen af en linje, og gør der ikke det, sætter den et. Placer markøren i den linje der skal undersøges og afspil makroen.

- Retur til Word -