Excel VBAを使用してBuildingBlockEntryを使用してWord文書にウォーターマークを追加する問題

Question

現在Excel VBAを使用してWord文書にウォーターマークを追加しようとしています。私はWord VBAからそうすることができ、他の機能を実装するためにコードを翻訳して、特定の行にエラーが発生しています。私はウォーターマークの挿入を要求するときにWordビルディングブロックを指し示す必要があると思っていますが、わかりません。

エラーがラインから "コレクションの要求されたメンバーが存在しない" です。oWord.Templates（strBBPath）.BuildingBlockEntries（strBBName）.Insert：= oRng、リッチテキスト：ここで= Trueの

です私のコード：

Sub AddWatermark() 
    Dim oWord as Word.Application 
    Dim oDoc As Word.Document 
    Dim oSection As Word.section 
    Dim oHeader As Word.HeaderFooter 
    Dim oRng As Word.Range 
    Dim strName As String 
    Dim strPath As String 
    Dim strBBPath As String 
    Const strBBName As String = "SAMPLE 1" 'The building block name that you want to insert 

    strBBPath = "C:\Users\" & (Environ$("Username")) & "\AppData\Roaming\Microsoft\Document Building Blocks\1033\14\Built-In Building Blocks.dotx" 

       Dim lngCount As Long 

       ' Open the file dialog 
       With Application.FileDialog(msoFileDialogOpen) 
        .AllowMultiSelect = True 
        .Show 

        ' Display paths of each file selected 
        For lngCount = 1 To .SelectedItems.Count 
         Set oWord = New Word.Application 
         strPath = .SelectedItems(lngCount) 
         Set oDoc = oWord.Documents.Open(strPath) 
        Next lngCount 
       End With 

    'oDoc.Save 'save the document 
    strName = oDoc.FullName 'Record the document name 
    oWord.Visible = True 

    'Address each section 
    For Each oSection In oDoc.Sections 
     'Address each header in the section 
     For Each oHeader In oSection.Headers 

      Set oRng = oHeader.Range 
      oRng.Start = oRng.End 'set the range to the end of the header 
      'Insert the built-in building block 
      oWord.Templates(strBBPath).BuildingBlockEntries(strBBName).Insert Where:=oRng, RichText:=True 

     Next oHeader 
    Next oSection 

    End Sub 

Answer 1

これはこの投稿の回答です。https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_other/run-time-error-5941-not-always-but-annoyingly/b95ec1db-6928-4d87-b799-52d4f1c01f08

個の

ワードビルディングブロックは、このメソッドを使用してから引っ張ってロードする必要があります。oWord.Templates.LoadBuildingBlocks

は見ていたすべての人に感謝します。 :)

Answer 2

あなたはどこか他のあなたのコード内の浮遊Word識別子を持っていない限り、あなたがその特定のエラーメッセージが表示されます理由はありません手掛かり。これをExcelで実行している場合は、はとする必要があります。「実行時エラー424 - オブジェクトが必要です」。あなたは...この行のため、Excelで

Word.Application.Templates(strBBPath).BuildingBlockEntries(strBBName).Insert Where:=oRng, RichText:=True 

をグローバルWordオブジェクトへのアクセス権を持っていない... ExcelはWordが何であるかわかりません。モジュールの上部にあるOption Explicitはこのエラーを検出していました。あなたのWord.Applicationオブジェクトを使用する必要があります、あなたは明らかに事前バインディングを使用していると述べた

oWord.Templates(strBBPath).BuildingBlockEntries(strBBName).Insert Where:=oRng, RichText:=True 

を、そう宣言しoWord

Dim oWord As Word.Application 

...と使いNew代わりのCreateObject ... Word.Applicationとして：

Set oWord = New Word.Application