请教一个调换word 自然段顺序的问题

jiminyanyan

我想把第1 段  和 第 3 段  对调  , 第2 段和 第5 段 对调,请问用VBA 怎么写?

小花鹿

第一次写WORDVBA，瞎蒙的，请高手指导：
Sub test()
Dim ar(1 To 5), br(1 To 5), i&, mydoc As Document, thisdoc As Document, doc As Range
Set thisdoc = ThisDocument
With thisdoc.Content
    For i = 1 To 5
        Set ar(i) = .Paragraphs(i)
    Next i
End With
Set mydoc = Documents.Add(, , , 1)
For i = 1 To 5
    br(i) = i
Next i
br(1) = 3: br(3) = 1: br(2) = 5: br(5) = 2
For i = 1 To 5
    With mydoc.Range
        If i > 1 Then
            .Collapse wdCollapseEnd
            .End = .End + 1
        End If
        .FormattedText = ar(br(i)).Range.FormattedText
    End With
Next i
thisdoc.Bookmarks("\startofdoc").Select
Set doc = mydoc.Range
doc.End = doc.End - 1
With Selection
    .MoveEnd 4, 5
    .FormattedText = doc.FormattedText
End With
mydoc.Close 0
End Sub

jiminyanyan

练习一下: 前5段倒序输出
Sub test()
    Dim ar(1 To 5), br(1 To 5), i&, mydoc As Document, thisdoc As Document, doc As Range
    Set thisdoc = ThisDocument
    With thisdoc.Content
        For i = 1 To 5
            Set ar(i) = .Paragraphs(i)
        Next i
    End With
    Set mydoc = Documents.Add(, , , 1)
    For i = 5 To 1 Step -1
        br(i) = 6-i
    Next i
    For i = 1 To 5
        With mydoc.Range
            If i > 1 Then
                .Collapse wdCollapseEnd
                .End = .End + 1
            End If
            .FormattedText = ar(br(i)).Range.FormattedText
        End With
    Next i
    mydoc.Close 0
End Sub

duquancai

使用通配符 查找  (*^13)  (*^13)  (*^13)  (*^13)  (*^13)替换\3\5\1\4\2   如果写成vba代码不就是一句代码吗？手机上网没测试。

小花鹿

duquancai 发表于 2017-4-29 09:03
使用通配符 查找  (*^13)  (*^13)  (*^13)  (*^13)  (*^13)替换\3\5\1\4\2   如果写成vba代码不就是一句代 ...

试了一下，查找替换，段落多了（100）行不通

13907933959

小花鹿 发表于 2017-4-29 02:05
第一次写WORDVBA，瞎蒙的，请高手指导：
Sub test()
Dim ar(1 To 5), br(1 To 5), i&, mydoc As Document ...

前辈好！
好像运行不了，提示：“运行时错误5941，集合所要求的成员不存在”。是不是对版本有要求？我用的 office是2003版的。

13907933959

jiminyanyan 发表于 2017-4-29 07:29
练习一下: 前5段倒序输出
Sub test()
    Dim ar(1 To 5), br(1 To 5), i&, mydoc As Document, thisdoc  ...

前辈好！
运行同样提示：“运行时错误5941，集合所要求的成员不存在”。

小花鹿

13907933959 发表于 2017-4-29 15:52
前辈好！
运行同样提示：“运行时错误5941，集合所要求的成员不存在”。是不是对版本有要求？我用的 off ...

我是在2010里写的，2003不知道

13907933959

小花鹿 发表于 2017-4-29 16:30
我是在2010里写的，2003不知道

好、知道了。

duquancai

Sub 一句代码()
    ActiveDocument.Content.Find.Execute "(*^13)(*^13)(*^13)(*^13)(*^13)", , , 1, , , , , , "\3\5\1\4\2", 1
End Sub