与题注相关的排版问题
- 格式:doc
- 大小:1.44 MB
- 文档页数:12
附件:代码
粘贴的代码如下:
Sub InsertCaption()'修改系统插入“题注”命令
'功能:自动删除标签与编号间的空格(英文除外),并在题注数字后添加一个空格;适用于:Word 2003-2013,不兼容WPS文字!
endPt=endPt tion
.Start=startPt
.End = endPt
.Fields.ToggleShowCodes'切换域代码(切换回来)
EndWith
'将光标定位至题注所在段尾处
'Selection.MoveRightUnit:=wdCharacter, Count:=1 '此句光标返回插入题注前的原始位置,对于已经输好标题的情况并不合适
.MatchWildcards =False '不使用通配符
IfLabLike"*[0-9a-zA-Z.]" Then'此处判断标签的最后一个字符是否为英文或数字,是则不删除空格
Else
.Replacement.Text =Lab
.ExecuteReplace:=wdReplaceOne'替换找到的第一个,此处用作删除空格
'真正从原理上协同系统插入题注,无任何前提条件;用户照常插入题注即可,甚至感觉不到程序的存在!
'Endlesswx于2015年8月4日
'另,如果插入的始终未域代码而不是数字,非程序问题,Alt+F9一次即可
DimLabAs String, startPt AsLong,endPtAsLong,myrangAsRange
与题注相关的排版问题
———————————————————————————————— 作者:
———————————————————————————————— 日期:
ﻩ
与题注相关的排版问题
1在word中如何插入题注?
(1)打开word,点击“引用→插入题注”;
(2)弹出插入题注窗口,点击“新建标签”按钮;
编号设置完成后,点击确定,题注则插入光标所在位置。界面如下图所示。
2如何设置插入题注的格式?
(1)将鼠标移动至题注前,点击“开始”,在样式选择栏中查看题注的样式,界面如下图所示。
(2)将鼠标移至题注样式图标,点击右键,选择“修改”按钮;
(3)弹出样式修改框口,点击左下角的“格式”下拉菜单,可对题注的字体、段落间距等进行设置。界面如下图所示
Lab=Dialogs(357).Label
endPt= Selection.Start'endPt标记插入的题注部分终点
Selection.Start= startPt'选定插入的整个题注
'删除标签与编号间的空格(英文后的保留)
WithSelection.Find
.Text = Lab & ""
.Forward =True 'False=向上查找,(True=向下查找)
'On ErrorResumeNext'发生错误时让程序继续执行下一句代码
' Application.ScreenUpdating = False'关闭屏幕更新,2013在此处关闭更新会导致输入框灰色不可选,故修正在调出对话框之后
startPt= Selection.Start 'startPt标注起始点
endPt =endPt-1 '删除空格后,末位减1
Selection.End = endPt
EndIf
End With
'在题注数字后添加一个空格
Selection.Fields.ToggleShowCodes '切换域代码,这样才能用^d查找域
WithSelection.Find
.Text= "^d"
'***将if条件隐藏隐藏即可实现----手动替换题注空格***
IfApplication.Dialogs(357).Show =-1Then '插入“题注”对话框秀出来,如果按确定结束时执行以下程序,避免按取消后的空格,357也可换成wdDialogInsertCaption
Application.ScreenUpdating=False'关闭屏幕更新
.Replacement.Text="^&"
.Forward = False'False=向上查找,(True=向下查找)
.MatchWildcards= False'不使用通配符
.Execute Replace:=wdReplaceOne'替换找到的第一个,此处用作添加空格
EndWith
'选定整个插入的题注内容,将域代码切换回来
利用word中插入题注可以自动编号表名或者题名,但是经常会在标签与编号出现空格,界面如下图所示。如何去掉空格,且只需设置一次,操作步骤如下:
(1)打开Word文档后,按“Alt+F11”键,打开“VBA对话框”。或者点击“开发工具→VisualBasic”,打开VBA对话框,界面如下图所示。
(2)点击界面左侧控制面板的Normal-Microsoftword对象下的ThisDocument,弹出空白面板,将代码粘贴并保存即可,界面如下图所示。
(3)在弹出的标签窗口写图或表(插入图名时写图,插入表名时写表,不用填写序号),点击确定按钮;
(4)标签设置完成后,点击“编号”按钮,弹出题注编号窗口;
(5)在题注编号窗口里选择编号的格式,若编号格式不包含章节号(例如表一),可直接在格式下拉菜单中选择需要的格式,点击确定即可,如下图所示。
若编号格式包含章节号(例如表1-1或者1.1-1等格式),则勾选包含章节号,选择需要的编号格式,点击“确定按钮”,如下图所示。(注意:在编号之前先设置好文章的章节)
'选择段尾回车符
With Selection.Find
.Text = "^13"
.Forward= True'False=向上查找,(True=向下查找)
(4)点击“字体”按钮,进入字体修改窗口,设置字体的格式,点击“确定”按钮。界面如下图所示。
(5)一般表名或者图名都是居中排列,所以在修改样式窗口,需要将题注样式设置为居中样式,点击“确定”按钮,界面如下图所示。
(6)下图为调整后的题注样式。
3在word插入题注时,如何删除题注标签与编号之间的空格?