如何使用代碼將表格樣式分配給一個word文檔

我使用Visual Basic 2010軟件中的數據創建了一個Word文檔，該軟件是爲我的工作創建的，它包含在報表中...我要求生成Microsoft word文檔，所以現在我創建一個表，並填寫該表的數據，一些喜歡這個如何使用代碼將表格樣式分配給一個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中有一些表格設計樣式，比如「黑暗LIST - ACCENT 5」。「黑名單 - ACCENT 6」等，我無法弄清楚如何設置這種風格的表，是否有可能？

來源

2012-07-17 user1500031

創建一個樣式，你可以使用文檔對象：

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-19 11:57:15 Fionnuala

如何使用代碼將表格樣式分配給一個word文檔

回答

相關問題