Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Document_Close()
Dim Map As String
Dim Bestandsnaam As String
Dim Extentie As String
Map = "D:\OneDrive\_HelpMij\Ms Word\stijn01\" 'Vul hier tussen de aanhalingstekens de opslagmap in
Bestandsnaam = InputBox("Typ de bestandsnaam", "Bestandsnaam invullen")
Extentie = ".docx" 'Vul hier tussen de aanhalingstekens de extentie in (docm is word incl macro's)
If Not Bestandsnaam = "" Then
ActiveDocument.SaveAs FileName:=Map & Bestandsnaam & Extentie
MsgBox "Uw document is met succes opgeslagen.", vbInformation, "Opslaan"
Else
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
End If
End Sub
Private Sub Document_Close()
Dim Map As String
Dim Bestandsnaam As String
Dim Extentie As String
Map = "D:\OneDrive\_HelpMij\Ms Word\stijn01\" 'Vul hier tussen de aanhalingstekens de opslagmap in
Bestandsnaam = InputBox("Typ de bestandsnaam", "Bestandsnaam invullen")
Extentie = ".docx" 'Vul hier tussen de aanhalingstekens de extentie in (docm is word incl macro's)
If Not Bestandsnaam = "" Then
ActiveDocument.SaveAs FileName:=Map & Bestandsnaam & Extentie
MsgBox "Uw document is met succes opgeslagen.", vbInformation, "Opslaan"
End If
End Sub
Je moet de macro toch ergens op triggeren; wat had je dan in gedachte? Wat je laatste vraag betreft: als het tekstvak een bladwijzernaam bevat, kun je daar naar verwijzen bij het opslaan.Afsluiten hoeft het document niet.
Private Sub Document_Open()
ActiveDocument.BuiltInDocumentProperties("Title") = "Testje Opslaan"
SaveTime
End Sub
Sub SaveTime()
Application.OnTime When:=Now + TimeValue("00:03:00"), Name:="DoDate"
Application.OnTime When:=Now + TimeValue("00:15:00"), Name:="DoSave"
End Sub
Sub DoSave()
Dim fld As FormField
With ActiveDocument
Set fld = .FormFields("txtDatumTijd")
If .Saved = False Then
.SaveAs .BuiltInDocumentProperties("Title") & "_" & Format(fld.Result, "yyyyMMdd_HHmm")
End If
SaveTime
End With
End Sub
Sub DoDate()
With ActiveDocument
.Fields.Update
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.