0

自分の作業用に作成したVisualBasic2010ソフトウェアのデータを使用してWord文書を作成しています。これは、レポートで構成されています... Microsoft Word文書の生成を求められたので、テーブルを作成して、それを入力します。データのあるテーブル、このようなもの

oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 8, 4)
oTable.Range.ParagraphFormat.SpaceAfter = 6
oTable.Range.Font.Size = 10

oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True
oTable.Cell(1, 1).Range.Text = "Datos de Facturación:"
oTable.Cell(1, 3).Range.Text = "            Enviar a:"
oTable.Cell(2, 1).Range.Text = rs.Text
oTable.Cell(2, 1).Width = 75
oTable.Cell(3, 1).Range.Text = dirfa.Text
oTable.Cell(3, 1).Width = 75 ..... etc..

Microsoft Wordには、「DARKLIST-ACCENT5」のようないくつかのテーブルデザインスタイルがあります。「DARKLIST-ACCENT6」など、このスタイルをテーブルに設定する方法がわかりませんでしたが、可能ですか？

4

1 に答える 1

0

スタイルを作成するには、ドキュメント オブジェクトを使用できます。

Set doc = wd.Documents.Add(NewTemplate:=True)

With doc.Styles("Certificate")
    With .Font
        .Name = "Arial"
        .Size = 12
        .Italic = True
        .Bold = True
    End With

    With .ParagraphFormat
        ''wdAlignParagraphCenter = 1
        .Alignment = 1
        .SpaceAfter = 0
        .SpaceBefore = 0
    End With
End With

スタイルを割り当てます。

Set r = doc.Shapes("Course1").TextFrame.TextRange
r.Style = "Certificate"

この特定のケースでは、次を使用できます。

    oTable.Range.Style = "ANewStyle"

または、組み込みのスタイルが利用可能な場合:

    oTable.Rows.Item(1).Range.Style = WdBuiltinStyle.wdStyleHeading1
于 2012-07-19T11:57:15.107 に答える