Office: Absätze formatieren

Hallo!

Ich habe ca. 30 Word Dokumente die ich so formatieren soll, dass sie die ganze Blattbreite ausfüllen und nicht weniger. Das Problem ist, dass diese Zeilen einzelne Absätze sind. Gibt es eine Funktion die mir die einzelnen Dokumente so formatiert oder muss ich die Absätze alle händisch löschen.

Ich habe unten mal so ein Dokument angehängt, damit ihr seht was ich meine.

Bitte um eure Hilfe.

 

Hallo!

Das kann man relativ flott hinkriegen.

Gefragt ist ein Suchen-Ersetzen-Vorgang, der alle ¶ durch ein Leerzeichen ersetzt, so daß der Text "fließt". Problem: Die wirklichen (optischen) Absätze, wo also zwei ¶¶ aufeinander folgen, möchtest Du ja behalten.

Daher machst Du drei Durchläufe.

Markiere alle Textteile, die zu schmal sind. Drücke Strg + H.

Erster Durchlauf:
Suchen nach: ^p^p
Ersetzen durch: ***
Die Frage, ob der restliche Teil bearbeitet werden soll, mit NEIN beantworten.

Zweiter Durchlauf:
Suchen nach: ^p
Ersetzen durch: _ (=einmal Leertaste drücken)
Die Frage, ob der restliche Teil bearbeitet werden soll, mit NEIN beantworten.

Dritter Durchlauf:
Suchen nach: ***
Ersetzen durch: ^p^p
Die Frage, ob der restliche Teil bearbeitet werden soll, mit NEIN beantworten.

Mit einem Makro kann man das automatisieren. Nimm diesen Code in die Zwischenablage:

Code:

Sub absaetze()

    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "***"
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "***"
        .Replacement.Text = "^p^p"
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdStory

End Sub

Öffne Word. Drücke Alt + F11. Gib in das leere Fenster mit Strg + V den Code ein. Speichern und schließen.
Damit wird das Makro in der Dokumentvorlage gespeichert.

Um es zu benutzen: Öffne ein zu bearbeitendes Dokument. Markiere den zu ändernden Text (Um den Text komplett zu markieren, kann man auch Strg + A drücken). Drücke Alt + F8. Wähle "absaetze" und "Ausführen".

 

Danke für deine schnelle Antwort aber das mit den automatisieren funktioniert leider nicht.
Du hast folgendes geschrieben: Öffne Word. Drücke Alt + F11. Gib in das leere Fenster mit Strg + V den Code ein. Speichern und schließen.
Damit wird das Makro in der Dokumentvorlage gespeichert.
Genau das habe ich gemacht nur wenn ich Alt + F11 drücke öffnet sich Microsoft Visual Basic aber zeigt mir kein Fenster an wo ich den Code einfügen kann.

EDIT: Hat sich erledigt.
Ich habe einfach ein neues Makro erstellt in dem ich Alt + F8 gedrückt habe und dann auf erstellen geklickt habe.

 

Das kriegen wir auch noch hin.
Was siehst Du denn, wenn Du Alt + F11 drückst?

Drücke mal Alt + F11 und hinterher F7 (ohne Alt). Klappt das?

EDIT: Na dann - viel Glück!

 

Habe gerade festgestellt Du hast ein bischen schneller geschieben als ich aber ich habs schon alleine hinbekommen.

Trotzdem Danke!