写论文技巧之图表的交叉引用这个我想大家已经很熟悉了,但是由于office源于国外,所以插入题注时图表与数字标签间默认会有一个空格:“图
3.1” ,我们希望得到“图3.1 ”这样的格式。因为如果是前者,交叉引用时在正文中就也有空格,会很难看~_~。
因此,我们采用宏的方式,插入题注的同时,删除该空格并设置题注格式。随意录制一个宏,将以下代码插入:
-----------------------------------------------------------------------------------
Sub 插入图()
CaptionLabels.Add Name:='表'
CaptionLabels.Add Name:='图'
With CaptionLabels('表')
.NumberStyle =
wdCaptionNumberStyleArab ic
.IncludeChapterNumber = True
.ChapterStyleLevel = 2
.Separator =
wdSeparatorPeriod
End With
With CaptionLabels('图')
.NumberStyle =
wdCaptionNumberStyleArab ic
.IncludeChapterNumber = True
.ChapterStyleLevel = 2
.Separator = wdSeparatorPer
因此,我们采用宏的方式,插入题注的同时,删除该空格并设置题注格式。随意录制一个宏,将以下代码插入:
-----------------------------------------------------------------------------------
Sub 插入图()
