Sub Test_Macro() Dim docTitle As Document Dim stylepath As String Dim stylename As FileDialog MsgBox ("Please choose Reference File") Set stylename = Application.FileDialog(filedialogtype:=msoFileDialogFilePicker) If stylename.Show Then stylepath = stylename.SelectedItems(1) End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)