visual studio 2015 在 microsoft word 文档中创建文本框或任何内容
visual studio 2015 create text box or anything in microsoft word document
是否可以在 Visual Studio 2015 中使用 VB 在 Microsoft Office Word 文档中创建一个 table/shape/text 框?
我在网上能找到的就是创建一个document/save it/close字。
我正在尝试创建一个 table 给定用户将决定的某些值。
在 MSDN 上找到了这个例子。不要忘记添加对 Microsoft.Office.Interop.Word
的引用
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
CreateTableInWordDocument()
End Sub
Private Sub CreateTableInWordDocument()
Dim objWord As Application
Dim objDoc As Document
Dim objTable As Table
objWord = CreateObject("Word.Application")
objWord.Visible = True
objDoc = objWord.Documents.Add
Dim r As Integer, c As Integer
objTable = objDoc.Tables.Add(objDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)
objTable.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 3
For c = 1 To 5
objTable.Cell(r, c).Range.Text = "Row" & r & " Coulmn" & c
Next
Next
objTable.Rows.Item(1).Range.Font.Bold = True
objTable.Rows.Item(1).Range.Font.Italic = True
End Sub
是否可以在 Visual Studio 2015 中使用 VB 在 Microsoft Office Word 文档中创建一个 table/shape/text 框?
我在网上能找到的就是创建一个document/save it/close字。 我正在尝试创建一个 table 给定用户将决定的某些值。
在 MSDN 上找到了这个例子。不要忘记添加对 Microsoft.Office.Interop.Word
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
CreateTableInWordDocument()
End Sub
Private Sub CreateTableInWordDocument()
Dim objWord As Application
Dim objDoc As Document
Dim objTable As Table
objWord = CreateObject("Word.Application")
objWord.Visible = True
objDoc = objWord.Documents.Add
Dim r As Integer, c As Integer
objTable = objDoc.Tables.Add(objDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)
objTable.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 3
For c = 1 To 5
objTable.Cell(r, c).Range.Text = "Row" & r & " Coulmn" & c
Next
Next
objTable.Rows.Item(1).Range.Font.Bold = True
objTable.Rows.Item(1).Range.Font.Italic = True
End Sub