Absätze formatieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Word 2003] Absätze formatieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

cwagner
Newbie
Newbie

Anmeldedatum: 08.07.2008
Beiträge: 17

Verfasst am: 08.07.2008, 09:29

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.

Vorbemerkungen.doc

Beschreibung:

Download

Dateiname:

Vorbemerkungen.doc

Dateigröße:

25.5 KB

Heruntergeladen:

27 mal

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1600

Verfasst am: 08.07.2008, 11:01

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".

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

cwagner
Newbie
Newbie

Anmeldedatum: 08.07.2008
Beiträge: 17

Verfasst am: 08.07.2008, 11:57

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.

Zuletzt bearbeitet von cwagner am 08.07.2008, 12:02, insgesamt einmal bearbeitet

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1600

Verfasst am: 08.07.2008, 12:01

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!

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

cwagner
Newbie
Newbie

Anmeldedatum: 08.07.2008
Beiträge: 17

Verfasst am: 08.07.2008, 12:04

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

Trotzdem Danke!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Steuerelement formatieren-Fehler!!!	Excel-Amateur	Microsoft Excel Hilfe	2	06.11.2008, 23:46
	Zelle formatieren	aloauto	Microsoft Excel Hilfe	2	16.09.2008, 20:48
	Überschriftennummerierung richtig for...	daisyking	Microsoft Word Hilfe	0	04.09.2008, 08:22
	mehrere Abbildungen gleichzeitig form...	apfelkernchen	Microsoft Word Hilfe	0	28.08.2008, 23:55
	Spalten Formatieren	cwagner	Microsoft Excel Hilfe	4	01.08.2008, 20:53

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de