☰

方便地添加标题编号和文本以进行交叉引用

tag-icon • tag-icon microsoft-word-2013 cross-reference
方便地添加标题编号和文本以进行交叉引用

我主要写技术文档。文档需要大量交叉引用。我的交叉引用格式始终相同：

<heading-number> <space> <heading-text>.

使用交叉引用对话框添加这些内容很麻烦。找到标题，从下拉菜单中选择段落编号，插入，从下拉菜单中选择段落文本，插入，返回文档，插入空格（并且，通常将插入的标题文本更改为斜体）。

有没有更方便的方法？我确实查看了有关交叉引用的现有问题（有很多），但似乎没有一个涉及这个问题。

答案1

我写过宏轻松插入交叉引用，避免您所描述的交叉引用对话框的所有麻烦。
它可以插入 或<heading-number>，<heading-text>但可以轻松适应插入两者所需的组合。

答案2

7 年前人们还在为此而战。这是我的小小贡献：Dim strCode As String

With Dialogs(wdDialogInsertCrossReference)
    .ReferenceType = "Numbered item"
    .ReferenceKind = wdNumberRelativeContext
    .InsertAsHyperlink = True
    .SeparateNumbers = False
    .Show
End With
Selection.TypeBackspace 'trick it selects the complete field
Selection.Copy
Selection.MoveRight Unit:=wdCharacter, Count:=1 ' unselect
Selection.TypeText Text:=" " ' Separate with one space
Selection.PasteAndFormat (wdPasteDefault) ' duplicate the copied field
Selection.TypeBackspace ' Select the duplicated field
strCode = Selection.Fields(1).Code ' get the code from the field
strCode = Replace(strCode, "\r ", "") ' Remove option to have paragraph text
strCode = Replace(strCode, "\w ", "")
Selection.Fields(1).Code.Text = strCode ' Update the text of the ;code text
Selection.Fields.Update ' Update the field to display § text
Selection.MoveRight Unit:=wdCharacter, Count:=1 ' Deselect the updated field
Selection.TypeText Text:=" " ' add a space at the end

子目录结束

按原样提供，它对我有用；-)玩得开心并有空余时间去玩......

答案3

Vince S 的解决方案非常完美。由于我的声誉还不到 50，所以我不能发表评论，但 Vince，你的解决方案太棒了！它为我节省了大量时间。

相关内容