[求助]如何批量将自动编号替换为手工编号

tangqingfu · 发表于 2006-12-9 19:59

在附件文档中有两种编号：

一种是自动编号，另一种是手工编号，请教：如何批量将自动编号替换为手工输入形式的编号？Thanks a lot!

XRioYh0Y.rar (3.4 KB, 下载次数: 86)

[此贴子已经被作者于2006-12-9 20:00:13编辑过]

gemj · 发表于 2006-12-9 20:05

看这个：

http://www.topsage.com/dispbbs.asp?BoardID=22&ID=53405&replyID=&skin=1

gemj · 发表于 2006-12-9 20:21

直接给宏吧：

Sub NumToTxt()
'
' NumToTxt Macro
' 宏在 2006-12-8 由 www.TopSage.com 创建
'
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub

tangqingfu · 发表于 2006-12-9 20:22

谢谢gemj兄，学习ing.

gemj · 发表于 2006-12-9 20:25

呵呵，不客气！

咱共同向各位高水平的版主学习吧！

wscwscwsc · 发表于 2006-12-9 20:47

也许我的作法很可笑，但我每次不用自动编号时，只要将自动编号删除就行了！

守柔 · 发表于 2006-12-11 06:22

QUOTE:

以下是引用tangqingfu在2006-12-9 20:22:49的发言：
谢谢gemj兄，学习ing.

请QingFu兄看看P332页 4 selection对象的应用示例。

tangqingfu · 发表于 2006-12-11 09:36

谢谢守版主，想将自动编号更改为手动编号后，将制表符也替换为半角空格，不知下面的代码可否（试验了一个，好像可以，对于将制表符替换为半角空格的代码，我是通过录制宏提取的代码），请守版主指正：

Sub 自动编号替换为手动编号()
Selection.Range.ListFormat.ConvertNumbersToText
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^t"
        .Replacement.Text = " "
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

youngersty · 发表于 2010-7-16 10:31

顶起！！！！

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