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??

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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