Excel Windows 2007 to Macro 2011 Office

Do you have errors? If so, where?

One thing you must know is that you may only have one instance of application running therefore if Word is already running, CreateObject("Word.Application") will fail. YOu must test using GetObject(, "Word.Application") and if that will return Nothing then you may call CreateObject.

Are you looking in Mac or in Windows? Word 14 is Word 2010 in Windows but 2011 on Mac; 12 is 2007 for Windows and 2008 for Mac. If you must support both versions it is better to late bind your code and not use references.

I'm looking in Windows myself, which is the biggest problem I am facing, trying to adapt it for Mac with Office 2011

If 14 is 2010, would explain why I am missing it (operating on 2007) - wonder then if originally was built in 2007, for windows, would the top lines need to reference the new object - as I'm assuming the Mac user in 2011 wouldn't be missing this reference?

It is better if you remove the reference, then use late bound code:

   Dim appWD                       As Object
   Dim wddoc                       As Object
   
   Const wdPasteEnhancedMetafile = 9
   Const wdInLine = 0
   
   On Error Resume Next
   Set appWD = GetObject(, "Word.Application")
   If appWD Is Nothing Then Set appWD = CreateObject("Word.Application")
   If appWD Is Nothing Then
      MsgBox "Can not start Word application"
      Exit Sub
   End If
   On Error GoTo 0
   
   Set wddoc = appWD.Documents.Add
   
   appWD.Visible = True

   With appWD.ActiveDocument.PageSetup
      .TopMargin = appWD.InchesToPoints(0.3)
      .BottomMargin = appWD.InchesToPoints(0.3)
      .LeftMargin = appWD.InchesToPoints(0.3)
      .RightMargin = appWD.InchesToPoints(0.3)
   End With



   Sheets("Quote").Range("A1:N57").Copy
   appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
                                wdInLine, DisplayAsIcon:=False

   Sheets("Solar Projection").Range("A1:P53").Copy
   appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
                                wdInLine, DisplayAsIcon:=False

   Sheets("SAP Figures").Range("A1:J46").Copy
   appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
                                wdInLine, DisplayAsIcon:=False

   Sheets("Payback Table").Range("A1:J51").Copy
   appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:= _
                                wdInLine, DisplayAsIcon:=False

   appWD.Activate