Run time error 429- ActiveX component can't create
I keep getting this error "Run time error 429 - ActiveX component can't create" on my program when i try to run it. Right at this line of code:
Set objApp = GetObject(, "Word.Application")
It ran just the other day perfect, now I cannot get past this "Run time error 429 - ActiveX component can't create"
help please. here is a few lines of the code.
Private Sub cmdOpenDocument_Click()
Set objApp = GetObject(, "Word.Application")
'OPEN PROCEDURE AND SET DOCUMENT OBJECT
Documents.Open (Me.txtPath)
Set objDoc = objApp.ActiveDocument
'SET PARAGRAPHS COLLECTION OBJECT
Set objPars = objDoc.Paragraphs
intLineNum = 1
intLev01 = 0
intLev02 = 0
intLev03 = 0
intLev04 = 0
'ENABLE CLOSE DOCUMENT BUTTON
Me.cmdGetNextLine.Enabled = True
Me.cmdGetHeader.Enabled = True
Me.cmdCloseDocument.Enabled = True
Me.cmdGetNextLine.SetFocus
Me.cmdOpenDocument.Enabled = False
Me.cmdSaveDocData.Enabled = True
'INITIALIZE THE RANK COUNTERS
Me.txtChRank = 1
Me.txtSigRank = 1
End Sub
|