VBAが挿入されたビルディングブロックが印刷されない

Question

VBAを使用してプログラムブロックでMicrosoft Wordにビルディングブロックを挿入しようとしていますが、挿入時に印刷プレビューで表示しているときに印刷するとビルディングブロックは表示されません。

Sub draw_point() 
Dim objTemplate As Template 
Dim objBB As BuildingBlock 

    Selection.MoveDown Unit:=wdLine, Count:=1 

    ' Set the template to store the building block 
    Set objTemplate = ActiveDocument.AttachedTemplate 

    ' Access the building block through the type and category 
    Set objBB = objTemplate.BuildingBlockTypes(wdTypeAutoText) _ 
    .Categories("General").BuildingBlocks("point") 

    ' Insert the building block into the document replacing any selected text. 
    objBB.Insert Selection.Range 
End Sub 

手動でビルディングブロックを挿入すると、問題なく印刷されます。私は新しい文書でこの問題を再作成しようとした場合

私は

AutoText > General > Normal.dotm > Insert content only 

に追加、その後、形状を挿入することにより、ビルディングブロックを作成しています、それは起こりませんが、私はわかりませんよ2つの文書間で異なるプロパティ

Answer 1

印刷プレビューで図形が消えるのは、図形が固定されている段落のフォント設定で隠しプロパティが設定されているためです。

これは、別のドキュメントで問題を複製できない理由を説明します。