Word 97: Leerzeile nach Überschrifen nachträglich

Computer: Software & Programmierung Office Software
1

Hallo!

Ich habe ein ca. 90 Seiten großes Dokument „geerbt“ und möchte nun nach jeder Überschrift (zugewiesen: Überschrift2) eine Leerzeile einfügen.

Von Hand wäre das ziemlich aufwendig, da jede Seite mind. 5 Abschnitte mit eigener Überschrift hat.

Das muß doch auch automatisch gehen, oder?!?

Danke!

2

Ich habe ein ca. 90 Seiten großes Dokument „geerbt“ und möchte
nun nach jeder Überschrift (zugewiesen: Überschrift2) eine
Leerzeile einfügen.

Hi Xanadu,

Format -> Formatvorlage -> Überschrift2 auswählen -> Bearbeiten -> Format -> Absatz -> Bei „Abstand nach“ einen größeren Wert (etwa +12 Punkt) eintragen. Nach einem Klick auf diverse Ok’s sollte alles wie gewünscht aussehen.

Gruß
Sculpture

3

Es sollte schon eine echte Leerzeile sein, denn ich muß das Dokument u.A. auch als reinen ASCII-Text speichern…
Und da geht der Abstand ja wieder verloren…

4

Hi

Also dies voraus, wie Sculpture finde ich diesen Anflug UNMÖGLICH!

Aber Bitte:

Sub TestD()
Dim Absatz As Paragraph
Set Absatz = ActiveDocument.Paragraphs(1)
While Not Absatz Is Nothing
If Not Absatz.Range.Text = Chr(13) Then
If Absatz.Style = wdStyleHeading2 Then
Absatz.Range.InsertAfter vbCrLf
End If
End If
Set Absatz = Absatz.Next
Wend
End Sub
.
.
cheers

5

hello again

Vermutlich geht es auch ganz ohne Makro nämlich so:

  1. Bearbeiten - Ersetzen…
  2. Schaltknopf Erweitert
  3. Option mit Mustervergleich aktivieren
  4. Einfügemarke in das Feld Suchen nach: stellen
  5. Format - Formatvorlage
  6. Vorlage mit dem Namen Überschrift 2 aussuchen
  7. Im Textfeld folgendes eingeben: *^a
  8. Einfügemarke in das Textfeld Ersetzen mit: stellen
  9. Im Textfeld folgendes eingeben: *^a^a
    .
    .
    cheers
6

Hi

Also dies voraus, wie Sculpture finde ich diesen Anflug
UNMÖGLICH!

Versteh ich nicht ganz, wieso findest Du diesen Anflug unmöglich?
Habe doch nur gefragt…