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創建空白標籤文檔

回答

相關問題