What am I missing to get this to work?

fredep57 · #1 05-02-2012, 05:54 PM

I have a macro that prints an invoice in word. In it I change the footer information. Now it works up to the point below

Code:

  While ActualCopies <= mCopies
    If ActualCopies = 1 Then
        WordBasic.ViewFooterOnly
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Delete Unit:=wdCharacter, Count:=1
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.TypeText Text:="Customer Copy"
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Actually, it failes at the "WordBasic.ViewFooterOnly" line with the error"Runtime error '438': Object does not support this property or method"

What do I need to do/add to get this to work??

macropod · #2 05-04-2012, 01:26 AM

You shouldn't need to 'seek' either the header or document views. You may also need to specify which header to update. Try:

Code:

While ActualCopies <= mCopies
  If ActualCopies = 1 Then
    With ActiveDocument.Sections.First.Headers(wdHeaderFooterPrimary).Range
      .Text = "Customer Copy"
      .Paragraphs.First.Alignment = wdAlignParagraphCenter
    End With
  etc.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Missing some work from work really need help	lukepierce222	Word	6	04-19-2012 08:41 AM
work vs regular work. and how regular work works	user0044	Project	5	03-06-2012 07:28 AM
Emails have gone MISSING!	skapoor	Outlook	1	01-06-2012 08:51 PM
Missing files	JIM1	PowerPoint	0	12-04-2011 03:01 PM
Package for CD missing??	judderbones	PowerPoint	1	03-24-2011 08:56 AM