跳到主要内容

如何在Word中将所有尾注转换为纯文本

作者:孙 最后修改时间:2020-08-21

将尾注转换为文本将方便您编辑或删除尾注。 例如,如果您想一次选择带有其他常规文本的尾注,Word将不允许您这样做。 您如何轻松完成它? 本教程将向您展示几种将尾注转换为纯文本的方法。

手动将尾注转换为文本

使用VBA将尾注转换为文本

使用 Kutools for Word 将尾注转换为文本好主意3


手动将尾注转换为文本

1.将光标放在尾注所在的位置,然后按 按Ctrl + A 从文档中选择所有尾注。 看截图:

2。 按 按Ctrl + C 复制尾注。

3。 按 CTRL + END 将光标移动到整个文档的末尾和尾注之前。

4。 按 按Ctrl + V 将尾注粘贴到文档末尾。 尾注的顺序将保持不变,但粘贴的尾注已更改。 看截图:

5.手动将文本前面的所有数字1替换为原始数字列表。


使用VBA将尾注转换为文本

换句话说,您还可以使用VBA代码将尾注转换为纯文本。

1:按 Alt + F11 打开一个 Microsoft Visual Basic for Applications窗口;

2:点击 模块插页 标签,将以下VBA代码复制并粘贴到 模块 窗口;

3:点击 运行 按钮或按下 F5 应用VBA。

将尾注转换为文本的VBA:

子convertendnote()
昏暗的aendnote作为尾注
对于ActiveDocument.Endnotes中的每个aendnote
vbCr和aendnote.Index _的ActiveDocument.Range.InsertAfter
&vbTab和aendnote.Range
aendnote.Reference.InsertBefore“ a”和aendnote.Index&“ a”
下一个aendnote
对于ActiveDocument.Endnotes中的每个aendnote
附注.参考.删除
下一个aendnote
Selection.Find.ClearFormatting
选择.查找.替换.清除格式
带有Selection.Find.Replacement.Font
。上标=真
结束
随着Selection.Find
.Text =“(a)([0-9] {1,})(a)”
.Replacement.Text =“ \ 2” v .Forward = True
.Wrap = wdFindContinue
.Format =真
.MatchWildcards = 真
结束
Selection.Find.Execute替换:= wdReplaceAll
END SUB

请注意: 您可以更改宏的开头和结尾以适应您的喜好。


使用 Kutools for Word 将尾注转换为文本

对于那些刚接触计算机的新手来说,VBA太复杂而无法处理。 但是随着 Kutools for Word 安装后,您可以快速将所有尾注转换为文本 Convert Endnotes to Text 一键实用程序。

Kutools for Word, 与超过  方便的功能,使您的工作更加轻松。 

安装后 Kutools for Word,请执行以下操作:(立即免费下载 Kutools for Word!)

1.请点击以下方式应用此实用程序 库工具 > 转化率 > Convert Endnotes to Text。 看截图:

doc kutools将尾注转换为文本1

2。 点击后 Convert Endnotes to Text,您将看到如下屏幕截图所示的结果:




相关文章:


分页浏览和编辑多个Word文档/ Excel工作簿,如Firefox,Chrome,Internet Explore 10!

您可能熟悉在 Firefox/Chrome/IE 中查看多个网页,并通过单击相应的选项卡轻松在它们之间切换。在这里,Office Tab支持类似的处理,它允许您在一个Word窗口或Excel窗口中浏览多个Word文档或Excel工作簿,并通过单击它们的选项卡轻松地在它们之间进行切换。
点击免费试用Office Tab!

使用Firefox在一个窗口中浏览多个Word文档
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank for the macro! Super helpful!

(Fyi - you have a "v" where there should be a linefeed by ".Forward", but you saved me a couple of hours of figuring out writing my own. Awesome!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations