自动在脚注中添加选项卡（Microsoft Word）
出于某些格式化目的，您可能需要Word在脚注中的实际脚注参考编号和脚注文本之间放置一个制表符。但是，Word不允许您自动执行此操作。实际上，Word不允许您指定应该在脚注参考编号和脚注文本之间显示的字符，就像使用编号列表一样。而是，Word在这两个元素之间放置一个空格。
您可以通过多种方法来确保脚注中包含制表符分隔符，稍后将对各种方法进行说明。但是，所有方法都假定您设置了“脚注文本”样式以正确处理选项卡。
每当您插入脚注时，Word都会设置脚注本身的格式，以便它使用内置的脚注文本样式。您只需更改此内置样式即可控制脚注的显示方式。例如，如果要在脚注参考编号和脚注文本的开头之间使用制表符，则应在“脚注文本”样式中设置一个制表符停止位，以便Word知道输入该字符后如何处理该制表符。脚注。 WordTips的其他问题已经涵盖了如何修改样式。
|添加选项卡的第一个潜在解决方案是使用Word的“查找和替换”功能。您可以通过执行以下步骤来确保所有脚注都具有必需的制表符：
。按Ctrl + H。 Word将显示“查找和替换”对话框的“替换”选项卡。
。如果可用，请单击“更多”按钮。 （请参见图1。）
。确保已选中“使用通配符”复选框。
。在“查找内容”框中，键入不带引号的“（^ 2）”。请注意，最后一个括号后面有一个空格。
。在光标仍位于“查找”框中的情况下，单击“格式”按钮，然后选择“样式”。 Word将显示“查找样式”对话框。
。在显示的样式列表中，选择“脚注文本”样式，然后单击“确定”。
。在“替换为”框中，键入“ \ 1 ^ t”，不要带引号。
。按全部替换，然后关闭“查找和替换”对话框。
完成后，所有脚注将在脚注参考编号和脚注文本开头之间具有必填选项卡。之所以有效，是因为您在搜索中使用^ 2通配符，该通配符搜索脚注或尾注参考标记。 ^ 2周围的括号导致该通配符被视为一个组。
本质上，“查找内容”框将查找所有脚注或尾注参考标记，后跟空格，这些段落以“脚注文本”样式设置格式。这种组合发生的唯一位置是在脚注本身中。尾注采用尾注样式，文档主体不应采用脚注文本样式。
在“替换为”框中，字符\ 1将替换“查找内容”框中括号之间的第一个表达式。在我们的情况下，这就是脚注参考编号。 ^ t将插入一个制表符。
另一种方法是使用宏，该宏会将必要的选项卡放在脚注中的所需位置。下面的宏可以做到这一点：
Sub TabFootnotes() For s = 1 To ActiveDocument.Footnotes.Count ActiveDocument.Footnotes(s).Range.Select With Selection .Collapse Direction:=wdCollapseStart .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend .TypeText Text:=vbTab End With Next End Sub
此宏逐步浏览每个脚注，选择脚注文本，删除文本开头的空格，然后键入一个选项卡。实际上，宏不会检查以确保文本开头的字符是空格；它很容易成为该宏先前调用的选项卡。可以，但是，将现有的标签替换为新的标签将可以正常工作，并且仍能达到预期的效果。
如果您要始终确保在脚注参考编号后有一个选项卡，则有一种最后一种方法是合适的。此方法涉及替换Word的用于插入脚注的内置命令：
Sub InsertFootnote() If Selection.StoryType <> wdFootnotesStory Then Dim dlg As Dialog Set dlg = Dialogs(wdDialogInsertFootnote) If dlg.Display = -1 Then dlg.Execute Selection.TypeBackspace Selection.TypeText vbTab End If End If End Sub
此宏首先检查以确保您不在文档的脚注部分中尝试插入脚注。然后，它将显示常规的“脚注和尾注”对话框。当您在对话框中单击“确定”时，宏将插入一个选项卡，并等待您键入脚注的文本。此宏还将在尾注引用和尾注文本之间插入制表符。
注意：
如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1691）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：