י שלי קוד שאמור להסיר מספור עמודים מעמודים מסויימין בלבד.
כדי לעשות זאת צריך להוסיף מעבר מקטע לפני ואחרי העמודים הרצויים. ואז להסיר את הקישור למקטע הקודם מהמקטע החדש שנוצר - וגם להסיר את הקישור מהמקטע שאחריו (כדי שמיספור יעבוד גם אחריו) ואז למחוק את המיספור עמודים.
הקוד שלי עובד כשעוברים עליו שורה שורה (על ידי f8) אבל כשמריצים אותו ברצף הוא מוחק את הכותרת התחתית של המקטע שלפני המקטע הרצוי.
Sub SelectPages()
Dim allPages As Range, firstPage As Range, lastPage As Range, iPage As Long, xPage As Long
Set allPages = Selection.Range
Set firstPage = Selection.Range
Set lastPage = Selection.Range
firstPage.Collapse Direction:=wdCollapseStart
lastPage.Collapse Direction:=wdCollapseEnd
iPage = firstPage.Information(wdActiveEndPageNumber)
xPage = lastPage.Information(wdActiveEndPageNumber)
With ActiveDocument
Set firstPage = .GoTo(What:=wdGoToPage, Name:=iPage)
Set firstPage = firstPage.GoTo(What:=wdGoToBookmark, Name:="\page")
firstPage.Collapse Direction:=wdCollapseStart
firstPage.InsertBreak Type:=wdSectionBreakNextPage
Set lastPage = .GoTo(What:=wdGoToPage, Name:=xPage)
Set lastPage = lastPage.GoTo(What:=wdGoToBookmark, Name:="\page")
lastPage.Collapse Direction:=wdCollapseEnd
lastPage.InsertBreak Type:=wdSectionBreakNextPage
End With
lastPage.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
lastPage.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
firstPage.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
firstPage.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Delete
firstPage.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
Selection.Delete
firstPage.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Delete
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub