使用word.interop来处理表并添加复选框

时间:2012-11-19 21:15:19

标签: vb.net word-automation

我一直在使用excel,但我在Word自动化中遇到了一些问题/问题。我目前想动态地格式化word文件。下面的代码应该打开现有文件并对同一页面上的两个不同表进行更改。

我想知道如何将插入菜单中的复选框动态添加到表格单元格中,或者更改表格单元格中已存在的复选框的选中状态。谢谢你的任何建议!它设置为立即写入文本值,但这是例如直到找到它..

    Dim oWord = New Microsoft.Office.Interop.Word.Application
    Dim Dir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    oWord.Documents.Open(Dir & "\welcomeletter.docx")
    Dim oDoc = oWord.ActiveDocument

    oWord.Visible = True

    Dim tbl As Word.Table = oDoc.Tables(1)

    tbl.Cell(1, 1).Range.Text = "Checkbox1"
    tbl.Cell(2, 1).Range.Text = "Checkbox2"

    Dim tbl2 As Word.Table = oDoc.Tables(2)

    tbl2.Cell(1, 1).Range.Text = "Checkbox3"

1 个答案:

答案 0 :(得分:0)

对于那些寻求答案的人,对我来说只是使用wingdings字体并在我需要的字段中插入一个复选框:

tbl2.Cell(1, 1).Range.Text = chw(253) etc.

我在实际编辑复选框时找不到任何内容。