我有一个类可以从我的应用程序中的实体创建一个 word 文档。我正在使用 NetOffice.Word 包与文档进行交互。我的文档已完美创建,但还会出现另一个空白文档。谁能建议我可能做错了什么?这是显示问题的类的缩减版本:
Imports NetOffice.WordApi
Namespace Sales.CRM
Friend Class CaseExporter
Private Property App As Application
Private Property Doc As Document
' Private Property Data As CaseData
Public Sub New() 'data As CaseData)
App = New Application
Doc = App.Documents.Add
Doc.Content.SetRange(0, 0)
' Me.Data = data
End Sub
Public Sub Export()
EmitTitle()
App.Visible = True
End Sub
Private Sub EmitTitle()
Dim para = Doc.Content.Paragraphs.Add()
para.Range.Style = Doc.Styles("Heading 1")
para.Range.Text = "Some Text Here"
para.Range.InsertParagraphAfter()
End Sub
End Class
End Namespace
所以我正在创建一个文字应用程序,向其中添加一个文档,然后添加一个带有一些文本的段落。然后我将应用程序对象设置为可见以让用户看到文档。此时我的文档变得可见,但另一个空白文档也是如此。此时应用程序对象 Documents.Count 仍然返回 1