[求助]怎样用VBA使尾注编号变成普通文本格式的上标序号?

ssq1109

XDLJNAJ4.rar (5.39 KB, 下载次数: 16)

2006-9-22 18:27 上传

点击文件名下载附件
[求助]怎样用VBA使尾注编号变成普通文本格式的上标序号?

附件中有一些尾注，但将其变为文本文件后，尾注编号都丢失了。

要求一：如题，序号所用字符不变（如原为半角数字后也为半角数字，原为加圈数字后也为加圈数字）。

要求二：如果正文和尾注文本之间有一条标记线（即注释分隔符），则将此标记线改为一个标记文本“[line5]”，因为将文档存为文本时，原标记线丢失了。加此标记文本后，可存为文本文件后，加线处也有一标记“[line5]”。

附件中以第一行（即标题行）为例手工在文尾变成了上标序号。

请高人相助。谢谢！

[此贴子已经被作者于2006-9-22 20:19:06编辑过]

ssq1109

对不起，我先是用复制、粘贴到记事本的方法得到文本，尾注标记的确丢失了，但用另存为文本文件的方法可以得到标记的编号文本。而且我用下列代码将编号文本作了标记：

    Set myRange = ActiveDocument.Content
     myRange.Find.Execute findtext:="^e", replacewith:="↑（^&）", Replace:=wdReplaceAll

这样生成文本文件后也能知道其是上标格式。即第一个问题不需要解决。

后面的问题我在另一帖中再重新说明。