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

jiminyanyan

duquancai 发表于 2017-4-29 17:01
Sub 一句代码()
    ActiveDocument.Content.Find.Execute "(*^13)(*^13)(*^13)(*^13)(*^13)", , , 1, , , ...

谢谢，我试试。。。。。。。。

小花鹿

原来的代码的点罗嗦，改一下：
Sub test1()
Dim ar(1 To 5), br(1 To 5), i&, mydoc As Document, thisdoc As Document, doc As Range
Set thisdoc = ThisDocument
For i = 1 To 5
    ar(i) = i
Next i
ar(1) = 3: ar(3) = 1: ar(2) = 5: ar(5) = 2
Set mydoc = Documents.Add(, , , 0)
For i = 1 To 5
    mydoc.Bookmarks("\endofdoc").Range.FormattedText = thisdoc.Paragraphs(ar(i)).Range.FormattedText
Next i
mydoc.Paragraphs(mydoc.Paragraphs.Count).Range.Delete
With thisdoc.Paragraphs(1).Range
    .Collapse
    .MoveEnd 4, 5
    .FormattedText = mydoc.Range.FormattedText
End With
mydoc.Close 0
End Sub

小花鹿

jiminyanyan 发表于 2017-4-29 20:23
谢谢，我试试。。。。。。。。

我试过，这种方法段落多了行不通，比如：把第83段和第1段对调

duquancai

小花鹿 发表于 2017-5-2 11:46
我试过，这种方法段落多了行不通，比如：把第83段和第1段对调

方法有多种，借助辅助文档也可以这样》》》》》

Sub shishi()
    Dim d1 As Document, d2 As Document
    Set d1 = ActiveDocument: pf$ = d1.FullName
    If d1.Paragraphs.Count < 83 Then Exit Sub
    Set d2 = Documents.Add(pf, , , 0)
    d1.Paragraphs(1).Range.FormattedText = d2.Paragraphs(83).Range.FormattedText
    d1.Paragraphs(83).Range.FormattedText = d2.Paragraphs(1).Range.FormattedText
    d2.Close 0
End Sub

小花鹿

duquancai 发表于 2017-5-3 10:38
方法有多种，借助辅助文档也可以这样》》》》》

Sub shishi()

基本功不扎实啊，原来新建文档可以用某一个文件作为模板，相当于复制了一份，如果省略则新建空白文档，谢谢老师

Moneky

duquancai 发表于 2017-5-3 10:38
方法有多种，借助辅助文档也可以这样》》》》》

Sub shishi()

不新建，采用一个临时变量应该也可以吧。

duquancai

Moneky 发表于 2017-5-13 20:07
不新建，采用一个临时变量应该也可以吧。

你测试一下就知道了。

Moneky

duquancai 发表于 2017-5-13 20:12
你测试一下就知道了。

试过了，可以的。没有试过一个很长很长很长的段落——超过vb string 长度限制

duquancai

Moneky 发表于 2017-5-13 20:14
试过了，可以的。没有试过一个很长很长很长的段落——超过vb string 长度限制

假如这段中有一张嵌入的图片，不知道可不可以？

Moneky

duquancai 发表于 2017-5-13 20:20
假如这段中有一张嵌入的图片，不知道可不可以？

确实忽略了这种情况，你考虑的更周到。
我上面的方案对纯文字的可以，如果含有非文字的对象，会出问题，vb对对象的引用是byref——所以下面的代码会出现“要求对象”的错误。

1. Sub test()
   
2.     Dim p
   
3.     Dim doc As Document
   
4.     Set doc = ThisDocument
   
5.     p = doc.Paragraphs(3).Range.FormattedText
   
6.     doc.Paragraphs(3).Range.FormattedText = doc.Paragraphs(1).Range.FormattedText
   
7.     doc.Paragraphs(1).Range.FormattedText = p '刚刚的Paragraphs(3).Range.FormattedText被干掉了，现在p引用到一个不存在的对象了
   
8. End Sub
   

复制代码

换了一个思路，如下：

1. Sub test()
   
2.     Dim doc As Document
   
3.     Set doc = ThisDocument
   
4.     doc.Paragraphs(3).Range.Copy
   
5.     doc.Paragraphs(3).Range.FormattedText = doc.Paragraphs(1).Range.FormattedText
   
6.     doc.Paragraphs(1).Range.Paste
   
7. End Sub

复制代码

通过调试了