Hermans, Ton schreef:
Hoi Dick,
Het gaat om macro's in Writer. Staat dus even los van SQL. De oplossing van Cor lijkt mij prima. Heb het nog niet uitgeprobeerd omdat ik met een RSI achtig probleem kamp.
Ton
OK, deze heeft Andrew Pitonyak ooit eens gemaakt:
Sub InsertDateField
Dim oDocument As Object
Dim oText As Object
Dim oViewCursor As Object
Dim oTextCursor As Object
Dim oDateTime As Object
oDocument = ThisComponent
If oDocument.SupportsService("com.sun.star.text.TextDocument") Then
oText = oDocument.Text
oViewCursor = oDocument.CurrentController.getViewCursor()
oTextCursor = oText.createTextCursorByRange(oViewCursor.getStart())
oText.insertString(oTextCursor, "Vandaag is ", FALSE)
' Create the DateTime type.
ODateTime =
oDocument.createInstance("com.sun.star.text.TextField.DateTime")
oDateTime.IsFixed = TRUE
oDateTime.NumberFormat = FindCreateNumberFormatStyle(_
"DD-MM-JJJJ", oDocument)
oText.insertTextContent(oTextCursor,oDateTime,FALSE)
oText.insertString(oTextCursor," ",FALSE) Else
MsgBox "Sorry, deze macro vereist een tekstdocument"
End If
End Sub
--
DiGro
------------------------------------------
Scanned for virusses with Norton Antivirus
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
