3

VBA を使用してリッチ テキスト コンテンツ コントロールを Word .docm にプログラムで追加する場合、コンテンツのスタイルを設定する方法はありますか?

比較として、Word Developer ツールバーを使用して手動でコンテンツ コントロールを作成すると、コンテンツ コントロールのプロパティ ダイアログで [スタイルを使用してコンテンツの書式を設定する] を選択できます。私が望む結果は、コードで行う必要があることを除いて、そのようにした場合と同じです。

コンテンツ コントロールを追加するコードは次のとおりです。コマンド ボタンのクリックによってトリガーされ、他のいくつかのことも実行されます。

Private Sub selConcept_Click()

    ActiveDocument.InlineShapes(1).Delete
    ActiveDocument.InlineShapes(3).Delete
    ActiveDocument.InlineShapes(3).Delete

    Dim oCC As ContentControl
    Set oCC = ActiveDocument.ContentControls.Add(wdContentControlRichText, _
              Selection.Range)
    oCC.SetPlaceholderText , , "My placeholder text is here."
    oCC.Title = "Concept"
End Sub
4

1 に答える 1