Sub InsertCaption()修改系统插入“题注”命令
功能：自动删除标签与编号间的空格(英文除外)，并在题注数字后添加一个空格；适用于：Word - ，不兼容WPS文字！
真正从原理上协同系统插入题注，无任何前提条件；用户照常插入题注即可，甚至感觉不到程序的存在！
Endlesswx于8月4日
另,如果插入的始终未域代码而不是数字，非程序问题，Alt+F9一次即可
Dim Lab As String, startPt As Long, endPt As Long, myrang As Range
On Error Resume Next发生错误时让程序继续执行下一句代码
Application.ScreenUpdating = False关闭屏幕更新，在此处关闭更新会导致输入框灰色不可选，故修正在调出对话框之后
startPt = Selection.StartstartPt标注起始点
***将if条件隐藏隐藏即可实现----手动替换题注空格***
If Application.Dialogs(357).Show = -1 Then 插入“题注”对话框秀出来,如果按确定结束时执行以下程序，避免按取消后的空格,357也可换成wdDialogInsertCaption
Application.ScreenUpdating = False关闭屏幕更新
Lab = Dialogs(357).label
endPt = Selection.Starte
去掉图题注 空格_【转载】论文排版-Word插入题注时自动删除标签与编号前的空格 编号后添加空格...
