我正在尝试创建一个Microsoft Word添加项,在当前选定的位置生成一个表,并以这样的方式执行此操作,以便可以在以后引用和编辑它。到目前为止,我一直在使用office.interop。到目前为止我的实验代码是这样的:
Public Sub onTestButton1(ByVal control As Office.IRibbonControl)
Dim oWord As Word.Application = Globals.ThisAddIn.Application
Dim currentDocument As Word.Document = oWord.ActiveDocument
Dim oTable As Word.Table
Dim extentedDocument As Document = currentDocument.GetVstoObject()
richTextControl1 = extentedDocument.Controls.AddRichTextContentControl("richTextControl1")
richTextControl1.Title = "testTable"
oTable = currentDocument.Tables.Add(richTextControl1.Range, 2, 2)
End Sub
此代码的结果是内容控件包装表,除了在内容控件内的表的上方和下方插入换行符之外,一切都很顺利。如果没有这些换行符,我怎样才能做到这一点?
答案 0 :(得分:1)
首先插入表格,然后使用其范围插入控件。