Thread: [Solved] What am I missing to get this to work?
View Single Post
 
Old 05-02-2012, 05:54 PM
fredep57 fredep57 is offline Windows XP Office 2003
Novice
  
Join Date: May 2012
Posts: 2
fredep57 is on a distinguished road
Default What am I missing to get this to work?
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??
Reply With Quote