Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Abschnittswechsel durch Seitenwechsel ersetzen
zurück: Autotexte Import weiter: Abfrage, ob Formularfeld ausgefüllt ist... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bamberg
Excel/Access mit VBA


Verfasst am:
11. Mai 2007, 12:54
Rufname: Gerd

Abschnittswechsel durch Seitenwechsel ersetzen - Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Zusammen,

ich hab da von Lisa ein Skript gefunden, welches den Seitenwechsel durch einen Abschnittswechsel ersetzt.

Code:
Sub SuchenErsetzenSeitenumbruchAbschnittswechsel()
    'Ersetzt manuelle Seitenwechsel durch Abschnittswechsel
     
    Dim rngSuchen As Word.Range
    Dim i As Integer
   
        '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
   
    i = 1
       
    Do
        Set rngSuchen = ActiveDocument.Sections(i).Range

        With rngSuchen.Find
            .ClearFormatting
            .Replacement.ClearFormatting
        End With
   
        With rngSuchen.Find
            .Text = "^m"
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchWildcards = True
        End With
        rngSuchen.Find.Execute
       
        If rngSuchen.Find.Found Then
            rngSuchen.Select
            With Selection
                .Delete
                .InsertBreak Type:=wdSectionBreakNextPage
                .Collapse Direction:=wdCollapseEnd
            End With
            i = i + 1
        Else
            Exit Do
        End If
    Loop Until Not rngSuchen.Find.Found
       
    Set rngSuchen = Nothing
           
End Sub


Geht dies auch umgekehrt ? Was müsste ich ändern ?

Ich möchte aus einem Dokument mit über 100 Seiten das "Wasserzeichen" entfernen. Diese 100 Seiten sind durch Abschnittswechsel getrennt, daher müsste ich ja bei jedem Abschnitt das Wasserzeichen rausnehmen.

Gruß
Gerd

_________________
NIPSILD = Nicht In Problemen, Sondern In Lösungen Denken
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
11. Mai 2007, 13:18
Rufname:
Wohnort: Leipzig


AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Bamberg,

klar geht das, sogar viel einfacher, kannst Du einfach mit Suchen/Ersetzen im Dokument machen. Ruf mal im Menü Bearbeiten Suchen/Ersetzen auf, unten gibt's den Button Erweitern. Dann gibt's ganz unten den Button Sonstiges. In Deinem Fall ^b durch ^m ersetzen lassen. Danach hat das Dokument nur noch einen Abschnitt und Du kannst das Wasserzeichen entfernen lassen.

Man kann natürlich auch die Prozedur in VBA umbauen.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Bamberg
Excel/Access mit VBA


Verfasst am:
11. Mai 2007, 13:58
Rufname: Gerd

AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Lisa,

funktioniert bei mir leider nicht.
Scheinbar findet er den Abschnittswechsel(neue Seite), da er bei Suchen durch die einzelnen Blätter springt, jedoch ersetzt wird nix.

Gruß
Gerd

_________________
NIPSILD = Nicht In Problemen, Sondern In Lösungen Denken
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
11. Mai 2007, 14:18
Rufname:
Wohnort: Leipzig

AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Gerd,

versteh ich jetzt nicht ganz. Was passiert denn beim einmaligen (manuellen) Ersetzen übers Menü? Wird der Abschnittswechsel gefunden?
Schalt mal in Normalansicht, da werden die Abschnittswechsel als gepunktete Linie sichtbar. Wird er gefunden, müsste die Linie markiert (selektiert) sein.

Alternativ könnte man ja mal versuchen, die Abschnittswechsel einfach durch nichts zu ersetzen, also einfach zu entfernen. Geht das?

Aber noch was anderes: Wo ist denn das Wasserzeichen, in der Kopfzeile?

Edit: Wie sieht es denn hiermit aus, funktioniert das?
Code:
Sub Test()

    Dim Abschnitt As Word.Section
   
    For Each Abschnitt In ActiveDocument.Sections
        If Abschnitt.Headers(wdHeaderFooterPrimary).Shapes.Count > 0 Then
            Abschnitt.Headers(wdHeaderFooterPrimary).Shapes(1).Delete
        End If
    Next Abschnitt

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Bamberg
Excel/Access mit VBA


Verfasst am:
11. Mai 2007, 17:25
Rufname: Gerd


AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Lisa,

vielen Dank für Deine Antwort.

Deine Fragen hab ich mir auch gestellt und auch schon ausprobiert. Mir ist bekannt, wie man die Abschnittswechsel "sichtbar" macht. Auch habe ich bereits versucht, den Abschnittswechsel durch ein anderes Zeichen zu erzetzen. Klappt auch nicht.
Merkwürdig ist, das Word bei der Suche scheinbar alle Abschnittswechsel findet, jedoch nicht markiert. Word springt jedoch bei Weitersuchen immer eine Seite weiter.

