I have this beautiful code that opens a Word document and populates the fields with the current open record in access. I would like to change or alter the code to become dynamic/interactive verses being static to only open a single hard-coded file. Ideally, I would like the code to open a file folder and display all the files, then when I select a file, have the file open and automatically populate the fields with the current open record in Access. I would also like the open document to be the top/visible window. Any assistance would be greatly appreciated. Thank you. Here is the base code that I've been using:

Private Sub Form_Letter_Fill_Click()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

On Error Resume Next

'Set WordApp object variable to running instance of Word.

Set WordApp = GetObject(, "Word.Application")

If Err.Number <> 0 Then
'If Word isn’t open, create a new instance of Word.
Set WordApp = New Word.Application

End If

Set WordDoc = WordApp.Documents.Open("c:\formfiles\cover.docx" , , true)

With WordDoc
.FormFields("Text1").Result = Me.Salutation
.FormFields("Text2").Result = Me.First_Name
.FormFields("Text3").Result = Me.Last_Name
.FormFields("Text4").Result = Me.Street_Address_1
.FormFields("Text5").Result = Me.Street_Address_2
.FormFields("Text6").Result = Me.City
.FormFields("Text7").Result = Me.State
.FormFields("Text8").Result = Me.[ZIP Code]
.Visible = True

End With

Set worddoc = Nothing
Set WordApp = Nothing

Exit Sub

MsgBox Err.Number & ": " & Err.Description

End Sub