Listened to Co Pilot

Question

Hello from Steve

Now all I need please is to open

Sub OpenForm2()

Const strFolder As String = "C:\Tab Form\Input Stakes"

Dim doc As Document

With Application.FileDialog(FileDialogType:=1) ' 1 = msoFileDialogOpen

    .Filters.Clear

    .Filters.Add Description:="Word documents (*.doc*)", Extensions:="*.doc*"

    .InitialFileName = strFolder & "*.doc*"

    If .Show Then

        Set doc = Documents.Open(FileName:=.SelectedItems(1))

    Else

        Beep

        Exit Sub

    End If

End With
End Sub

---

Mod moved from : Microsoft 365 and Office | Word | For home | Windows

Answer 1

Hello @SteveD ,

Thanks for your question.

I see one small issue with the InitialFileName line. The folder path is missing a backslash () before the wildcard, which can cause the initial folder to not resolve properly. I recommend these following code:

Sub OpenForm2()
    Const strFolder As String = "C:\Tab Form\Input Stakes\"

    Dim doc As Document

    With Application.FileDialog(FileDialogType:=1) ' 1 = msoFileDialogOpen

        .Filters.Clear
        .Filters.Add Description:="Word documents (*.doc*)", Extensions:="*.doc*"
        .InitialFileName = strFolder & "*.doc*"

        If .Show Then
            Set doc = Documents.Open(FileName:=.SelectedItems(1))
        Else
            Beep
            Exit Sub
        End If

    End With
End Sub

Please try and let me know if it works.

I hope this addresses your question. If this response was helpful, please consider following the guidance to provide feedback.

Answer 2

Use the Documents.Open method with the file path returned by the FileDialog, as in the sample below. The main change is to ensure the InitialFileName ends with a backslash and to keep the Open call simple:

Sub OpenForm2()

    Const strFolder As String = "C:\Tab Form\Input Stakes\"  ' note trailing backslash
    Dim doc As Document

    With Application.FileDialog(FileDialogType:=1) ' 1 = msoFileDialogOpen
        .Filters.Clear
        .Filters.Add Description:="Word documents (*.doc*)", Extensions:="*.doc*"
        .InitialFileName = strFolder

        If .Show Then
            Set doc = Documents.Open(FileName:=.SelectedItems(1))
        Else
            Beep
            Exit Sub
        End If
    End With

End Sub

This code:

• Opens a File Open dialog in C:\Tab Form\Input Stakes\.
• Filters to show only Word documents (*.doc*).
• Opens the selected file into a Document object using Documents.Open.

If needed, the opened document can then be manipulated via the doc variable (for example, doc.Save, doc.Close, etc.).

---

References:

• Documents.Open method (Word)
• Working with Document Objects
• FileDialog Property
• Calling Sub and Function procedures