Abschnittswechsel einfuegen
hubert keller
da ich nicht viel Erfahrung mit VBA habe, möchte ich mich mit folgender
Frage an euch wenden:
Unter Word 2000 muß ich in einem großen Text manuelle Seitenwechsel gegen
Abschnittswechsel (*ungerade Seite*)austauschen.
Verwende ich Suchen/Ersetzen über das Menue werden nur Abschnittswechsel
(*nächste Seite*) eingefügt!
Habe versucht, in der Gruppe microsoft.public.word.de eine Antwort zu
erhalten -> ohne Ergebnis. Scheint wohl auch nicht zu gehen.
Also läßt sich das über VBA machen?
Ist es auch möglich, die schon falsch eingetauschten Abschnittswechsel
(*nächste Seite*) gegen Abschnittswechsel (*ungerade Seite*) auszuwechseln?
Schönen Dank!
Hubert Keller
Cindy Meister -WordMVP-
Folgendes scheint zu funktionieren
1) Einen Abschnittswechsel (nächste Seite) manuell einfügen.
2) Ihn markieren und kopieren
3) Bearbeiten/ersetzen
4) Als Text zum Ersetzen, aus der Liste "Sonstiges" Inhalt der
Zwischenablage wählen.
5) Alles ersetzen.
> Unter Word 2000 muß ich in einem großen Text manuelle Seitenwechsel gegen
> Abschnittswechsel (*ungerade Seite*)austauschen.
>
> Verwende ich Suchen/Ersetzen über das Menue werden nur Abschnittswechsel
> (*nächste Seite*) eingefügt!
>
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister
http://go.compuserve.com/MSOfficeForum
This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)
hubert keller
sorry, aber genau das funktioniert eben nicht !:(((((
Habe ich schon längst ausprobiert und führt nur zu Abschnitt *nächste*
Seite!
Abschnitt *ungerade* Seit wird auch über die Zwischenablage ("^c") so nicht
eingefügt, sondern statt dessen Abschnitt *nächste* Seite. Es handelt sch
wahrscheinlich um einen Programmfehler!
"Cindy Meister -WordMVP-" <CindyM...@swissonline.ch> schrieb im
Newsbeitrag news:VA.00002ccd.003be609@bob...
Cindy Meister -WordMVP-
> Abschnitt *ungerade* Seit wird auch über die Zwischenablage ("^c") so nicht
> eingefügt, sondern statt dessen Abschnitt *nächste* Seite.
>
Ach, ja, heute sehe ich das <seufzer>
> Ist es auch möglich, die schon falsch eingetauschten Abschnittswechsel
> (*nächste Seite*) gegen Abschnittswechsel (*ungerade Seite*) auszuwechseln?
>
Ja. Zuerst brauchst Du den Befehl "Format Abschnittslayout" aus der Tiefe zu
holen: Du findest ihn in Extras/Anpassen/Befehle, unter "alle Word Befehle".
Wenn ich den Vorgang in einem Makro aufzeichne, erhalte ich:
Sub NSzuUS()
'
' NSzuUS Makro
' Makro aufgezeichnet am 6/19/2000 von Cindy Meister
'
WordBasic.FormatSectionLayout SectionStart:=4, VertAlign:=0, _
Endnotes:=0, LineNum:=0, CountBy:=0, SectionType:=0
End Sub
Um die Abschnitte im ganzen Dokument zu ändern:
Sub NSzuUS()
Dim sec As Word.Section
For Each sec In ActiveDocument.Sections
If sec.PageSetup.SectionStart = wdSectionNewPage Then
sec.Range.Select
WordBasic.FormatSectionLayout SectionStart:=4, _
VertAlign:=0, Endnotes:=0, _
LineNum:=0, CountBy:=0, SectionType:=0
End If
Next sec
End Sub