Supportnet / Forum / Textverarbeitung
Zeilenumbrüche auf einen Schlag entfernen
Frage
Hallo zusammen,
ein Bekannter hat mir ein Word-Dokument gegeben, welches mit mehreren Zeilenumbrüchen (per Hand) bestückt ist. Da ich dass Dokument aber ohne Zeilenumbrüche benötige war meine Frage ob ich diese irgenwie auf einen Schlag entfernen kann.
Danke für eure Hilfe
Mark
Antwort 1 von papaschlumpf
Per "Suchen und ersetzen".
Antwort 2 von 14071
Hi Mark,
ja das geht mit VBA-Code. Wurde hier vor einiger Zeit schon mal besprochen. Durchforste mal das word-archiv, da findest du es.
Gruß
Jürgen
ja das geht mit VBA-Code. Wurde hier vor einiger Zeit schon mal besprochen. Durchforste mal das word-archiv, da findest du es.
Gruß
Jürgen
Antwort 3 von Mark Lenzen
Gut, schaue ich mal nach.
Danke
Danke
Antwort 4 von 14071
@papaschlumpf
und als Suchbegriff gibst du dann "Zeilenumbruch" ein - oder wie??
**kopfschüttel*
und als Suchbegriff gibst du dann "Zeilenumbruch" ein - oder wie??
**kopfschüttel*
Antwort 5 von papaschlumpf
@14071:
Ein Zeilenumbruch ist ja wohl SHIFT+RETURN bzw. RETURN (Absatz).
Oder versteh ich da was falsch?
Wenn Du mir zustimmst, werde ich Dich mal aufklären.
Ein Zeilenumbruch ist ja wohl SHIFT+RETURN bzw. RETURN (Absatz).
Oder versteh ich da was falsch?
Wenn Du mir zustimmst, werde ich Dich mal aufklären.
Antwort 6 von MixMax
14071 - jo als suchbegriff gibst du Zeilenumbruch ein ->
^a Word 97 bzw. ^p Word2000/XP
ersetzen durch nix
wenn er immer doppelte zeilenumbrüche gemacht hat kannst du auch ^a^a durch ^a ersetzen lassen.
die macroversion macht nichts anderes (gefunden im Netz)
^a Word 97 bzw. ^p Word2000/XP
ersetzen durch nix
wenn er immer doppelte zeilenumbrüche gemacht hat kannst du auch ^a^a durch ^a ersetzen lassen.
die macroversion macht nichts anderes (gefunden im Netz)
Sub ÜberzähligeAbsatzmarkenEntfernen()
#If VBA6 Then
x = "^p"
#Else
x = "^a"
#End If
ActiveDocument.Range(0, 0).Select
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = x & x
.Replacement.Text = x
Do While .Execute
.Execute Replace:=wdReplaceAll
Loop
End With
ActiveDocument.Range(0, 0).Select
End SubAntwort 7 von seewolf
Moin,
@14071
es gibt bei "suchen" und "ersetzen" einen Button, der nennt sich "Erweitern". Und unter "Sonstiges" stehen dann "Absatzmarke", "Tabstopzeichen" usw. Man kann aber auch z.B. ^a für Absatzmarke ^t für Tabst. eingeben.
@14071
es gibt bei "suchen" und "ersetzen" einen Button, der nennt sich "Erweitern". Und unter "Sonstiges" stehen dann "Absatzmarke", "Tabstopzeichen" usw. Man kann aber auch z.B. ^a für Absatzmarke ^t für Tabst. eingeben.
Antwort 8 von papaschlumpf
@ seewolf & MixMax:
Ihr habt ja so recht, Danke.
@ 14071:
Wenn Du keine Ahnung von Word hast, solltest Du mit Deinen arroganten Antworten vorsichtig sein.
Vorher mal in die Hilfe von Word schauen, da steht das bestimmt drin.
Aber: Ich begnadige Dich!
Ihr habt ja so recht, Danke.
@ 14071:
Wenn Du keine Ahnung von Word hast, solltest Du mit Deinen arroganten Antworten vorsichtig sein.
Vorher mal in die Hilfe von Word schauen, da steht das bestimmt drin.
Aber: Ich begnadige Dich!
Antwort 9 von 14071
@papaschlumpf
entschuldigung *schäm*
trotzdem - daß mit keiner Ahnung sollte so nicht stehen bleiben, aber man lernt halt nie aus.
Gruß
Jürgen
entschuldigung *schäm*
trotzdem - daß mit keiner Ahnung sollte so nicht stehen bleiben, aber man lernt halt nie aus.
Gruß
Jürgen
Antwort 10 von Redschina
ich schau zwar bei allem möglichen in die windows-hilfe, doch durch die erweiterung bei suchen-ersetzen hab ich das bis jetzt bleiben lassen.
also: vielen dank für das ---> ^p :-)))
gruss, redschina
also: vielen dank für das ---> ^p :-)))
gruss, redschina
Antwort 11 von 14071
naja wenn das die personifizierte Wordhilfe (Redschina) auch nicht wusste, bin ich ja beruhigt ;-))
Antwort 12 von Mark Lenzen
Danke, klappt!