Word Interop创建空白标签文档

如果有人碰巧知道，我将如何创建一个空白页面的文档文档？有一百万和一个执行邮件合并的指南，但我不打算这样做。我只是想要一个空白Word文档，我将在扔的序列号。Word Interop创建空白标签文档

我所创建的文档，例如...

Dim oWord As Word.Application 
    Dim oDoc As Word.Document 

    oWord = CreateObject("Word.Application") 
    oWord.Visible = True 
    oDoc = oWord.Documents.Add

这将创建并打开一个简单的Word文档。我如何将标签页插入文档？标签的类型是无关紧要的，我希望能够从它的创作中告诉如何根据需要与之互动。

任何和所有帮助的帮助，非常感谢！

来源

2013-11-20 MonkeyDoug

该解决方案如下所示。

Dim oWord As Word.Application 
    Dim oDoc As Word.Document 
    oWord = CreateObject("Word.Application") 
    oWord.Visible = True 
    oDoc = oWord.Documents.Add 
    oDoc = oWord.MailingLabel.CreateNewDocument(Name:="L7163", Address:="This is some text", AutoText:="MyLabelLayout", LaserTray:=Nothing)

这创建了单页邮寄标签，每个邮件标签上都显示“这是一些文本”。邮件标签的版本是Avery L7163。唯一的问题是它创建了最初的活动文档和第二个标签页。这是解决这样的..

Dim oWord As Word.Application 
    Dim oDoc As Word.Document 
    oWord = CreateObject("Word.Application") 
    oWord.Visible = True 
    oDoc = oWord.Documents.Add 
    Dim ActiveDoc = oWord.ActiveDocument 
    ActiveDoc = oWord.MailingLabel.CreateNewDocument(Name:="L7163", Address:="sdvsdv", AutoText:="MyLabelLayout", LaserTray:=Nothing) 
    oDoc.Close(False, ,)

这是做同样的事情，除了它将标签设置为活动文档，然后关闭空白文档。

来源

2013-11-21 15:44:23 MonkeyDoug

Word Interop创建空白标签文档

回答

相关问题