Question

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

我已经创建了这样的文件......

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

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

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

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

Answer 1

解决方案如下所示。

    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, , )

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

Word Interop创建空白标签文档

1 个答案: