格式约会机构有时会出错

Question

我经常使用这篇文章中描述的代码：Formatting appointment body

它大部分时间都有效，但有时会出现此错误：

  

4605此方法或属性不可用，因为该属性已被锁定以进行编辑

但是下一次它工作正常。我有什么想法可以避免这个错误？ 以下是我的一些代码：

Set objItem = olAppt ' Application.ActiveInspector.currentItem
Set objInsp = objItem.GetInspector
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection
objSel.PasteAndFormat (wdFormatOriginalFormatting)'Code errors here