[求助]如何将表格的题注从表格下方全部移到表格上方

wxj_bse

写论文时建立了表格的题注，当时全是在表格下方，导师要求全部移到表格上方。 题注的建立是通过“插入——引用——题注”的方式建立。 有没有什么简单的方式，如建立一个宏（VBA）什么的，将文中三十几张表格的题注全部移位。 谢谢！

konggs

Sub 简单的写了一下()
Dim apar As Paragraph
Dim arange As Range
Dim atable As Long
Dim brange As Range
Dim crange As Range
For Each apar In ActiveDocument.Paragraphs
If apar.Style = "题注" Then
Set arange = ActiveDocument.Range(ActiveDocument.Range.Start, _
apar.Range.Start)
atable = arange.Tables.Count
Set brange = ActiveDocument.Range(ActiveDocument.Tables(atable).Range.Start - 1, _
ActiveDocument.Tables(atable).Range.Start - 1)
Set crange = ActiveDocument.Range(apar.Range.Start, apar.Range.End - 1)
crange.Copy
brange.Paste
brange.InsertBefore Chr(13)
apar.Range.Delete
End If
Next
End Sub

wxj_bse

谢谢先！

守柔

我按题注的原理做了一下，请楼主一并测试。

Sub Example()
Dim aTable As Table, myRange As Range
Dim lngStart As Long, lngEnd As Long
Application.ScreenUpdating = False
With ActiveDocument
For Each aTable In .Tables
With aTable
lngStart = .Range.Start
lngEnd = .Range.End
End With
Set myRange = .Range(lngEnd, lngEnd)
Set myRange = myRange.Paragraphs(1).Range
myRange.Cut
Set myRange = .Range(lngStart - 1, lngStart - 1)
myRange.InsertAfter Chr(13)
myRange.SetRange myRange.End, myRange.End
myRange.Paste
myRange.Paragraphs(1).Next.Range.Delete
Next
End With
Application.ScreenUpdating = True
End Sub

wxj_bse

测试了一下，对konggs和守柔的程序运行结果记录如下：

konggs的运行后，可以完成所需要求（不过发现一个问题，当然程序已经满足我当时提出的要求，这个问题是，如果原始文档中表格的题注并不是全在表格的下方，比如有一个表格A的题注在A的上方，运行konggs的VBA后,A的题注转到前面一个表格的题注中了。）

守柔的运行后，可以完成所需要求。不过和konggs的不同，当然是我的原始文档的情况没有说清楚，我的文档题注是中英文的，所以题注有2段落，konggs的运行一次就可以了，守柔的要运行2次，才能满足要求。这也和konggs、守柔的程序设计有关，konggs关注的是题注，守柔关注的是表格后段落，从适应性来说，2者都有弱点，不过konggs的可能更好，因为他的程序运行后，题注移到表格上方后，如果再运行是不会再起什么作用了，而守柔的程序无论运行多少次，总是把表格后面的段落移到表格的上方，不管这个段落是题注还是其他任何样式的段落。

wxj_bse

我对VBA是门外汉，问2 个问题：

一、konggs的程序中，符号“_”（Range.Start,后面）是不是表示换行不换段，删除它没有什么变化吧？

二、konggs的程序和守柔的程序中"Chr(13)"表示什么意思？

提个建议，程序代码后面是不是可以注释一下，也让我这种门外汉学习学习！ [em02][em02]

[此贴子已经被作者于2006-6-4 21:03:39编辑过]

鑫11

学习

守柔

我想我无须解释VBA中的使用方法，KONGGS版主的思路与出发点在设计时与我的截然不同，如果楼主能用就用，无须考虑哪个更好。

至于题注，我还是想提醒一下楼主，题注使用的目的，一方面是对对象进行顺序编号，更为重要的是进行交叉引用，如果你的题注由两个段落构成，严格意义上说，已然不能算是题注了，不信，你交叉引用一下，你得到的引用整项题注时是你目标“题注”的全部内容吗？

wxj_bse

谢谢守柔的回复。