如何无需替换或者一一删除，就能让WORD中的段落序号前的大空格消失

tosome

经常从WORD往网文本框里拷贝文字。

由于WORD文件经常有段落编号12345，拷到文本框里，序号后段落前出现一个比正常空格大的一种大空格，由于粘贴的项目序号很多，而且段落层次比较多。

所以一一删除，或者一一替换都太麻烦，有没有简答你的办法让这些大空格小时呢？谢谢各位老师了。

桌面.rar (10.44 KB, 下载次数: 8)

2016-11-26 13:00 上传

点击文件名下载附件

413191246se

楼主，我猜你说的是自动编号的制表位，如果手动编号就没有，自动就有。在文本框框线上点击一下，然后点击：格式菜单——制表位——默认制表位（调整为 0 或 0.24），再点击下方的“全部清除”，确定即可。

tosome

谢谢413191246se老师的回复，不过我没有找到您说的那个制表位的菜单。

我把我说的WORD文件和TXT效果文件发上来了（实际上是复制到一个网页的文本框里，不会保存任何排版的格式，除了这个大空格，所以和拷贝到txt效果是一样的），就是希望复制后没有任何空格，要不每次都要吭哧吭哧的删半天空格。

您也许会说可以先拷贝到TXT里替换大空格，再拷贝回网页的文本框，不需要VBA。但是因为很多文件都要调整，这样步骤一多，就容易乱了。哈哈，还得求助您啦，谢谢啊

duquancai

tosome 发表于 2016-11-26 13:10
谢谢413191246se老师的回复，不过我没有找到您说的那个制表位的菜单。

我把我说的WORD文件和TXT效果文件 ...

需求不明，也无附件

tosome

duquancai 发表于 2016-11-26 14:25
需求不明，也无附件

不好意思，我还上传附件，忘记点击使用了。现在我传上来了，谢谢 :)

duquancai

tosome 发表于 2016-11-26 14:48
不好意思，我还上传附件，忘记点击使用了。现在我传上来了，谢谢 :)

1. Sub shishi()
   
2.    Dim aRange  As Range, mt, str$, fn$
   
3.    Application.ScreenUpdating = False
   
4.    ActiveDocument.Content.ListFormat.ConvertNumbersToText
   
5.    Set aRange = ActiveDocument.Content
   
6.    With CreateObject("vbscript.regexp")
   
7.       .Global = True: .MultiLine = True
   
8.       .Pattern = "(?:^[\s\xa0\u3000]+|[\s\xa0\u3000]+$)|\t+"
   
9.       str = .Replace(aRange, "")
   
10.    End With
    
11.    Debug.Print str
    
12.    fn = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1)
    
13.    Open ActiveDocument.Path & "" & fn & ".txt" For Output As #1
    
14.    Print #1, str
    
15.    Close #1
    
16.    Application.ScreenUpdating = True
    
17.    MsgBox "已经输出到TXT文本！请打开TXT文本再复制粘贴！！！"
    
18. End Sub

复制代码

tosome

duquancai 发表于 2016-11-26 15:16

谢谢duquancai老师啊，很完美的解决了我的困扰，没有大空格了。

但是还有2个小问题请教您一下。
第一个是不知道如何让1234条目之前的“WORD中效果:”也自己占用一行呢？
第二个是请问如何用转换好的文本内容，直接替换掉WORD文件里带大空格的文本呢。不经过TXT文件，我放上TXT文件只是为了演示效果，嘿嘿，我刚开始学习VBA，初级的简单语句能自己改一下，这种高级操作我还需要多学习才知道怎么弄。

duquancai

tosome 发表于 2016-11-26 20:31
谢谢duquancai老师啊，很完美的解决了我的困扰，没有大空格了。

但是还有2个小问题请教您一下。

1. Sub shishi()
   
2.    Dim col As New Collection, k&, j&
   
3.    Dim mt, oRang As Range, n&, m&
   
4.    ActiveDocument.Content.ListFormat.ConvertNumbersToText
   
5.    Set oRang = ActiveDocument.Content
   
6.    With CreateObject("vbscript.regexp")
   
7.       .Pattern = "\t+": .Global = True
   
8.       For Each mt In .Execute(oRang)
   
9.          k = k + 1
   
10.          m = mt.FirstIndex: n = mt.Length
    
11.          Set oRang = ActiveDocument.Range(m, m + n)
    
12.          col.Add oRang, CStr(k)
    
13.       Next
    
14.    End With
    
15.    For j = 1 To col.Count
    
16.       col(j) = ""
    
17.    Next
    
18. End Sub

复制代码

tosome

duquancai 发表于 2016-11-26 20:52

您的提供的代码解决了我的问题啦，减少了好多重复操作呢，真是太谢谢duquancai老师了。

周末愉快啊！

zxy31412

这个不就是编号后有制表符的问题吗？
对编号点右键--》“调整列表缩进”--》把“编号之后”的制表符改成“不特别标注”就可以了