rOn van Middendorp wrote:
Ik wil in een template een macro opnemen dat direct bij het creëren van
het bestand een aantal zaken voor mij doet (automatisering dus ^_^), en
wel de volgende:
1:
Document krijgt naam volgens format 20050628
2:
Versiebeheer wordt aangezet (waarom kan dat niet standaard?)
3:
Bestand wordt opgeslagen in een directory (hard adres in de macro)
De reden dat ik dat wil, is dat ik een masterdocument heb, dat als een
soort logboek functioneert.
Template voor de logboekentries bestaat al, waarin de datum neergezet
wordt, een regeleinde wordt ingegeven en dan kan ikke tikke. Nou, daar
zou ik graag de 3 handigheidjes inbakken. Tips? Iemand die dat in 2
minuten schrijven kan?
Met dank en groetzels,
rOn
Dag rOn,
2-en-een-halve minuut, mag dat ook ;-)
Als je onderstaande via
Extra|Macro's|Macro|Toewijzen
toewijst aan de gebeurtenis 'Document Aanmaken' van het sjabloon, moet
het goed gaan.
Ook even het pad aanpassen.
Succes & vr. groet,
Cor
Sub rOnMasterDoc
Dim sFileName$, sFileFullName$
Dim MyDoc
Dim args(0) As New com.sun.star.beans.PropertyValue
Const cFilePath = "D:\Mijn documenten\xxx\xxx\"
myDoc = ThisComponent
sFileName = MakeFileNameOfDate
sFileFullName = ConvertToUrl(cFilePath & sFileName)
myDoc.StoreAsUrl(sFileFullName, args())
StartVersioning
End Sub
Function MakeFileNameOfDate as string
Dim myDate as Date
myDate = Date
MakeFileNameOfDate = Year(myDate) & Month(myDate) & Day(myDate) & ".sxw"
End Function
Sub StartVersioning
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SaveVersionOnClose"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:SaveVersionOnClose", "", 0,
args1())
End Sub
--
Cor Nouws
http://www.nouenoff.nl
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
