All
I am trying to find an easy way to get a file path/ name into a string, i ve come up with the following but seems a bit long winded, is there a shorter way
Gibbo
[VBA]Sub Test()
With Dialogs(wdDialogFileOpen)
.Name = "*.*"
.Display
Dim NameVar As String
NameVar = .Name
FullNameOfDoc = CurDir
If Right(FullNameOfDoc, 1) = "\" Then
FullNameOfDoc = CurDir & NameVar
Else
FullNameOfDoc = CurDir & "\" & NameVar
FullNameOfDoc = Replace(FullNameOfDoc, Chr(34), "")
End If
End With
MsgBox FullNameOfDoc
End Sub[/VBA]