Hallo,
wie kann man (per Makro?) alle Zeilen löschen außer jenen die einenFettdruck haben?
Gruß
Gunter
Hallo Gunter,
wie kann man (per Makro?) alle Zeilen löschen außer jenen die
einenFettdruck haben?
Mit welcher Textverarbeitung? Und soll die Zeile nur dann nicht gelöscht werden, wenn sie komplett fett geschrieben oder reicht ein fetter Buchstabe um die Zeile zu erhalten?
Beispiel:
keine fette Zeile -> löschen!
ganz fette Zeile -> nicht löschen!
gemischte Zeile, mal fett , mal nicht -> löschen oder nicht löschen, das ist hier die Frage…
Viele Grüße
Marvin
Hallo Marvin,
es geht um Word 2000.
Ganze fette Zeile nicht löschen.
Sonst immer löschen.
Das war’s schon.
Hast du eine Lösung.
Gruß
Gunter
Beispiel:
keine fette Zeile -> löschen!
ganz fette Zeile -> nicht löschen!
gemischte Zeile, mal fett , mal nicht ->
löschen oder nicht löschen, das ist hier die Frage…Viele Grüße
Marvin
Hallo Gunter,
probier mal folgendes:
Funktion „Ersetzen“:
Suchen -> Format -> Zeichen -> nicht fett
Ersetzen -> Format -> Zeichen -> verborgen
Wenn du dann die Steuerzeichen ausblendest (bzw. in den „Optionen“ das Häkchen bei „verborgen“ setzt), siehst du nur die fetten Zeichen.
Viel Erfolg,
agnes
Hallo Agnes,
unter Ersetzen -> Format -> Zeichen
gibt es bei mir kein ‚verborgen‘
Auch unter Optionen finde ich kein ‚verborgen‘
Habe allerdings WORD 2003 nicht wie gesagt 2000.
Gruß
Gunter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Gunther,
hier zwei Makro-Varianten, die am aktiven Dokument arbeiten.
Das eine Prüft jeweils die ganzen Absätze. Sind NICHT FETTE Zeichen enthalten wird gelöscht.
Das 2. Makro prüft Zeichenweise und löscht.
Am besten erst einmal in einer Sicherunskopie probieren!!
Gruß
Franz
Sub NichtFettLoeschenAbsatz()
'
' Löscht alle Absätze, die Nicht fetten Text enthalten (1 nicht fettes Zeichen reicht!!) \_
Das Zeilenshaltungszeichen muss auch Fett sein, damit nicht gelöscht wird!!
'
Dim wdDok As Document, wdAbsatz As Paragraph
If MsgBox(Prompt:="Absätze mit NICHT FETTEM Text im aktiven Dokument löschen?", \_
Buttons:=vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub
Set wdDok = ActiveDocument
Application.ScreenUpdating = False
For Each wdAbsatz In wdDok.Paragraphs
If wdAbsatz.Range.Bold = True Then
'do nothing
Else
wdAbsatz.Range.Delete
End If
Next
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox Prompt:="Fertig!", Buttons:=vbOKOnly, Title:="Nicht Fett Löschen"
End Sub
Sub NichtFettLoeschenZeichen()
'
' NichtFettLoeschen Makro
' Löscht alle Zeichen die, Nicht fett sind \_
Das Absatzschaltungszeichen muss ggf. auch Fett sein!!)
'
Dim wdDok As Document, wsZeichen As Object
If MsgBox(Prompt:="Alle NICHT FETTEM Zeichen im aktiven Dokument löschen?", \_
Buttons:=vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub
Set wdDok = ActiveDocument
Application.ScreenUpdating = False
For Each wsZeichen In wdDok.Characters
If wsZeichen.Bold = True Then
'do nothing
Else
wsZeichen.Delete
End If
Next
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox Prompt:="Fertig!", Buttons:=vbOKOnly, Title:="Nicht Fett Löschen"
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Franz,
große Klasse, funktioniert bestens.
Vielen Dank.
Gruß
Gunter
Hallo Gunther,
hier zwei Makro-Varianten, die am aktiven Dokument arbeiten.
Das eine Prüft jeweils die ganzen Absätze. Sind NICHT FETTE
Zeichen enthalten wird gelöscht.Das 2. Makro prüft Zeichenweise und löscht.
Am besten erst einmal in einer Sicherunskopie probieren!!Gruß
Franz