Insert Date - Format Text / Cursor Location
On Sep 5, 8:16*am, srm wrote:
I'm using O2003. I have a simple script that inserts the date and some
text in notes and adds a carriage return /line feed at the end. Need
help on two items.
Can I bold just the date and have the cursor be on the new line on the
left. So for example the result of running the script would be as
follows:
bold09/05/08bold - Sample text
cursor location
Thanks
Shawn
====================
Sub InsertDate()
* * Dim objItem As Object
* * Set objItem = Application.ActiveInspector.CurrentItem
* * * * objItem.Body = objItem.Body & Format(Date, "mm/dd/yy") & " -
Sample text" & vbCrLf
* * Set objItem = Nothing
End Sub
=====================
Had one more question. My code always place the text at the bottom of
the notes. Is there something that will allow be to place the text
where the cursor is located?
Thank you.
|