[vba]快速更新表格标题序号

Word中的表格序号可以通过添加“题注”的方式进行自动管理，但是有些特殊情况下采用了人工编号的方式。

随着表格的增加，表格序号的更新成为繁重的工作，使用下面的VBA脚本可以快速的更新。

使用要求：

1.表格标题必须位于表格上方一行

2.表格标题必须以“表”字开头

3.表格标题中必须出现数字

建议使用的时候在Selection.Text = str(i)这一行下断点，观察修改过程，避免错误修改

Option Explicit'更新表格序号
Public Sub 更新表格序号()Application.ScreenUpdating = FalseDim oDoc As DocumentDim oTable As TableDim i As LongDim sLine As StringDim sNumber As StringSet oDoc = Application.ActiveDocumentFor i = 1 To oDoc.Tables.Count - 1Set oTable = oDoc.Tables(i)'选择表格
        oTable.Select'光标上移一行Selection.MoveUp Unit:=wdLine, Count:=1'选择到行尾Selection.EndKey Unit:=wdLine, Extend:=wdExtendsLine = Selection.TextIf Left(sLine, 1) = "表" ThensNumber = getFirstNumber(sLine, 2)'搜索数字
            findAndSelect sNumber'选中数字是在表格标题中If Len(sNumber) > 0 And Selection.Text = sNumber And InStr(1, sLine, sNumber) Then'请在此处下断点'修改表格序号Selection.Text = str(i)End IfEnd IfNextApplication.ScreenUpdating = True
End Sub'获取字符串中首次出现的数字
Private Function getFirstNumber(ByVal str As String, ByVal start As Long) As StringDim i As LongDim ret As StringDim ch As StringFor i = start To Len(str) - 1ch = Mid(str, i, 1)If IsNumeric(ch) Thenret = ret & chElseIf ch = " " ThenElseExit ForEnd IfNextgetFirstNumber = ret
End Function'查找并选择
Private Sub findAndSelect(ByRef sToken As String)With Selection.Find.Text = sToken.Replacement.Text = "".Forward = False.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute
End Sub

posted on 2013-04-14 21:07 kmlxk 阅读(...) 评论(...) 编辑收藏

转载于:https://www.cnblogs.com/snippet/archive/2013/04/14/vba-word-update-table-seq.html

[vba]快速更新表格标题序号相关推荐

word中用VBA实现所有表格标题行重复
添加开发工具选项--自定义--开发工具点击Visual Basic 添加模块 Sub a()For Each xxx In ThisDocument.Tablesxxx.Rows(1).Headi ...
VBA按列名称或是按表格标题给EXCEL表格做排序
VBA给EXCEL表格做排序按列名称或是按标题给表格排序按列名称或是按标题给表格排序在VBA编程时,经常会对表格内容进行排序,为了方便对不同需求下的内容排序,编制了下面这个函数,此函数可以根据给 ...
【Excel】VBA自动化更新数据表格
[博客地址]:https://blog.csdn.net/sunyaowu315 [博客大纲地址]:https://blog.csdn.net/sunyaowu315/article/details/ ...
套用带标题行的表格样式_649.Excel技巧：如何利用表格样式快速美化表格？
之前牛闪君发表过一篇如何对表格进行专业美化的文章获得小伙伴的认可,但那种表格美化的方法效率相对比较低,通常都要手工设置字体大小,颜色,以及网格线等参数设置.有小伙伴也询问有没有快速美化表格的方法,例如 ...
动态表格数据序号从1开始_EXCEL对面的表姐看过来，你真的会给表格添加序号吗？...
原创作者: EH看见星光转自:Excel星球哈罗,大家好,我是星光,今天给大家总结分享的表格技巧是--序号. 什么是序号?序号就是一二三四五上山打老虎--一二三四一二三四像首歌--一二三四二二三四 ...
word表格分开快捷键_word文档如何快速拆分表格，干货！怎样快速拆分表格以及快速合并表格技巧介绍...
原标题:word文档如何快速拆分表格,干货!怎样快速拆分表格以及快速合并表格技巧介绍 word是一款文字处理器应用程序,我们大家在生活中工作中都会频繁的使用到word写一些文字.素材等等内容,我们记录 ...
表格标题位置-CSS入门基础（020）
今天我们接着分享表格样式的内容. 默认情况下,表格标题位置是在表格的上方,但是如果我们想要把表格标题放在表格下方呢? 在css中,我们可以使用caption-side属性来定义表格标题的位置. 语法: ...
html中怎么给表格增加序号,如何给word表格中添加编号
在Word中制作表格时都希望在表格的第一列增加一个序号,其作用可以标识行或统计行数.例如从1开始,一直到80.100甚至更多.那么怎么添加呢?采用手工进行编辑还是其他的?手工编辑显然是一件不可能的事, ...
Excel快速对齐表格的中姓名（两个字姓名和三个字姓名对齐）
Excel快速对齐表格的中姓名(两个字姓名和三个字姓名对齐) 1.像这样表格里有两个字的姓名和三字的姓名,如何对齐? 2. 框选选中姓名列,鼠标右键点击[设置单元格格式] 3.在[对齐]选项卡中找到[ ...
如何快速更新网站内容
网站快速更新可以让我们网站拥有大量的内容,怎样保持网站快速更新,这需要我们拥有大量的素材进行发布,这些内容的时效性和质量也是需要掌握的,这样才能为读者提供优质的服务. 通过网站快速更新插件,我们可以对 ...

[vba]快速更新表格标题序号

[vba]快速更新表格标题序号相关推荐

最新文章

热门文章