Leere Seiten Einfügen

Moderator: ModerationP

Leere Seiten Einfügen

Beitragvon Gast » 05. Jul 2021, 08:03

Hallo zusammen,

nach langem suchen bin ich leider noch zu keiner Lösung gekommen...

folgendes Problem:

- ich bekomm ein Textdokuent, in welches ich leere Seiten einfügen möchte (jede 2 Seite)
- diese Seiten würde ich gern Teilweise beschreiben

hintergrund: es handelt sich um Textbücher, wenn diese gedruckt sind hätte ich gern auf der Rückseite von Seite 1,
die Zeilen genaue erklärung zu Seite 2, gibt es keine erklärung bleibt die Seite leer.

Ich hoffe ich habe hier nix überlesen, ansonsten würde ich mich über den passenden verweis freuen.

LG Clemens
Gast
 

Re: Leere Seiten Einfügen

Beitragvon Gast » 05. Jul 2021, 12:58

soweit bin ich schon mal gekommen;

Sub TopOfThisPage()
Selection.GoTo What:=wdGoToBookmark, Name:="\Page"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.InsertNewPage
Selection.MoveRight Unit:=wdCharacter, Count:=1


End Sub

das mit dem sprung zur über nächsten Seite klappt leider nicht wie ich mir das vorstell und das Loopen bis zum Dokument ende, klappt leider auch nicht
Gast
 

Re: Leere Seiten Einfügen

Beitragvon hddiesel » 05. Jul 2021, 22:58

Hallo Clemens,

Code: Alles auswählen
Sub Nach_jeder_Seite_eine_neue_Seite()
    Dim i As Long
    i = 2
    Do While ActiveDocument.ComputeStatistics(wdStatisticPages)
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=i, Name:=""
        Selection.InsertBreak Type:=wdPageBreak
        If i < ActiveDocument.ComputeStatistics(wdStatisticPages) - 1 Then
            i = i + 2
        Else
            Exit Sub
        End If
    Loop
End Sub
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4246
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland

Re: Leere Seiten Einfügen

Beitragvon Gast » 07. Jul 2021, 14:12

Hallo hddiesel,

vielen vielen Dank! Es läuft und macht das was ich gern hätte.

Hatte es soweit hinbekommen das es gelaufen ist, nur leider in einer endlosschleife. Du hast mir viel Zeit und Nerven gespart.

LG Clemens
Gast
 

Re: Leere Seiten Einfügen

Beitragvon hddiesel » 07. Jul 2021, 16:49

Hallo Clemens,

Danke für deine Rückmeldung.
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4246
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland

Re: Leere Seiten Einfügen

Beitragvon Gast » 08. Jul 2021, 09:33

hddiesel hat geschrieben:Hallo Clemens,

Danke für deine Rückmeldung.


gehört sich so wenn man geholfen bekommt...



ich hatte es auch noch weiter Versucht, meines läuft soweit auch nur bin ich in einer endlosschleife gefangen und finde meinen Fehler nicht,
vieleicht kann mir ja jemand die Lösung nenen um aus der Schleife raus zu kommen. Was hab ich übersehen?

Will es verstehen und nicht ständig nachfragen müssen...
Gast
 

Re: Leere Seiten Einfügen

Beitragvon HKindler » 08. Jul 2021, 09:40

Hi,

ändere den Wert der Variablen Handtuch in Zeile 42 auf True.

Im Ernst: woher soll man wissen, was du falsch machst, wenn man deinen Code nicht kennt? Aus deiner Info, dass du in einer Endlosschleife hängst, lässt sich nun mal nicht auf deinen Code schließen.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6316
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald

Re: Leere Seiten Einfügen

Beitragvon Gast » 08. Jul 2021, 09:50

HKindler hat geschrieben:Hi,

ändere den Wert der Variablen Handtuch in Zeile 42 auf True.

Im Ernst: woher soll man wissen, was du falsch machst, wenn man deinen Code nicht kennt? Aus deiner Info, dass du in einer Endlosschleife hängst, lässt sich nun mal nicht auf deinen Code schließen.



