Select Text in Outlook Message and Italicize it

[deneralex]

Hi Everyone! I researched everywhere on this site to at least grab some snippets of code for my task and couldn't find anywhere.

I'm trying to create a macro: I Place the cursor next to a line of text, I run macro, macro will select entire line of text (same as SHIFT+DOWN), then italicize it.

The idea here is that I have a lot of meeting notes and lots of titles, so would be nice to run macro that selects text and italicize it based on where i place my cursor.

This Macro would run inside an Outlook New Email window where you edit text and send it off.

Thank you so much for your help and input!
Outlook 2016/2019 . Win 10

Example:

James E Brown <---- (I would place cursor right before James and run macros, macros would select entire name and italicize it)
-During the meet it was discussed blah blah blah

[deneralex]

So Far I have this. It selects the line of text, but does not turn it into italics.

Public Sub FormatSelectedText()
Dim objItem As Object
Dim objInsp As Outlook.Inspector



Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection
On Error Resume Next



Set objItem = Application.ActiveInspector.CurrentItem
If Not objItem Is Nothing Then
If objItem.Class = olMail Then
Set objInsp = objItem.GetInspector
If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection


objSel.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
objSel.Font.Italic = wdToggle




End If
End If
End If

Set objItem = Nothing
Set objWord = Nothing
Set objSel = Nothing
Set objInsp = Nothing
End Sub

[deneralex]

Actually I figured it out.

Public Sub FormatSelectedText()
Dim objItem As Object
Dim objInsp As Outlook.Inspector

' Add reference to Word library
' in VBA Editor, Tools, References
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection
On Error Resume Next

'Reference the current Outlook item
Set objItem = Application.ActiveInspector.CurrentItem
If Not objItem Is Nothing Then
If objItem.Class = olMail Then
Set objInsp = objItem.GetInspector
If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection


objSel.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
objSel.Font.Italic = True




End If
End If
End If

Set objItem = Nothing
Set objWord = Nothing
Set objSel = Nothing
Set objInsp = Nothing
End Sub