Seiten löschen

Moderator: ModerationP

Seiten löschen

Beitragvon genossealex » 24. Okt 2020, 23:13

Hallo.

Ich lasse mittels UserForm am Ende des Dokumentes neue Seiten mit entsprechendem Inhalt und Formatierung erstellen.

Sollte die UserForm nachträglich nochmal bearbeitet werden, d.h. der Inhalt oder die Anzahl der neuen Seiten geändert werden, müssen die bereits erstellten Seiten dementsprechend ersetzt werden.


Wir fällt gerade nichts ein wie ich das am besten löse....

Jemand eine Idee?
genossealex
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 05. Feb 2020, 13:38

Re: Seiten löschen

Beitragvon MarkMH_K » 24. Okt 2020, 23:36

Hi,

setze eine Textmarke ans Ende des Dokuments, bevor die neuen Seiten erstmals eingefügt werden. Dann kannst Du später von dieser Textmarke bis Dokumentende löschen.

M.
MarkMH_K
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2637
Registriert: 17. Jul 2011, 12:45
Wohnort: Köln rrh

Re: Seiten löschen

Beitragvon genossealex » 25. Okt 2020, 10:39

Hi.

so habe ich auch gedacht, aber ich bekomme es nicht hin :D

Kannst du mir helfen?

So sieht es gerade bei mir aus.
Es funktioniert soweit ganz gut. Er springt immer zur Textmarke, ABER das löschen funktioniert nicht.
(Hier wir nur ein Blatt eingefügt, es kommen normalerweise mehrere)

Code: Alles auswählen
Public Sub Anlagenblaetter()

Word.Selection.GoTo What:=wdGoToBookmark, Name:="Anlagen"

If ActiveDocument.Bookmarks.Exists("Anlagen") Then
ActiveDocument.Bookmarks("Anlagen").Delete
End If

ActiveDocument.Bookmarks.Add Name:="Anlagen", Range:=Selection.Range

' Neue Anlagenseite
If UserForm3.TextBox1.Text <> "" Then
    Selection.InsertNewPage
    Selection.TypeParagraph
    Selection.Font.Size = 14
    ActiveDocument.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormTextInput).Name = "Anlage11Text"
    With Selection.ParagraphFormat
        .SpaceBefore = 400
        .SpaceAfter = 6
        .Alignment = wdAlignParagraphRight
    End With
   
    ActiveDocument.FormFields("Anlage11Text").Result = UserForm3.TextBox1
   
    Selection.TypeParagraph
    Selection.Font.Size = 22
    ActiveDocument.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormTextInput).Name = "Anlage11Kapitel"
    Selection.ParagraphFormat.SpaceBefore = 120
   
    ActiveDocument.FormFields("Anlage11Kapitel").Result = "Anlage 1.1"
End If

End Sub
genossealex
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 05. Feb 2020, 13:38

Re: Seiten löschen

Beitragvon genossealex » 25. Okt 2020, 20:33

Habe es hinbekommen :)

Code: Alles auswählen
Public Sub Anlagenblaetter()

Word.Selection.GoTo What:=wdGoToBookmark, Name:="Anlagen"

Dim rng As Range
Set rng = ActiveDocument.Range(Selection.Bookmarks("Anlagen").End)
rng.Delete


ActiveDocument.Bookmarks.Add Name:="Anlagen", Range:=Selection.Range

genossealex
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 05. Feb 2020, 13:38


Zurück zu Word Forum (provisorisch)

Wer ist online?

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