Dés lors que vous utilisez l'éditeur Word dans un Mail, vous devez vous assurer qu'un explorateur est actif dans l'application Outlook. Cela pourrait être la cause de votre problème.
'// assignation application Outlook
Set OL = CreateObject("Outlook.Application")
If OL.Explorers.Count = 0 Then
OL.Session.GetDefaultFolder(olFolderInbox).Display
OL.ActiveExplorer.WindowState = olMinimized
End If
Set myItem = OL.CreateItem(olMailItem)
Set wDoc = myItem.GetInspector.WordEditor