Dein Skript find' ich super. Statt die Seitenwechsel einzusetzen, besser das Urspungsproblem beseitigen, das Wasserzeichen.
Ich hab' als Wasserzeichen eine Tabelle in der Fußzeile. Findet Word über Shapes auch die Tabelle ? Wenn nicht, könnte man auch den Inhalt der gesamten Fusszeile löschen. Geht das ?

Gruß
Gerd

_________________
NIPSILD = Nicht In Problemen, Sondern In Lösungen Denken
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
11. Mai 2007, 17:33
Rufname:
Wohnort: Leipzig

AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Gerd,

klar, geht im Prinzip genauso:
Code:
Sub Test()

    Dim Abschnitt As Word.Section
   
    For Each Abschnitt In ActiveDocument.Sections
        If Abschnitt.Footers(wdHeaderFooterPrimary).Range.Tables.Count > 0 Then
            Abschnitt.Footers(wdHeaderFooterPrimary).Range.Tables(1).Delete
        End If
    Next Abschnitt

End Sub

Die 1. Tabelle der Fußzeile jedes Abschnitts wird gelöscht. Falls Fehlermeldung kommt, muss die Konstante wdHeaderFooterPrimary geändert werden, dann probier am besten alles aus, was die Intellisense anbietet.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Bamberg
Excel/Access mit VBA


Verfasst am:
13. Mai 2007, 13:00
Rufname: Gerd

AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Lisa,

besten Dank für die Hilfe. Ich werd's morgen mal testen.

Gruß
Gerd

_________________
NIPSILD = Nicht In Problemen, Sondern In Lösungen Denken
Bamberg
Excel/Access mit VBA


Verfasst am:
15. Mai 2007, 08:03
Rufname: Gerd

AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2k (2000)

Hallo Lisa,

klappt super. Besten Dank für die Schützenhilfe.

Gruß
Gerd

_________________
NIPSILD = Nicht In Problemen, Sondern In Lösungen Denken
andi_007
Gast


Verfasst am:
08. Feb 2012, 17:16
Rufname:


AW: Abschnittswechsel durch Seitenwechsel ersetzen - AW: Abschnittswechsel durch Seitenwechsel ersetzen

Nach oben
       Version: Office 2010

Hi,

ich habe genau das gleiche Problem Suchen findet die Abschnittswechsel (Nächste Seite) ^b, aber ersetzen durch nichts oder irgendetwas anderes funktioniert nicht.

Sowohl in 2003 als auch in 2010

Hat da jemand eine Idee?
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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 nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Formate: Nach Abschnittswechsel beginnt die nächste Zeile weiter unte 3 Janek90 2554 20. März 2012, 22:24
CaBe Nach Abschnittswechsel beginnt die nächste Zeile weiter unte
Keine neuen Beiträge Word Formate: Abschnittswechsel einfügen ohne das Layout zu verändern 0 derkleinenils 812 14. Dez 2011, 14:18
derkleinenils Abschnittswechsel einfügen ohne das Layout zu verändern
Keine neuen Beiträge Word Formate: Abschnittswechsel auf einer Seite fixieren 5 cw23 5193 16. Sep 2011, 07:47
MarkMH_K Abschnittswechsel auf einer Seite fixieren
Keine neuen Beiträge Word Formate: abschnittswechsel löscht sich automatisch 3 der_herbert 1114 29. Apr 2011, 20:34
Maulende Myrte abschnittswechsel löscht sich automatisch
Keine neuen Beiträge Word Formate: Ganze Seite ersetzen 3 jetrca 1021 12. Jan 2011, 15:07
hyba Ganze Seite ersetzen
Keine neuen Beiträge Word Formate: Begriff ersetzen 8 rumburak 498 17. Nov 2010, 09:12
CHF Begriff ersetzen
Keine neuen Beiträge Word Formate: Word 2003 Textpositionen nach Seitenwechsel 16 speedy-wn 1618 09. Sep 2010, 15:25
speedy-wn Word 2003 Textpositionen nach Seitenwechsel
Keine neuen Beiträge Word Formate: Abb. + Beschr. + Quellangabe gegen Seitenwechsel schützen 1 pappnase 295 17. März 2010, 18:42
pappnase Abb. + Beschr. + Quellangabe gegen Seitenwechsel schützen
Keine neuen Beiträge Word Formate: Frage zur "Ersetzen"-Funktion 2 Merkur 1230 22. Dez 2009, 14:39
Merkur Frage zur "Ersetzen"-Funktion
Keine neuen Beiträge Word Formate: Formatvorlage - Problem beim Seitenwechsel 0 Michael* 493 22. Okt 2009, 14:34
Michael* Formatvorlage - Problem beim Seitenwechsel
Keine neuen Beiträge Word Formate: Formatvorlage für Beschriftung ersetzen 0 Lischen16 406 12. Okt 2009, 08:14
Lischen16 Formatvorlage für Beschriftung ersetzen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word Formate: Suchen/Ersetzen von Textblöcken in Word 2 Lovic 2425 03. Jul 2009, 19:48
Lisa Suchen/Ersetzen von Textblöcken in Word
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum