m54-b Creative Commons License 2023.04.02 0 0 917

Nekem a teszt szövegben az első oldal eltérő volt beállítva, azért működött. Módosítottam a makrót

 

Sub utolso_lablec_torles()

  Selection.GoTo What:=wdGoToPage, Which:=wdGoToLast
  Selection.InsertBreak Type:=wdSectionBreakNextPage
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
        LinkToPrevious
  x = ActiveDocument.Sections.Count
  With ActiveDocument.Sections(x)
    .Footers(wdHeaderFooterFirstPage).Range.Text = ""
  End With
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Most az első és a jobb-bal oldal eltérőnél működik.

Előzmény: OldPinokkio (916)