编辑 word 中的 ContentControl From Excel VBA

Question

大家好，

我已经尝试搜索解决方案，但我的目标 Word 文档中的“纯文本内容控件”似乎没有响应 ' objDoc.SelectContentControlsByTag("Name").Item(1).Range.Text '行代码。我试图让它与“ActiveDocument”选项一起工作，但我不希望它与活动的选项一起工作。

所以这是我在 VBA excel 中的代码：（我只想编辑纯文本上下文控件中的内容）

Sub dataToWord()

    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open("C:\Users\ASUS\Documents\Excell to Word - Copy\WordTesting1.docx")
    
   
    objWord.Visible = True
    objDoc.SelectContentControlsByTag("Name").Item(1).Range.Text = "I want to type some text here"
  
    objDoc.Save
    objDoc.Close

End Sub

x---------------------x

我遇到了这个错误

运行时错误“445”：对象不支持此操作

它指的是行

objDoc.SelectContentControlsByTag("Name").Item(1).Range.Text = "我想在这里输入一些文字" x------------------------------------x

我想在我的 word 应用程序中编辑纯文本内容控件。

请大家帮帮我，我还是新来的。

Answer 1

我已禁用 WPS 应用程序。而且它工作正常..它似乎与 Microsoft Word 应用程序冲突..

编辑 word 中的 ContentControl From Excel VBA

Editing The ContentControl in word From Excel VBA

excel

vba

ms-word

edit

word-contentcontrol