Option Explicit

Public Sub PasteUnformatted()

Dim oDoc As Object
Dim itm As Object
Dim objSel As Word.Selection

On error resume next
Set itm = Application.ActiveInspector.CurrentItem
on error goto 0

if itm is nothing then
    msgbox "Something wrong with current item"
    exit sub
end if

If itm.GetInspector.EditorType = olEditorWord Then
    Set oDoc = itm.GetInspector.WordEditor
    Set objSel = objDoc.Windows(1).Selection
    objSel.PasteSpecial Link:=False, DataType:=wdPasteText
End If

End Sub