Sub or function not defined, running word code from excel..

[Chrisjd2]

Hi Chaps,

I'm exporting some data into word from excel, and it gives me this error:- "Sub or Function, Not defined"

Set objWord = CreateObject("Word.Application")Set objDoc = objWord.Documents.Add
objWord.Visible = True
    
    With objDoc.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.54)
        .BottomMargin = CentimetersToPoints(2.54)
        .LeftMargin = CentimetersToPoints(2.54)
        .RightMargin = CentimetersToPoints(2.54)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(16.2)
        .PageHeight = CentimetersToPoints(22.9)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With

 

[FormR]

Hi, this compiles..:

Const wdOrientPortrait As Long = 0
Const wdPrinterDefaultBin As Long = 0
Const wdSectionNewPage As Long = 2
Const wdAlignVerticalTop As Long = 0
Const wdGutterPosLeft As Long = 0<o:p></o:p>
Set objWord =CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add<o:p></o:p>
objWord.Visible = True
  
    With objDoc.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = Application.CentimetersToPoints(2.54)
        .BottomMargin = Application.CentimetersToPoints(2.54)
        .LeftMargin = Application.CentimetersToPoints(2.54)
        .RightMargin = Application.CentimetersToPoints(2.54)
        .Gutter = Application.CentimetersToPoints(0)
        .HeaderDistance = Application.CentimetersToPoints(1.25)
        .FooterDistance = Application.CentimetersToPoints(1.25)
        .PageWidth = Application.CentimetersToPoints(16.2)
        .PageHeight = Application.CentimetersToPoints(22.9)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft

    End With<o:p></o:p>

 

[Chrisjd2]

Thank you, However the lines of code with 'wd' starting it doesnt work, the field remains "Empty".

???

 

[FormR]

Hi, I was only addressing the compile error in my response, however I'm not sure how much more help I can be as I don't really know much about word and more importantly I don't know what you are trying to do.

the lines of code with 'wd' starting it doesnt work, the field remains "Empty".

I don't see any lines of code that start with 'wd' and I don't see any code that creates or populates a "field" - whatever that might be.