Jump to header in Microsoft Word via Com Object

[cdull]

I don't know how to find out a Com Object.

In this case i want to focus the header of my Word file (alternative to get there is Alt+V, H - but there i get every time i close word a building blocks prompt)

I think the first part is this:

oWord := ComObjActive("Word.Application")

Secons maybe something like:

oWord.Focus.Header

[TLM]

focus header:

Code: Select all

oWord := ComObjActive("Word.Application")

; constants
wdSeekCurrentPageHeader := 9

; focus header
oWord.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader

Bonus

focus header, append header, focus document:

Code: Select all

oWord := ComObjActive("Word.Application")

; constants
wdStory 				:= 6
wdSeekMainDocument 		:= 0
wdSeekCurrentPageHeader := 9

SomeText := " ....more header text"

; focus header
oWord.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader

; jump to end of header
oWord.Selection.EndKey( wdStory )

; append header text
oWord.Selection.TypeText( SomeText )

; focus main document
oWord.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument

Extra

append header no focus:

Code: Select all

oWord := ComObjActive("Word.Application")

; constants
wdHeaderFooterPrimary 	:= 1

SomeText 				:= " ....more header text"

; create view & header objects
ViewObj 				:= oWord.ActiveWindow.ActivePane.View
HeaderObj 				:= oWord.ActiveDocument.Sections( 1 ).Headers( wdHeaderFooterPrimary )

; get header text
HeaderText 				:= RTrim( HeaderObj.Range.Text, "`r`n" )

; append header text
HeaderObj.Range.Text 	:= HeaderText . SomeText

[cdull]

That works perfectly.

Thank you very much.

[PompTart]

Where do you find this information, about "ActiveWindow.ActivePane.View.SeekView" etc?

[TLM]

@PompTart
see: https://docs.microsoft.com/en-us/office/vba/api/word.view.seekview
also: https://docs.microsoft.com/en-us/office/vba/api/overview/word/object-model