Sub highlightfile()
    Shell "explorer.exe /select, """ & ActiveDocument.Path & "\" & ActiveDocument.Name & """", vbNormalFocus
End Sub