G
GWizz
Am trying to set the SaveAsType
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
'Set dlg.Application.FileDialog(msoFileDialogFilePicker) = 5
With dlg
.InitialFileName = strSavePath & "\" & strSaveFileName
.FilterIndex = 1
If .Show Then .Execute
End With
How do is set the filetype ie "doc"
Regards
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
'Set dlg.Application.FileDialog(msoFileDialogFilePicker) = 5
With dlg
.InitialFileName = strSavePath & "\" & strSaveFileName
.FilterIndex = 1
If .Show Then .Execute
End With
How do is set the filetype ie "doc"
Regards