重新指定某文档的起始页项

xzh_yzcn

各位老师：
       我有叁个word文档，A文档共有5页，B文档有7页，C文档有12页，想把三个文档的内容打印装订成册。想把三个文档的页码连起来编：A文档页码为1到5页，B文档页码从6到12页，C文档面码从13到25页
       如果需实现自动化，需判断每个文档的起始页码及截至页码，后一文档的起始页码等于前一个文档的截至页码加上1，截至页码等于该文档的起始页码加本文档的页数。
     在用excel vba打开word 文档，如何获取该文档的起始页码，截至页码？？
     我在网上搜索的代码基础试编了如下代码：
     Set wdApp = CreateObject("word.application")
     pwrdfullname = Application.GetOpenFilename("(*.*),*.*")
     wdApp.Documents.Open pwrdfullname
    wdApp.Visible = True
    '获取word文件名
    pwrdname = wdApp.ActiveDocument.Name
    ’获取当前文档起始页码
    x = wdApp.Section.Footers.PageNumbers.StartingNumber
   With wdApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers   
        .RestartNumberingAtSection = True
        x = .StartingNumber     ‘获取文档原来的起始页码
        .StartingNumber = 6     ’将文档的起始页码设置为1个新值
    End With
    '获取当前文档的页码
    wrdym = wdApp.ActiveWindow.Panes(1).Pages.Count
    wrdym = wdApp.ActiveWindow.Content.Information(wdNumberOfPagesInDocument)
    wrdym = wdApp.ActiveWindow.Content.Information(wdActiveEndAdjustedPageNumber)
    wdApp.ActiveDocument.Close False
    wd.Quit
    云里雾里，越想越复杂，没有整对，请老师们指点，谢谢

jiminyanyan

按顺序合并文档，我做过，找一下我的主题

xzh_yzcn

老师：
谢谢老师！！！老师的做法，是将各文档逐个粘贴到一个文档中。
我的想法是，几个相关文档，仍保持原来的独立的文档，不需要粘贴到一个文档（因为这样可能一个文档很大，操作处理可能产生错误），仅是逐个打开各个文档，同时修改一下各文档的起始页码及截至页码，打印装订到一体，就是一个页码连贯的纸质文档了。
我的这个想法，关键问题是如何修改各个文档的起始页码与截至页码。而且相关的文档可能是word文档，也可能是excel文档，所以想用excel vba 来处理，用excel vba 来打开word文档，并修改各文档的起始页码及截至页码。

jiminyanyan

http://club.excelhome.net/thread-1289584-1-1.html

xzh_yzcn

我的回复，需要审核，什么原因

xzh_yzcn

谢谢jiminyanyan老师！！！
我想仍保持各文档为独立文档，不将各相关文档粘贴到一个文档中。我仅想通过获取或修改各个文档的起始页码，让各个文档之间的页码连贯起来，打印装订后象是一个文档即可。
我的问题关键是如何通过vba 获取各个文档的起始页码，及如何修改各个文档的起始页码。请老师指点！！！
Sub 获取word文档的起始页码1()
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
    .PageNumbers.Add Pagenumberalignment:=wdAlignPageNumberCenter
For Each s In ActiveDocument.Sections
    With s.Headers(wdHeaderFooterPrimary).PageNumbers
        .RestartNumberingAtSection = True
        qsym = .StartingNumber
        zys = .Information(wdNumberOfPagesInDocument)     '对象不支持该属性与方法
        zdqsym = InputBox("请确定本文档的起始页码，如9", , 1)
        .StartingNumber = zdqsym
        jzym = .Information(wdActiveEndAdjustedPageNumber)
    End With
Next s
End Sub

xzh_yzcn

我的回复怎么都需要审核，等待通过，而且很长时间，也不见显示，什么情况

xzh_yzcn

谢谢Sub 获取word文档的起始页码1()
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
    .PageNumbers.Add Pagenumberalignment:=wdAlignPageNumberCenter
For Each s In ActiveDocument.Sections
    With s.Headers(wdHeaderFooterPrimary).PageNumbers
        .RestartNumberingAtSection = True
        qsym = .StartingNumber
        zys = .Information(wdNumberOfPagesInDocument)     '对象不支持该属性与方法
        zdqsym = InputBox("请确定本文档的起始页码，如9", , 1)
        .StartingNumber = zdqsym
        jzym = .Information(wdActiveEndAdjustedPageNumber)
    End With
Next s
End Sub

xzh_yzcn

谢谢jiminyanyan老师！！！
我仅想通过修改各文档的起始页码，让各文档的页码连贯，打印装订后看上去象一个文档即可。
我的问题关键是如何通过VBA 获取各文档的起始页码

xzh_yzcn

qsym = .StartingNumber
        zys = .Information(wdNumberOfPagesInDocument)     '对象不支持该属性与方法