[求助] WORD如何提取连续的几页单独另存为文件？

mmxzu

duquancai 发表于 2017-4-25 09:13
如果对于编程来说，连续不连续无所谓，也是瞬间完成的事情。如果对于手动复制粘贴再保存来说，连续的比不 ...

如果你能帮忙，不胜感激。如果你不想帮忙，就请你闭嘴。你收钱干活无可厚非，我不花钱雇你也没有问题。我不花钱你就在这说风凉话，我认为你在职业道德上存在严重问题。

parasol9900

mmxzu 发表于 2017-4-25 08:21
是的是的，把整个word文档按照联系人分开成不同文档，恳请帮忙。谢谢

对不起啊，我也是新手。。。希望有老师能来指导一下吧

kqbt

mmxzu 发表于 2017-4-25 10:39
如果你能帮忙，不胜感激。如果你不想帮忙，就请你闭嘴。你收钱干活无可厚非，我不花钱雇你也没有问题。我 ...

楼主言重了。这位老师的这番话也没有什么攻击性言辞吧？老师在这里热情、无私的大量付出大家是有目共睹的，帮助众多朋友解决了棘手难题。但是周而复始的写代码的确是个耗时费力伤神的事。。。不多说，换位思考，相互理解吧。

小花鹿

mmxzu 发表于 2017-4-25 10:39
如果你能帮忙，不胜感激。如果你不想帮忙，就请你闭嘴。你收钱干活无可厚非，我不花钱雇你也没有问题。我 ...

你这种态度，谁还敢给你解决问题？

rainpu

mmxzu 发表于 2017-4-25 10:39
如果你能帮忙，不胜感激。如果你不想帮忙，就请你闭嘴。你收钱干活无可厚非，我不花钱雇你也没有问题。我 ...

兄弟，现在不是流行知识付费么，大家都藏着掖着，愿意无偿分享、交流的越来越少了。这是个人的选择，也是个人的权利，没啥好说的，不过那个朋友调侃你是不合适

我也在纠结这个问题，但我还没解决，提供不了方法，只能提供思路。我检索了一些资料，确实那位调侃你的朋友说的没错，用VBA解决应该是比较好的方法，微软官方提供了一段代码，不过是逐页另存的，你有兴趣可以看看（声明下，这段代码是微软官方提供的，不是我写的）
Sub BreakOnPage()
   ' Used to set criteria for moving through the document by page.
   Application.Browser.Target = wdBrowsePage

   For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
      
      'Select and copy the text to the clipboard.
      ActiveDocument.Bookmarks("\page").Range.Copy

      ' Open new document to paste the content of the clipboard into.
      Documents.Add
      Selection.Paste
' Removes the break that is copied at the end of the page, if any.
      Selection.TypeBackspace
      ChangeFileOpenDirectory "C:\"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
      ActiveDocument.Close

      ' Move the selection to the next page in the document.
      Application.Browser.Next
   Next i
   ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

不经意的回头

mmxzu 发表于 2017-4-25 10:39
如果你能帮忙，不胜感激。如果你不想帮忙，就请你闭嘴。你收钱干活无可厚非，我不花钱雇你也没有问题。我 ...

其实杜老师说的话没有毛病，特别是后面，在很多工作环境中是实实在在存在的现象。杜老师在这里给大家的印象都非常的好，只要有时间他就会在这里无私奉献，为大家解答。请大家多些理解和包容。