Add bookmark with vba in the header

Visor · #1 08-17-2019, 05:40 PM

Greetings friends of the forum, this time I raise the present problem.
when opening the document I want to place a bookmark in the header with vba but from the second page and then from three spaces.

HTML Code:

Sub addBM_Header()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveDocument.ActivePane.View.NextHeaderFooter
    ActiveDocument.Sections(1).headers (wdHeaderFooterPrimary)
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    ActiveDocument.Bookmarks.Add Name:="NombreEncab", Range:=Selection.Range
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

I have the macro that I attached but when executing it at the end it shows me an error because it doesn't find any more pages

this is

HTML Code:

ActiveDocument.Sections(1).headers(wdHeaderFooterPrimary).Bookmarks.Add Range:=Selection.Range, Name:="NombreEncab"

something like this does not work in bookmark but if I only put text in the header

How can I solve this?

Thanks in advance for the support

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Different Odd/Even Header with no header on first page of new chapters	bbecker24	Word	4	05-09-2018 08:17 PM
Header Info: Connecting seclected items for 1st page Header into Following Pages	SMHa	Word	1	08-24-2016 10:00 AM
No Header	bullsfan586	Word	1	08-29-2015 07:55 PM
How do I get this header?	veed	Word	7	04-10-2013 12:25 AM
How to get this header?	msvis	Word	1	12-04-2011 07:45 PM