Öppna Spara nära som Word-fil Detta program öppnar en Word-fil på en på förhand fastställd plats och sparar filen med ett annat namn till ett annat ställe.
Förklaring För att göra programmet arbete hänvisningen "Microsoft Word XX.X Object Library" måste vara aktiverat. Ett exempel fil av koden går att ladda ned i slutet av denna webbplats, njut! Eller bara kopiera och klistra in koden direkt från denna sida.
Kod Sub Open_Close _Save_As_Word_File ()
Dim Open_Close _Save_As_Word_File_APP As Word.Application
Dim Open_Close _Save_As_Word_File_DOC As Word.Document
Set Open_Close _Save_As_Word_File_APP = CreateObject ("Word.Application")
Dim PlaceOfWordFile As String
Dim NameOfWordFile As String
Dim NewPlaceOfWordFile As String
Dim NewNameOfWordFile As String
PlaceOfWordFile = Range ("B4") .Value
NameOfWordFile = Range ("B5") .Value
NewPlaceOfWordFile = Range ("B6") .Value
NewNameOfWordFile = Range ("B7") .Value
NamePlace = PlaceOfWordFile + "" + NameOfWordFile
NewNamePlace = NewPlaceOfWordFile + "" + NewNameOfWordFile
Open_Close _Save_As_Word_File_APP.Visible = True
Set Open_Close _Save_As_Word_File_DOC = Open_Close _Save_As_Word_File_APP.Documents .Open (NamePlace, ReadOnly: = True)
Open_Close _Save_As_Word_File_DOC.Save As (NewNamePlace)
Open_Close _Save_As_Word_File_APP.Quit
Set Open_Close _Save_As_Word_File_DOC = Nothing
Set Open_Close _Save_As_Word_File_APP = Nothing
End Sub
Ladda ner Excel-fil!Open_Close_Save_As_Word_File.xls |
