Sub InsertCaption()'修改系统插入“题注”命令

'功能：自动删除标签与编号间的空格(英文除外)，并在题注数字后添加一个空格；适用于：Word 2003 - 2013，不兼容WPS文字！

'真正从原理上协同系统插入题注，无任何前提条件；用户照常插入题注即可，甚至感觉不到程序的存在！

'Endlesswx于2015年8月4日

'另,如果插入的始终未域代码而不是数字，非程序问题，Alt+F9一次即可

Dim Lab As String, startPt As Long, endPt As Long, myrang As Range

'On Error Resume Next'发生错误时让程序继续执行下一句代码

' Application.ScreenUpdating = False  '关闭屏幕更新，2013在此处关闭更新会导致输入框灰色不可选，故修正在调出对话框之后

startPt = Selection.Start'startPt标注起始点

'***将if条件隐藏隐藏即可实现----手动替换题注空格***

If Application.Dialogs(357).Show = -1 Then '插入“题注”对话框秀出来,如果按确定结束时执行以下程序，避免按取消后的空格,357也可换成wdDialogInsertCaption

Application.ScreenUpdating = False  '关闭屏幕更新

Lab = Dialogs(357).label

endPt = Selection.Start'e