Hei!
Olisiko joku tietäväinen sellaisessa asiassa, että onko mahdollista saada koneelle sellaista automaattista tallennusta toimintaan.
Toisinsanoen, jos kirjoitan wordilla tekstiä ja tallennan sen omaan kansiooni, niin saisin siitä samaisesta kansiosta samalla kopion työkansiooni?
En tiedä onnistuinko ilmaisemaan tarpeeni riittävän selkeästi, mutta kuitenkin.
Jos siis tallennan tietoa jonnekkin, niin onko siitä mahdollista saada automaattisesti kopiota myös toiseen tallennuspaikkaan?
Kiitän ja kumarran tietäjille!
Olisiko joku tietäväinen sellaisessa asiassa, että onko mahdollista saada koneelle sellaista automaattista tallennusta toimintaan.
Toisinsanoen, jos kirjoitan wordilla tekstiä ja tallennan sen omaan kansiooni, niin saisin siitä samaisesta kansiosta samalla kopion työkansiooni?
En tiedä onnistuinko ilmaisemaan tarpeeni riittävän selkeästi, mutta kuitenkin.
Jos siis tallennan tietoa jonnekkin, niin onko siitä mahdollista saada automaattisesti kopiota myös toiseen tallennuspaikkaan?
Kiitän ja kumarran tietäjille!
Vastaukset 1
Vanhimmat
lisää moduuli ja laita sinne koodinpätkä
Dim X As New EventClassModule
Sub AutoOpen()
Set X.appWord = Word.Application
End Sub
ja lisää luokkamoduuli ja nimeä se EventClassModule ja sinne koodi
Public WithEvents appWord As Word.Application
Private Sub appWord_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If ActiveDocument.ComputeStatistics(wdStatisticPages) = 1 Then
Dialogs(wdDialogFileSaveAs).Show
End If
ChangeFileOpenDirectory "C:\temp" 'muuta polku
ActiveDocument.SaveAs FileName:=ActiveDocument.Name
ChangeFileOpenDirectory "C:\temp\temp" 'muuta polku
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.SaveAs FileName:=ActiveDocument.Name
Application.DisplayAlerts = wdAlertsAll
Cancel = True
End Sub
Muuta tallennuspolut itsellesi sopivaksi.