Need Help With Opening a Word Document

PosseJohn · #1 12-06-2013, 12:51 PM

Need Help With Opening a Word Document from Access AND having Document_Open() activate automatically AND having the file available for editing/saving.

I have tried the following, but the document opens as a READ-ONLY file and VBA is NOT enabled or prompted for.

I need the file to open for editing & saving, and with VBA enabled automatically.

Code:

Private Sub cmdTO_Click()
    On Error Resume Next
 
    Dim Webtarget As String
    Dim wdObj As Object
    Dim wdDoc As Object
    'Must enable the Microsoft Word 14.0 Object Library from the Tools menu, References.
 
    Webtarget = "\\...\ShiftTurnover\U1TO.docm"
 
    Set wdObj = CreateObject("Word.Application")
    wdObj.Visible = True
    wdObj.Activate
    Set wdDoc = wdObj.Documents.Open(Webtarget)
 
    DoCmd.SetWarnings True
 
End Sub

Is there more to the .Documents.Open(___) syntax to allow opening for editing and macro enabling?

Your help is GREATLY appreciated.

PosseJohn · #2 12-06-2013, 01:16 PM

MY BAD!!

I had the following code in the Document_Open event which precluded unprotecting the document.

So in fact, macros/VBA is enabled with the document, BUT it still opens as READ-ONLY.

Code:

    If ThisDocument.Name = "U3TO.docm" And ThisDocument.ReadOnly = False Then
        Select Case ThisDocument.ProtectionType
            Case wdAllowOnlyComments
                'This is the protection that the file should find itself in.
                ThisDocument.Unprotect Password:=conPass
            Case wdAllowOnlyFormFields
                MsgBox "Only Form Fields, this SHOULD NOT BE RECEIVED"
                ThisDocument.Unprotect Password:=conPass
            Case wdAllowOnlyReading
                MsgBox "Only Reading, this SHOULD NOT BE RECEIVED"
                ThisDocument.Unprotect Password:=conPass
            Case wdAllowOnlyRevisions
                MsgBox "Only Revisions, this SHOULD NOT BE RECEIVED"
                ThisDocument.Unprotect Password:=conPass
            Case wdNoProtection
                'No action, had to trap no protection in case file was saved unprotected.
        End Select
    End If

I've changed the code to:

Code:

    If ThisDocument.Name = "U3TO.docm" Then
        Select Case ThisDocument.ProtectionType
            Case wdAllowOnlyComments
                'This is the protection that the file should find itself in.
                ThisDocument.Unprotect Password:=conPass
            Case wdAllowOnlyFormFields
                MsgBox "Only Form Fields, this SHOULD NOT BE RECEIVED"
                ThisDocument.Unprotect Password:=conPass
            Case wdAllowOnlyReading
                MsgBox "Only Reading, this SHOULD NOT BE RECEIVED"
                ThisDocument.Unprotect Password:=conPass
            Case wdAllowOnlyRevisions
                MsgBox "Only Revisions, this SHOULD NOT BE RECEIVED"
                ThisDocument.Unprotect Password:=conPass
            Case wdNoProtection
                'No action, had to trap no protection in case file was saved unprotected.
        End Select
    End If

Is there code to change READ-ONLY?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Document Not Opening With Excel VBA	JennEx	Word VBA	3	06-20-2013 10:10 AM
Need help opening my important word document	HenrikSandstrom	Word	1	12-03-2012 03:52 PM
Problem opening second Word document	bTaryag	Word	1	08-02-2011 02:48 PM
Word document not opening	7beats	Word	2	04-16-2010 12:40 AM
Opening word document problem	SPARKY77	Word	4	11-02-2009 01:34 AM