VBA File path

[floggingmolly]

I have a workbook has a code which loads the path for word templates. It works, but it gives the specific path like C:\User\Me\Mywordtemplates\template1.docx. If the workbook is moved or someone elses uses it, then the template can't be found. The templates are in the same file as the workbook, so I would like to be able to load that filepath then the template name. Below is the code if anyone can help i would appreciate it.

Sub AddWordTemplate()
Dim WordTempLoc As FileDialog
Dim FirstRow As Long
Set WordTempLoc = Application.FileDialog(msoFileDialogFilePicker)
FirstRow = Sheet2.Range("E99999").End(xlUp).Row + 1 'First Available Row
With WordTempLoc
    .Title = "Select Word file to attach"
    .Filters.Add "Word Type Files", "*.docx,*.doc", 1
    If .Show <> -1 Then GoTo NoSelection
    Sheet2.Range("E" & FirstRow).Value = Dir(.SelectedItems(1)) 'Document Name
    Sheet2.Range("F" & FirstRow).Value = .SelectedItems(1) 'Document Pathway
End With
NoSelection:
End Sub

 

[Benners]

If you mean the templates are in the same folder as the workbook then you can use ThisWorkbook.Path & "\" to get the path

 

[John_w]

The templates are in the same file as the workbook

Assuming you mean folder, not file, add this line between .Filters.Add and .Show:

        .InitialFileName = ThisWorkbook.Path & "\"

 

[floggingmolly]

I tried editing the line of code that gives the path but it didnt work. I cant get this line to work using the activeworkbook path

Sheet2.Range("F" & FirstRow).Value = .SelectedItems(1) 'Document Pathway