Run-time Error "91"

Question

Get run-time error 91 "Object variable or With block variable not set" for the following code (running Word 2010):

Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=3, Name:=""
With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .SeekView = wdSeekCurrentPageFooter
End With
Selection.HeaderFooter.Range.Select <---------------This line is highlighted when I select Debug in the error dialog
Selection.Collapse
Selection.TypeText "HERE"
Selection.Extend Character:="R"
Selection.Extend Character:="R"
Selection.Delete
Selection.Collapse
Selection.TypeText vbTab
Selection.TypeText vbTab

What am I doing wrong (that is, what do I need to do to correct this and get rid of the error)?

Thank you!

Answer 1

Like this:

Dim rng As Range  
With ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary)  
    .Range.Text = "Preliminary" & vbTab & vbTab  
    Set rng = .Range  
End With  
rng.ParagraphFormat.Borders(wdBorderTop).LineStyle = wdLineStyleSingle  
rng.Collapse Direction:=wdCollapseEnd  
ActiveDocument.Fields.Add Range:=rng, Type:=wdFieldPage

Answer 2

Try this:

Dim rng As Range  
With ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary)  
    .Range.Text = vbTab & vbTab  
    Set rng = .Range  
End With  
rng.Collapse Direction:=wdCollapseEnd  
ActiveDocument.Fields.Add Range:=rng, Type:=wdFieldPage

Answer 3

I prompt the user for some info and put it into various spots on a cover page (in section 1), then skip the table of contents page (in section 2) and go to section 3, where I select and delete a couple of paragraphs based on the user's previous choice. I then want to go into the footer for section 3, select some text (through the second "R"), delete it, and insert 2 tabs (to put the page number that's already there over to the far right (there's already a center tab stop and a right tab stop in the footer to begin with.) (I, too, had no problems with the code in a simple document with just 3 plain-vanilla sections. I am beginning to think Word hates me.) Thank you!

Answer 4

What does that Header contain before you run the macro.

Answer 5

I tried the code and didn't get an error.

But if you describe what you want to accomplish, it might be possible to help.