☰

方便地添加標題編號和文字以進行交叉引用

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，你的解決方案非常棒！它節省了我大量的時間。

相關內容