我的所有浮动图形都包裹在文本框中(以便能够通过段落样式定义边距)。当我使用“添加标题”按钮为此类图形创建标题时,Word 会在文本框下方添加一个额外的文本框。如果我需要移动图形,这会带来问题。
有没有办法让 Word 在现有文本框中添加标题?我知道我也可以手动创建标题,例如通过从其他标题复制自动编号字段,但我想知道是否有更方便的方法。
答案1
答案2
我最终手动创建了标题,但借助一个方便的宏,它在输入“图形”或“表格”后添加了适当的自动编号字段。
这是宏:
Sub InsertCaptionNumber()
Dim textBefore As String
With Selection.Range
.End = .Start
.MoveStart wdWord, -1
textBefore = .Text
End With
Dim captionLabel As Variant
For Each captionLabel In CaptionLabels
If captionLabel.Name = Trim(textBefore) Then
Selection.Fields.Add Selection.Range, wdFieldSequence, captionLabel.Name & " \* ARABIC", False
Exit Sub
End If
Next
End Sub
将此宏绑定到某些键盘快捷键后,我可以例如键入FigureSPACE(the shortcut),并获取具有正确图形编号的字段。