我主要写技术文档。文档需要大量交叉引用。我的交叉引用格式始终相同:
<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,你的解决方案太棒了!它为我节省了大量时间。