"Dé grootste en gratis computerhelpdesk van Nederland"
Macro opslaan op datum en naar locatie
- Onderwerp starter BOUKES
- Startdatum
- Status
OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 42.021
Je kunt geen macro hangen aan een afbeelding; daarvoor zul je sowieso een Commandbutton moeten gebruiken. Dan zou je wellicht hier wat aan kunnen hebben. Wel in de code even het pad aanpassen, want niet iedereen heeft een S-schijf 
.
.Nabrander
Wat moet ik nog aan deze code toevoegen zodat Word wordt afgesloten?
Private Sub CommandButton1_Click()
Dim aDoc As Document
Dim cc As ContentControl
Dim dt As Date
Set aDoc = ActiveDocument
For Each cc In aDoc.ContentControls
If cc.Title = "DatumKiezer" Then
dt = CDate(cc.Range.Text)
Exit For
End If
Next cc
aDoc.SaveAs2 "S:\AMS\Service\Dagjournaal\3 MRT" & Format(dt, "d-m-yyyy") & ".doc"
End Sub
Wat moet ik nog aan deze code toevoegen zodat Word wordt afgesloten?
Private Sub CommandButton1_Click()
Dim aDoc As Document
Dim cc As ContentControl
Dim dt As Date
Set aDoc = ActiveDocument
For Each cc In aDoc.ContentControls
If cc.Title = "DatumKiezer" Then
dt = CDate(cc.Range.Text)
Exit For
End If
Next cc
aDoc.SaveAs2 "S:\AMS\Service\Dagjournaal\3 MRT" & Format(dt, "d-m-yyyy") & ".doc"
End Sub
robdgr
Verenigingslid
- Lid geworden
- 8 sep 2001
- Berichten
- 4.420
- Office versie
- Microsoft 365
In excel werkt dat inderdaad dus vermoedelijk in Word ook
- Status