man könnte auch schlicht darauf hinweisen das ich vergessen hab den Code mit dazu zu packen aber jeder hat nun mal eine andere Weise ding auszudrücken...


hier der Code:

Sub schleife()
Do
leerseiteeinfuegen
If Selection.Range.End >= (ActiveDocument.Range.End - 1) Then Exit Do
Loop
End Sub

Sub leerseiteeinfuegen()
Selection.GoTo What:=wdGoToBookmark, Name:="\Page"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.InsertNewPage
MyPage = Selection.Information(wdActiveEndPageNumber)
Selection.GoTo What:=wdGoToPage, Name:=MyPage + 1
End Sub
Gast
 

Re: Leere Seiten Einfügen

Beitragvon HKindler » 08. Jul 2021, 13:05

Hi,

wenn dich meine Antwort irritiert, dann google mal nach 42.

Zu deinem Problem: Ich bin jetzt in Word nicht sooo fit. Aber was passiert, wenn sich deine Selektion am Ende der vorletzten Seite befindet und jetzt eine Seite weiter springen soll? Ich könnte mir vorstellen, dass das nicht geht und die aktuelle Selektion bestehen bleibt. Somit kommst du dann nie auf die letzte Seite. Wie gesagt nur eine Vermutung.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6316
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald

Re: Leere Seiten Einfügen

Beitragvon hddiesel » 08. Jul 2021, 15:06

Hallo Clemens,

es geht auch ohne Variable:
Bevor du VBA Code einfügst, klicke Bitte auf Code, danach die Tastenkombination Strg + V
Code: Alles auswählen
'1. neue Seite vor der 1. Seite
Sub Leere_Seiten_vor_erster_Seite_einfuegen()
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst
    Do
        Selection.InsertBreak Type:=wdPageBreak
        Selection.GoTo What:=wdGoToPage, Name:=Selection.Information(wdActiveEndPageNumber) + 1
    Loop Until Selection.Information(wdActiveEndPageNumber) = ActiveDocument.ComputeStatistics(wdStatisticPages)
End Sub

Code: Alles auswählen
'1. neue Seite nach der 1. Seite
Sub Leere_Seiten_nach_erster_Seite_einfuegen()
    Selection.GoTo What:=wdGoToPage, Name:=2
    Do
        Selection.InsertBreak Type:=wdPageBreak
        Selection.GoTo What:=wdGoToPage, Name:=Selection.Information(wdActiveEndPageNumber) + 1
    Loop Until Selection.Information(wdActiveEndPageNumber) = ActiveDocument.ComputeStatistics(wdStatisticPages)
End Sub

Hilft dir das weiter?
Zuletzt geändert von hddiesel am 08. Jul 2021, 16:37, insgesamt 5-mal geändert.
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4246
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland

Re: Leere Seiten Einfügen

Beitragvon knobbi38 » 08. Jul 2021, 15:12

@hddiesel:

Anstatt
Code: Alles auswählen
If Selection.Information(wdActiveEndPageNumber) = ActiveDocument.ComputeStatistics(wdStatisticPages) Then Exit Do

doch bitte gleich
Code: Alles auswählen
loop until {Bedingung} ...


Gruß Ulrich
knobbi38
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3485
Registriert: 02. Jul 2015, 14:23

Re: Leere Seiten Einfügen

Beitragvon hddiesel » 08. Jul 2021, 16:38

Hallo Ulrich,

Danke für deinen Hinweis, dadurch Code eine Zeile kürzer.

Word- Makros habe ich sehr Selten und muss mir die neuen Zutaten im Netz suchen.
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4246
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland

Re: Leere Seiten Einfügen

Beitragvon Gast » 09. Jul 2021, 13:57

Hallo zusammen,

danke, das hat mir sehr weiter geholfen und ich glaube ich habsverstanden.

Vielen Dank für die Unterstützung!

LG Clemens
Gast
 


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste