+ -
当前位置:首页 → 问答吧 → [求助]能不能将word自动编号转化为可以编辑的编号?

[求助]能不能将word自动编号转化为可以编辑的编号?

时间:2007-03-03

来源:互联网

能不能将word自动编号转化为可以编辑的编号?

word中的自动生成的编号不能编辑,有时修改起来极不方便。所以,想知道有没有这样一种转化方法,转化后编号不变,但编号格式变成就象一个一个打上去的那样,可以对编号数字及数字后的黑点进行编辑。

对于没有其他格式的文档可以用全选后进行无格式文本粘贴的方法实现。但是这样一来,若有其他格式,比如加粗,斜体等也会全部消失。

请问有没有两全的方法可以解决此问题?

谢谢!

作者: wxg   发布时间: 2007-03-03

试一下这个宏。

Sub kgs()
    Dim kgslist As List
    For Each kgslist In ActiveDocument.Lists
        kgslist.ConvertNumbersToText
    Next
End Sub

作者: konggs   发布时间: 2007-03-03

不用宏代码,单纯键盘、鼠标操作,该如何操作?

作者: byld   发布时间: 2007-03-03

多谢孔兄,试过了,非常好用呀!

真没想到这样一个宏就解决了问题。

祝您元宵节快乐!!

作者: wxg   发布时间: 2007-03-03

两个字:真好!

作者: cxz008   发布时间: 2007-03-03

不用宏能解决吗?

作者: byld   发布时间: 2007-04-23

如果要是一个一个地操作的话,可以复制(不要担心它没有选到,尽量往左边来拖选)后再选择性粘贴为文本文件

如果只是标题的话,想批量操作的话,请用查找法来查找标题,突出显示后,复制,选择性粘贴为文本文件也可以。

以上两法皆有很局限性。

孔版主所说的办法最好。

作者: c81   发布时间: 2007-04-23

Sub kgs()
    Dim kgslist As List
    For Each kgslist In ActiveDocument.Lists
        kgslist.ConvertNumbersToText
    Next
End Sub

顶,这个好,我试过了,绝对好用。

作者: moon2778   发布时间: 2011-06-10

跟着小月前辈的脚步学习。
引用小月前辈的话——
引用:
我会一直跟着你的脚步,直到……

作者: biaotiger1   发布时间: 2011-06-10