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

sqhsqhli · 发表于 2013-12-20 10:53

413191246se · 发表于 2013-12-20 11:11

本帖最后由 413191246se 于 2013-12-20 11:16 编辑

按快捷键 alt+shift+↑（或↓）即可将某段移上或移下，对付表格行也行。---------不好，我这不是 VBA。

lhdcxz · 发表于 2013-12-20 11:32

你是想把文档整个翻个过吗？

413191246se · 发表于 2013-12-20 16:50

Sub test()
'1234段快速变为4321段
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
i.Range.Copy
ActiveDocument.Content.Paste
Next
End Sub

sqhsqhli · 发表于 2013-12-21 13:45

413191246se 发表于 2013-12-20 16:50
Sub test()
'1234段快速变为4321段
Dim i As Paragraph

明显错误嘛

lhdcxz · 发表于 2013-12-21 16:52

Sub test()
Dim i%, n%, p$, s$, m%
p = Application.MacroContainer.Path '当前路径
s = Application.MacroContainer.Name '文件名含后缀
s = Left(s, Len(s) - 4) '文件名
n = ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
MyString = ""
   For i = n To 1 Step -1 '
   MyString = MyString & ActiveDocument.Paragraphs(i).Range.Text  '返回当前文档中第i段的内容
   Next
   Documents.Add '新建文档
   ActiveDocument.Paragraphs(1).Range.Text = MyString '写内容
   ActiveDocument.SaveAs FileName:=p & "\" & s & "-反" '另存
End Sub

413191246se · 发表于 2013-12-21 18:50

SQH，你说的“明显错误”，但我测试却是结果正确！——请解释一下何错之有？

lhdcxz · 发表于 2013-12-23 11:02

413191246se 发表于 2013-12-20 16:50
Sub test()
'1234段快速变为4321段
Dim i As Paragraph

很不幸。在我这里也没有成功。也许还没有设置对引用的要求？

413191246se · 发表于 2013-12-24 09:35

——SORRY！ SQH 和 lhdcxz 两位朋友，我刚才用一个很多段落的文章来测试，果然是有错！是我错了！——SQH 请试试 lhdcxz 的代码吧！（当时只测 1234段觉得没错，一多就不对了）
（另外，我现在用 VBA 也从不引用什么的，一是不会，二也不喜欢引用，昨天在单位发现《证书自动编号》也有错误，昨晚又重新写了一遍，这回相信不错了。）

sqhsqhli · 发表于 2013-12-26 11:14

本帖最后由 sqhsqhli 于 2013-12-26 11:19 编辑

我的想法是在原文档里实现倒置的，新建再复制另当别论了。同一文档段落移动位置似乎只能剪切粘贴，move方法也似乎只能定位光标位置，却不能移动内容，为什么？

		自动登录	找回密码
密码			免费注册

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