2012-03-01 15 views
1

の2ページ間の文書を挿入します。は、私は次の操作を行うことができれば、私は思ったんだけど、他の

  1. 文書
  2. 内でブックマークこのブックマークを
  3. 上にあるページ番号が別のものを挿入して確認して下さい

    Sub InsertDoc 
    
        Dim MasterDoc As Document 
        Dim bookmarkRng As Range 
        Dim pageNo As Long 
    
        Set MasterDoc = Documents.Open("Master.docx") 
    
        Set bookmarkRng = MasterDoc.Bookmarks("TheBookmark").Range 
    
        pageNo = bookmarkRng.Information(wdActiveEndPageNumber) 
    
        '1.This is where I need to specify to insert before/after the found page, not sure how 
        MasterDoc.InsertFile FileName:="AnotherDoc.docx" 
    
        '2.Is it possible to use this syntax instead and specify before/after insertion of a whole file? 
        MasterDoc.Bookmarks("TheBookmark").Range.InsertFile FileName:="AnotherDoc.docx" 
    
        MasterDoc.Save 
        MasterDoc.Close 
        Set MasterDoc = Nothing 
    
    End Sub 
    
    :識別されたページ

これまでの私のコードの前に文書0

ご協力いただきありがとうございます。

答えて

1

これは、皮肉なことに、Wordでよく定義されていない概念です。しかし、素材を挿入する場合は、それを特定の場所に挿入する必要があります。あなたが必要としない限り、あなたは、その後、bookmarkRngPAGENOを削除することができ、また

MasterDoc.Bookmarks("TheBookmark").Range.InsertAfter "XXX" 

:あなたはブックマークの範囲を見つけ、そしてあなたがブックマークの後に挿入するように見えるので、以下を使用します彼らは後で何らかの理由で彼らに告げる。

関連する問題