The following code works to delete words in different areas of outlook, but when I highlight a field inside a contact and run the code, it deletes the words from the Note field, not field I identified. So is there a way to add to it so that it deletes the field I highlight....or even better, it runs on one or more contacts I select, and it deletes the words or dates from the field that is added to this?Sub DeleteDate()
Dim Ins As outlook.Inspector
Dim Document As Word.Document
Dim Word As Word.Application
Dim Selection As Word.Selection
Set Ins = Application.ActiveInspector
Set Document = Ins.WordEditor
Set Word = Document.Application
Set Selection = Word.Selection
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
End Sub
Dim Ins As outlook.Inspector
Dim Document As Word.Document
Dim Word As Word.Application
Dim Selection As Word.Selection
Set Ins = Application.ActiveInspector
Set Document = Ins.WordEditor
Set Word = Document.Application
Set Selection = Word.Selection
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
End Sub
)
