vba如何高效地将段落1234.。。。。倒置为。。。4321？

lhdcxz

sqhsqhli 发表于 2013-12-26 11:14
我的想法是在原文档里实现倒置的，新建再复制另当别论了。   同一文档段落移动位置似乎只能剪切粘贴，move方 ...

Sub test()'在原来文档颠倒
    Dim i%, n%
    n = ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
    MyString = ""
     For i = n To 1 Step -1 '
       MyString = MyString & ActiveDocument.Paragraphs(i).Range.Text  '返回当前文档中第i段的内容
       ActiveDocument.Paragraphs(i).Range.Text = ""
     Next
     ActiveDocument.Paragraphs(1).Range.Text = MyString '写内容
End Sub

413191246se

经我今天测试若干段文章，我4楼的代码，在 Word 2003 SP1 中运行正确，达到楼主要求！——楼主 SQH 你看你的版本是多少吧！

413191246se

急中生智，决定将文档分为2节，再达目的，测试正确-----请 SQH 测试一下下面的代码：

Sub 倒排段落()
    Dim i As Long, n As Long
    n = ActiveDocument.Paragraphs.Count

'文尾插入分节符（下一页）
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    Selection.EndKey Unit:=wdStory

'在第2节键入第1节各段内容
    For i = 1 To n
        Selection.TypeText Text:=ActiveDocument.Sections(1).Range.Paragraphs(n).Range.Text
        n = n - 1
    Next i
    ActiveDocument.Sections(2).Range.Paragraphs.Last.Range.Delete

'双页及全屏显示
    With ActiveWindow.ActivePane.View.Zoom
        .PageColumns = 2
        .PageRows = 1
    End With
    ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
End Sub

413191246se

经测试， lhdcxz 朋友 11楼代码 简洁、精妙，结果正确！——请 SQH 采用他的代码吧！

m_n_j001

我是这样做的，成不？
Sub test()
With ActiveDocument
   For Each p In .Paragraphs
      .Paragraphs(1).Range.InsertBefore p.Range.Text
      .Range(p.Range.Start, p.Range.End).Delete
   Next
End With
End Sub
在2013下通过

m_n_j001

Sub f()
With ActiveDocument
   For Each p In .Paragraphs
       .Range(0, 0).Text = p.Range.Text  '这样也成
      .Range(p.Range.Start, p.Range.End).Delete  
   Next
End With
End Sub

只是这两段在有表格时就息菜了

常扬帆

6楼的这个我找了好多年，今天终于在此论坛的本版块的六楼找到了，哈哈哈哈哈哈。谢谢谢谢谢谢！

vbee

1. 理解错了

复制代码

常扬帆

那么，码表重码内部能不能倒序？即：字数相同、编码相同者倒序。

附件复杂些。
谢谢！！