通过vb.net（64位Windows和64位Office）添加水印时，如何解决“找不到元素”的问题？

Question

我想在文字中添加文本水印。

我使用Microsoft.Office.Interop.Word 15。 相同的代码适用于32位Office 2016，但适用于64位Office 365 当我调用“ .AddTextEffect”时，抛出异常“找不到元素” 0x8002802B。 我该如何解决这个问题？

wordDoc = wordApp.Documents.Open(file.FullName)
wordApp.Visible = True
'Create watermark
With wordDoc
    .Activate()
    .ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
    .ActiveWindow.ActivePane.Selection.HeaderFooter.Shapes.AddTextEffect(
        Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect1, 
        watermark, font, 1,
        Microsoft.Office.Core.MsoTriState.msoFalse,
        Microsoft.Office.Core.MsoTriState.msoFalse, 0, 0)
End With