在同一文本框内插入图形标题,而不是在新文本框中插入

在同一文本框内插入图形标题,而不是在新文本框中插入

我的所有浮动图形都包裹在文本框中(以便能够通过段落样式定义边距)。当我使用“添加标题”按钮为此类图形创建标题时,Word 会在文本框下方添加一个额外的文本框。如果我需要移动图形,这会带来问题。

有没有办法让 Word 在现有文本框中添加标题?我知道我也可以手动创建标题,例如通过从其他标题复制自动编号字段,但我想知道是否有更方便的方法。

答案1

如果您选择文本框内的图形或图片,并在 Word 中添加标题,则标题位于文本框内。

不需要宏。以下是屏幕截图:

截屏

这里有一个临时链接到文档中。

当我插入标题时,它在下面,我必须向下展开文本框才能看到标题。

这是我的文章插入字幕随图形移动。我正在使用 Word for Windows 365 和 Word 2010。

答案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),并获取具有正确图形编号的字段。

相关内容