Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Document_open()
UserForm1.Show
End Sub
Sub OpenFile()
'
' OpenFile Macro
' Macro recorded 26/07/07 by Mych
'
Documents.Open FileName:="C:CSVFile\[red]File1.csv[/red]", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End Sub
Dim strOldLocation As String
strOldLocation = Options.DefaultFilePath(wdDocumentsPath)
With Application
.ChangeFileOpenDirectory "c:\test"
.Dialogs(wdDialogFileOpen).Show
End With
Application.ChangeFileOpenDirectory strOldLocation