issue where when the font is different at the point of insertion, it types out in that font and size
I had previously tested it just in a new task and it worked fine.
However, when I have gone to some existing tasks, where inadvertently ( not deliberately! ) the standard font is different, then when I run the macro, to insert the day and time, it inserts the day and time, but in the font that is at that point in the task and then changes it to Arial, 12 etc . . .
Is it possible to alter the code, to allow for this?
However, when I have gone to some existing tasks, where inadvertently ( not deliberately! ) the standard font is different, then when I run the macro, to insert the day and time, it inserts the day and time, but in the font that is at that point in the task and then changes it to Arial, 12 etc . . .
Is it possible to alter the code, to allow for this?
The bit below does not change the general body text ... is that what you want?
Chris
Chris
Sub InsertAndFormatText()
Const wdColorBlue = 16711680
Dim olkTask As Outlook.TaskItem, _
objDoc As Object, _
objSel As Object, _
strTime As String, _
intStart As Integer, _
intLen As Integer
Set olkTask = Outlook.Application.ActiveInspector.CurrentItem
Set objDoc = olkTask.GetInspector.WordEditor
strTime = Format(Now, "ddd dd/m/yy h:mm AM/PM - ")
intLen = Len(strTime)
Set objSel = objDoc.Windows(1).Selection
intStart = objSel.Start
objSel.InsertAfter strTime
objDoc.Windows(1).Document.Range(intStart, intStart + intLen).Select
Set objSel = objDoc.Windows(1).Selection
With objSel
.Font.Bold = True
.Font.Color = wdColorBlue
End With
objDoc.Windows(1).Document.Range(intStart + intLen - 1, intStart + intLen + 1).Select
' Set objSel = objDoc.Windows(1).Selection
' With objSel
' .Font.Name = "Arial"
' .Font.Size = 12
' .Font.Bold = False
' .Font.Color = wdColorAutomatic
' End With
Set olkTask = Nothing
Set objDoc = Nothing
Set objSel = Nothing
End Sub
Open in New Window Select All
Hi Chris - thanks so much for your response, this doesn't do exactly as i need.
If you go into an empty task in Outlook and change the font and size for the line you are on as an example and then run this Macro, it will type out the Date & Time in that font and size, whereas i am just needing a standard format like Arial, Point Size 12, Bold & Blue text. Then, after the '-' ( ie. at the end of the date / time stamp ) i just need need it to take off the Bold and Blue part and just have typing show up as Arial & Size 12 Font.
Hope this makes sense ? Thanks so much for assisting and please let me know if you need any further info . . .
If you go into an empty task in Outlook and change the font and size for the line you are on as an example and then run this Macro, it will type out the Date & Time in that font and size, whereas i am just needing a standard format like Arial, Point Size 12, Bold & Blue text. Then, after the '-' ( ie. at the end of the date / time stamp ) i just need need it to take off the Bold and Blue part and just have typing show up as Arial & Size 12 Font.
Hope this makes sense ? Thanks so much for assisting and please let me know if you need any further info . . .
If I understand correctly then More like this?
Chris
Chris
Sub InsertAndFormatText()
Const wdColorBlue = 16711680
Dim olkTask As Outlook.TaskItem, _
objDoc As Object, _
objSel As Object, _
strTime As String, _
intStart As Integer, _
intLen As Integer
Set olkTask = Outlook.Application.ActiveInspector.CurrentItem
Set objDoc = olkTask.GetInspector.WordEditor
strTime = Format(Now, "ddd dd/m/yy h:mm AM/PM - ")
intLen = Len(strTime)
Set objSel = objDoc.Windows(1).Selection
intStart = objSel.Start
objSel.InsertAfter strTime
Set objSel = objDoc.Windows(1).document.range
With objSel
.Font.Name = "Arial"
.Font.Size = 12
.Font.Bold = False
.Font.Color = wdColorAutomatic
End With
objDoc.Windows(1).Document.Range(intStart, intStart + intLen).Select
Set objSel = objDoc.Windows(1).Selection
With objSel
.Font.Bold = True
.Font.Color = wdColorBlue
End With
objDoc.Windows(1).Document.Range(intStart + intLen - 1, intStart + intLen + 1).Select
Set olkTask = Nothing
Set objDoc = Nothing
Set objSel = Nothing
End Sub
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
Join our community and discover your potential
Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.
*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.