Leezeichen in Word löschen

[geforceeee]

Leezeichen in Word löschen

Salvete,

ich habe eine pdf Datei kopiert und in eine leere Word 2007 Datei eingefügt. Nun ist das Problem, dass nicht der vollständige Raum bis zum Rand gebraucht wird (anscheinend Leerzeichen).

Ich könnte nun mit Hand jede Zeile wieder in die obrere schieben, aber das würde endlos dauern. Gibt es da nicht eine elegantere Lösung. Ich habe schon versucht mit "Suchen/Ersetzen" die doppelten Leerzeichen zu löschen, aber das funktioniert nicht.

Könnt ihr mir helfen?
Vielen Dank
lg, geforceeee

PS.: Wer sich eine Bild machen möchte: Ich habe den Text von dieser pdf-Datei:

http://www.ioa.s.u-tokyo.ac.jp/~sofue/htdocs/araa2001/

 

[kelevra]

AW: Leezeichen in Word löschen

Das Problem ist die Textformatierung. Geh folgendermaßen vor:

Markiere den Inhalt mit [Strg] + [A]
Setze mit [Strg] + [Umschalt] + [N] die Formatvorlage auf Standard
Setze mit [Strg] + [Leertaste] alle Zeichenformatierungen zurück

Um dir zukünftig dies zu ersparen kannst du auch über den Umweg des Editors kopieren. Kopiere dazu einfach den Text zuerst in Notepad und von da aus nach Word. Da Notepad keinerlei Formatierungen Unterstützt, gehen diese verloren.

 

[jetztaber]

AW: Leezeichen in Word löschen

So verfügbar, kann man die Export-Funktion von Acrobat Pro nutzen.

 

[kelevra]

AW: Leezeichen in Word löschen

Über Ersetzen geht dies übrigens auch:

Öffne den Erstezen Dialog
Gib im Feld "suchen nach" ein Leerzeichen gefolgt von {2;} ein.
Gib im Feld "ersetzen durch" ein Leerzeichen ein
Klicke auf "Erweitern" und wähle „Platzhalterzeichen verwenden"
Bestätige mit „Alle Ersetzen“


Eine auch sehr feine Methode wäre ein Makro. Der Quelltext dazu würde so aus sehen:

Sub LeerzeichenEntfernen()
       
    Dim rngSuchen As Word.Range
    Dim Suchwort As String
    Dim Ersatztext As String
   
    Set rngSuchen = ActiveDocument.Range
       
    Suchwort = "  "
    Ersatztext = " "
   
        'Der Sinn dieser With-Prozedur ist, die Suche nach Abbruch zu ermöglichen.
    With Selection.Find
        .Execute MatchWildcards:=True, FindText:="?"
         Selection.Collapse Direction:=wdCollapseStart
        If Not .Found Then
            CommandBars.FindControl(ID:=313).Execute
            SendKeys String:="{ENTER}", wait:=True
            SendKeys String:="{ESC}", wait:=True
            DoEvents
        End If
        Selection.Collapse Direction:=wdCollapseStart
        .MatchWildcards = False
        .Text = ""
    End With
   
    Do
        With rngSuchen.Find
            .ClearFormatting
            .Replacement.ClearFormatting
        End With
   
        With rngSuchen.Find
            .Text = Suchwort
            .Replacement.Text = Ersatztext
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        rngSuchen.Find.Execute Replace:=wdReplaceAll
    Loop While rngSuchen.Find.Found
               
    Set rngSuchen = Nothing
           
End Sub