Word 数页内容倒序排列如何实现

607893597

现有100多页的word内容，每页都是独立的。要求最后一页变成第一页，倒数第二页成为第二页，以此类推。复制，粘贴效率不高，有什么好的办法没有？谢谢。

413191246se

用 VBA 宏试试吧！

607893597

413191246se 发表于 2016-6-3 09:10
用 VBA 宏试试吧！

您是否尝试过？

413191246se

未尝试过。。。楼主会不会用宏代码？

duquancai

没有优化代码，请测试
Option Base 1
Sub test()
Dim x() As Variant, y() As Variant, t As String, t1 As String, i%, j%, m%
Dim oPage As Page
i = ActiveDocument.ActiveWindow.ActivePane.Pages.Count
    For Each oPage In ActiveDocument.ActiveWindow.ActivePane.Pages
        t1 = oPage.Rectangles(1).Range.Text
        ReDim Preserve x(i)
        j = j + 1
        x(j) = t1
    Next
    For m = 1 To i
        ReDim Preserve y(i)
        y(m) = x(i - m + 1)
        t = t + y(m)
    Next
Documents.Add.Content.Text = t
End Sub

13907933959

duquancai 发表于 2016-6-4 00:23
没有优化代码，请测试
Option Base 1
Sub test()

前辈好！
如能保留原文档的所有的格式就更好。

duquancai

13907933959 发表于 2016-6-4 07:27
前辈好！
如能保留原文档的所有的格式就更好。

这是处理纯文本的哦！要保留原文档全部格式以及文档中还有图形、图像和表格等对象。那就麻烦你搞一个宏代码吧！呵呵

607893597

413191246se 发表于 2016-6-3 14:51
未尝试过。。。楼主会不会用宏代码？

大学的时候学过VB语言。宏代码平时不怎么写。

607893597

duquancai 发表于 2016-6-4 12:04
这是处理纯文本的哦！要保留原文档全部格式以及文档中还有图形、图像和表格等对象。那就麻烦你搞一个宏代 ...

我的word每一页都是一个表格+标题，而且里面还有两张图片。我修改一下代码。谢谢您。

13907933959

duquancai 发表于 2016-6-4 12:04
这是处理纯文本的哦！要保留原文档全部格式以及文档中还有图形、图像和表格等对象。那就麻烦你搞一个宏代 ...

前辈好！
怪我没说清楚，我是想说：如能保留原文档的所有的文字格式就更好。
前辈、我还是个菜鸟，还只是处在勉强会用的阶段。