[求助]如何去掉题注中编号前的空格？

zdeer · 发表于 2006-11-20 01:33

如题，“表格 1”变为“表格1”？

c81 · 发表于 2006-11-20 09:07

如果量不多的话

请将“ 格” 和 “1” 之间的空格删除，然后再选中 “格”和 “1 ”这两个字符，调整它们的间距为紧缩即可。

也可以考虑试试做个宏或替换法批量操作。

[此贴子已经被作者于2006-11-20 9:08:32编辑过]

konggs · 发表于 2006-11-20 10:15

如果想一劳永逸，就把下面的宏放到normal中的thisdocument吧。

Sub insertcaption() '修改插入“题注”命令

Dim arange As Range

On Error Resume Next

Application.Dialogs(357).Show '插入“题注”对话框秀出来

Set arange = ActiveDocument.Range(Selection.Previous.Words(1).Start - 1 _

, Selection.Previous.Words(1).Start) '确定位置为光标所在位置的前一个即空格

arange.Delete

'删除这个空格

End Sub

cotxyz · 发表于 2011-11-18 16:37

konggs 发表于 2006-11-20 10:15
如果想一劳永逸，就把下面的宏放到normal中的thisdocument吧。Sub insertcaption()  '修改插入“题注” ...

re up。解决了个大问题。thx

SailingKite · 发表于 2012-1-13 14:52

konggs 发表于 2006-11-20 10:15
如果想一劳永逸，就把下面的宏放到normal中的thisdocument吧。Sub insertcaption()  '修改插入“题注” ...

多谢，这个办法真的很好。

只是这个方法只适用于不添加章节号的题注（如表1 图1等），能否提供一个适用于添加章节号的题注（如图1-1，表1-1）的宏呢，自己研究半天都失败了。

如果能够同时适用于两种格式就更好了！还请斑竹大人赐教啊。

Endlesswx · 发表于 2015-8-5 08:43

本帖最后由 Endlesswx 于 2015-8-5 08:45 编辑

SailingKite 发表于 2012-1-13 14:52
多谢，这个办法真的很好。

只是这个方法只适用于不添加章节号的题注（如表1 图1等），能否提供一个适 ...

看这里吧，http://blog.sina.com.cn/s/blog_51817ae50102w8mz.html

这个程序不存在你说的问题了

		自动登录	找回密码
密码			免费注册