Word中标题、图表自动编号的方法


一般情况下,Word文档需要为标题提供连续编号,默认的标题样式并没有自动编号的功能,系统默认的标题样式效果如下图:

 

 

正确设置标题自动编号的方法具体步骤如下:
NO1:打开Office Word应用程序,新建一份空白文档,在文档中输入如下图所示的测试文字。(注:标题1_*对应样式标题1,标题2_*对应样式标题2...依此类推

 

  

NO2:点击“开始”菜单->“段落”->“多级列表”->“定义新的列表样式”。如下图所示:

NO3:在弹出的“定义新的列表样式”对话框中设置属性的名称(该名称可以任意设置成容易理解和记忆的名称)。
NO4:点击“定义新的列表样式”对话框下方的“格式”按钮,选择“编号”。
NO5:在弹出的对话框中,点击左下方的“更多”按钮。如下图所示:

NO6:设置级别与样式的对应的关系(注:此步骤最为关键,直接关系到后面在设置标题时是否可以自动编号)。如级别1对应标题1,级别2对应标题2,级别3对应
标题3...,其它设置选项可根据自己的需求及喜好设置。如下图所示:

 
    NO7:设置完成之后确定以使设置生效。
NO8:该步骤可选,可以将刚刚设置的新样式保存下来,以便日后使用,而不是每次都进行相同的设置。如下图所示:
NO9:设置正文的标题样式及层级关系(注:现在已经能看到刚刚自定义设置的标题样式了)。现在当你在设置标题样式时,是不是发现标题已经会自动编号了。 同时可以放心的用格式刷刷了。
如下图所示


同样,标题可以自动,图和表也可以实现自动编号,以图编号为例,word2010下操作步骤如下:
做好标题索引,插入基本标题目录,如下:
01

 

 


 

插入几个图片后效果图:

光标移至第一幅图像后,点击[引用]-[插入题注],弹出界面中选择“标签”中的图,此时自动生成题注“图1”,如希望与标题匹配一致,即如第一章中图1-1,
图1-2,第二章中自动为图2-1,图2-2,需要单击“编号”,弹出“题注编号”界面中勾选“包含章节号”,可设置章节样式和分隔符,如1-1,1.1。
点击确定后会插入图1-1,其他图片依次插入或直接复制过去,然后再按Ctrl+A全选,单击“更新域”即可,更新后图片序号会自动编号。

图片已经可以自动编号了,那么如果有文字中对其进行了引用,比如”见图1-1“,”见图1-2“,也可以设置成自动更新编号,这样即使后续修改是图片有改动,
只需更新下域即可,无需手动修改图片编号。
在编写文字时,点击[插入]-[交叉引用]或[引用]-[题注]-[交叉引用],选择“引用类型”为“图”,“引用内容”为“只有标签和编号”,再选择“引用哪一个
题注”中选第一个,点击“插入”完成。

 

  

同样的操作方式,在引用该图的时候依次插入“交叉引用”,需要注意选择“引用哪一个题注”时别选错了。如下图

复制一份粘贴到图1-2前面

再Ctrl+A全选,右键菜单中选择“更新域”,再看看,帅吧。

 
您好!您的需求可以通过使用Word VBA宏来实现。下面是一个示例代码,它可以跟随您自定的样式来重新为每个样式的图编号: ``` Sub ResetCaptionNumbering() '定义变量 Dim objStyle As Style Dim objRange As Range Dim objCaption As CaptionLabel Dim iCount As Integer Dim iNumbering As Integer '获取所有的图表样式 For Each objStyle In ActiveDocument.Styles '如果样式是图表样式 If objStyle.Type = wdStyleTypeCaption Then '将图表样式的计数器重置 objStyle.AutomaticallyUpdate = False objStyle.LinkToListTemplate ListTemplate:=Nothing objStyle.ListParagraphs(1).Range.ListFormat.ApplyListTemplate _ ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(1), _ ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList objStyle.AutomaticallyUpdate = True '为每个图表样式重新编序号 iCount = 1 iNumbering = 1 For Each objRange In ActiveDocument.StoryRanges Do '查找下一个图表样式 Set objCaption = objRange.NextField If objCaption Is Nothing Then Exit Do End If If objCaption.Type = wdFieldCaption Then If objCaption.Result.Style = objStyle.Name Then '设置图表编号 objCaption.Result.Text = iNumbering & "." iCount = iCount + 1 iNumbering = iNumbering + 1 End If End If Set objRange = objCaption.Result Loop Next objRange End If Next objStyle End Sub ``` 请按照以下步骤执行该宏: 1. 打开 Word 文档,按下“Alt + F11”打开 VBA 编辑器; 2. 在 VBA 编辑器中,点击“插入” -> “模块”,在新建的模块中,复制上述代码; 3. 保存宏,返回到 Word 文档; 4. 按下“Alt + F8”打开宏对话框,选择并运行刚才创建的宏。 该宏将会按照您自定义的图表样式重新编序号图表。注意,该宏只会对当前文档中的图表进行重新编序号,如果您需要对多个文档进行操作,请在每个文档中分别运行该宏。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值