Seriendruck

[norre]

Hallo,
das Problem mit den zusätzlichen Leerschritten könnte man vielleicht mit diesem Macro lösen,
Dem Macro einfach eine Taste zuweisen und alle doppelten Leerschritte werden in allen geöffneten Dokumenten gelöscht.
(Sollte die Ersetzung nur im aktuellen Dokument erfolgen, müsste sich vielleicht Koter den Code mal ansehen)

Code:

Sub ZweiLeerzeichenimDokumtersetzen()
    Const txtFIND As String = "  " 'Dies soll ersetzt werden
    Const txtREPLACE As String = "" 'mit diesem ersetzen
    
    Dim d As Document
    Dim p As Page
    
    For Each d In Documents 'Loop all the open documents
        For Each p In d.Pages 'Loop each page
           p.TextReplace txtFIND, txtREPLACE, True, False
        Next p
    Next d
End Sub

Der Originalcode stammt von Shelbym