Delete tables in the page footer

[Senad Isanovic]

I have two tables in the page footer and want to delete one of these,
depending on what optionbox in the form is selected
This code is not working so I need something similar.?

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.GoTo What:=wdGoToBookmark, Name:="bSidfStrategic"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.Tables(2).Select
Selection.Tables(2).Select
Selection.Tables(2).Delete
Selection.Delete Unit:=wdCharacter, Count:=1

 

[Helmut Weber]

Hi Senad,

not much use in recording something like that.

Have a look at this example:

With ActiveDocument.Sections(1).Headers
(wdHeaderFooterPrimary).Range.Tables(1).Delete
End With

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000