Sub ReplaceInSelectedText()
    Dim objInspector As Outlook.Inspector
    Dim objWordEditor As Object
    Dim objSelection As Object
    Dim selectedText As String
    Dim replacedText As String
    Dim searchText As String
    Dim replaceText As String

    ' Get the current Inspector
    Set objInspector = Application.ActiveInspector

    ' Ensure the Inspector is open and in compose mode
    If Not objInspector Is Nothing And objInspector.EditorType = olEditorWord Then
        ' Access the Word editor
        Set objWordEditor = objInspector.WordEditor
        Set objSelection = objWordEditor.Application.Selection

        ' Get the selected text
        selectedText = objSelection.Text

        ' Define the text to search for and replace
        searchText = "oldWord"  ' Replace with the word/phrase to search for
        replaceText = "newWord" ' Replace with the word/phrase to replace with

        ' Replace the text
        replacedText = Replace(selectedText, searchText, replaceText)

        ' Update the selection with the replaced text
        objSelection.Text = replacedText

        MsgBox "Text replaced successfully!", vbInformation
    Else
        MsgBox "Please ensure you are editing an email and have selected text.", vbExclamation
    End If
End Sub