Runtime error 4198

[robgest]

Having an issue with this one.
Getting this error when I run this VB.... The second "ActiveDocument" part will all highlight yellow.

Private Sub CommandButton1_Click()
    chDir1 = "C:\CoA\"
    chDir2 = "P:\CoA2\"
    ActiveDocument.SaveAs FileName:=chDir1 & Format(Now(), "mm_dd_yyyy hh mm AMPM"), FileFormat:=wdFormatDocument, _
    LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False
    ActiveDocument.SaveAs FileName:=chDir2 & Format(Now(), "mm_dd_yyyy hh mm AMPM"), FileFormat:=wdFormatPDF, _
    LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False
End Sub

 

[PHV]

What is the error message ?
You have sufficient credentials on P:\CoA2\ ? (try a manual save as)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[robgest]

The error is "Runtime error 4198" and I am addmin. I keep trying diffrent things, but no luck.

 

[PHV]

Runtime error 4198
No error description message ?

I am addmin
Did you try the save as manually ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[robgest]

Figured it out.....
Didn't have the PDF Add-On installed on the 07 Word.