error runtime 429

Posted on 2007-10-17
Last Modified: 2013-12-27
...if i use the same code on a PC without Open Office the macro go in error in:
Set oSM = CreateObject("")....

To run this code in a pc whitout Open Office is possible? tks.

Private Sub Command1_Click()
Dim oSM, oDesk, oDoc As Object 'OOo objects
Dim OpenParam(1) As Object 'Parameters to open the doc
Dim SaveParam(1) As Object 'Parameters to save the doc
Set oSM = CreateObject("")
Set oDesk = oSM.createInstance("")
Set OpenParam(0) = MakePropertyValue("Hidden", True)  ' Open the file hidden
Set oDoc = oDesk.loadComponentFromURL("file:///C:/Documents and Settings/michel/dossier/general/excel/test.doc", "_blank", 0, OpenParam())
Set SaveParam(0) = MakePropertyValue("FilterName", "writer_pdf_Export")
Call oDoc.storeToURL("file:///C:/Documents and Settings/michel/dossier/general/excel/test.pdf", SaveParam())
Set oDesk = Nothing
Set oSM = Nothing
Unload Me
End Sub
'Automation/UNO bridge can't convert VB struct to UNO struct !
'Creates a sequence of s
'Original from DannyB
Public Function MakePropertyValue(cName, uValue) As Object
Dim oStruct, oServiceManager As Object
    Set oServiceManager = CreateObject("")
    Set oStruct = oServiceManager.Bridge_GetStruct("")
    oStruct.Name = cName
    oStruct.Value = uValue
    Set MakePropertyValue = oStruct
End Function
Question by:sal21
    1 Comment
    LVL 14

    Accepted Solution

    Well, I thought a 'newbie' answer (newbie in VB and related) is better than no answer:
    From pure logic I'd say the runtime error 429 says it all:
    " Cause
    This error message indicates that a required software component is not properly registered or installed."

    You need components from Open Office but open office is not installed, thus
    ActiveX component cannot create required object - EOF ; )

    Featured Post

    What Should I Do With This Threat Intelligence?

    Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

    Join & Write a Comment

    This post first appeared at Oracleinaction  ( Anju Garg (Myself). I  will demonstrate that undo for DML’s is stored both in undo tablespace and online redo logs. Then, we will analyze the reaso…
    For Sennheiser, comfort, quality and security are high priority areas. This paper addresses the security of Bluetooth technology and the supplementary security that Sennheiser’s Contact Center and Office (CC&O) headsets provide.  
    how to add IIS SMTP to handle application/Scanner relays into office 365.
    In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor ( If you're interested in additional methods for monitoring bandwidt…

    729 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    18 Experts available now in Live!

    Get 1:1 Help Now