难题，替换字符，并段落缩进2个字符

jyh7081

首先不知道这些方块字符代码如何描述，只知道它是从表格中的换行符转换过来的。想用VBA批量去掉它，并让所有的段首左缩进2字符（这些换行符开头的都是段首），谢谢！


附件： A222.rar (5.99 KB, 下载次数: 10)

2016-8-25 22:51 上传

点击文件名下载附件

413191246se

楼主，你好！
1、你的例文并非和图片相符；2、例文中已经是首行缩进2字符了，再左缩进2字符其实已无必要；3、例文中有几个回车符其实是假段落标记（光标可以定位在回车符后面就是假段落标记，否则是真段落标记；段落标记就是在WORD中的标准回车符，是每个段落的结尾字符），还有三个“666”前面是空格，但实际上是1个回车符（并非真段落标记）。
***下面代码是你所要的，请试试吧！

1. Sub test()
   
2. '
   
3. ' test Macro
   
4. ' 宏在 2016-8-26 由 微软用户 录制
   
5. 
   
6. 'Sub 删除手动换行符和假段落标记()-----全部替换（相当于WORD中的“替换”操作）
   
7.     ActiveDocument.Content.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
   
8.     ActiveDocument.Content.Find.Execute FindText:="^13", replacewith:="^p", Replace:=wdReplaceAll
   
9. 
   
10. 'Sub 删除空行()----循环遍历段落法
    
11.     Dim i As Paragraph
    
12.     For Each i In ActiveDocument.Paragraphs
    
13.         i.Range.Select
    
14.         If Len(i.Range) = 1 Then i.Range.Delete
    
15.         Do
    
16.             If Selection.Characters(1).Text = Chr(10) Then Selection.Characters(1).Delete
    
17.         Loop Until Selection.Characters(1).Text <> Chr(10)
    
18.     Next
    
19. 
    
20. '例文已经是首行缩进了，下面的左缩进其实已经没必要了！
    
21. 
    
22. 'Sub 正文排版()
    
23.     Selection.WholeStory '全选
    
24. '    Selection.ClearFormatting
    
25. '    Selection.ClearFormatting
    
26.     With Selection.Font '选定区域字体设置
    
27. '        .Size = 14
    
28.         .Name = "Times New Roman'数字由宋体转为英文字体 Times New Roman 比较好看"
    
29.         .Kerning = 0
    
30.         .DisableCharacterSpaceGrid = True
    
31.     End With
    
32.     With Selection.ParagraphFormat '选定区域段落设置
    
33. '        .LineSpacing = LinesToPoints(1.25)
    
34. '        .CharacterUnitFirstLineIndent = 2
    
35.         .AutoAdjustRightIndent = False '取消网格
    
36.         .DisableLineHeightGrid = True '取消网格
    
37. '取消首行缩进
    
38.         .CharacterUnitFirstLineIndent = 0
    
39.         .FirstLineIndent = CentimetersToPoints(0)
    
40. '左缩进2字符
    
41.         .CharacterUnitLeftIndent = 2
    
42.     End With
    
43. '光标移至文首
    
44.     Selection.HomeKey unit:=wdStory
    
45. 
    
46. End Sub

复制代码

jyh7081

413191246se 发表于 2016-8-26 07:58
楼主，你好！
1、你的例文并非和图片相符；2、例文中已经是首行缩进2字符了，再左缩进2字符其实已无必要； ...

谢谢老师！您的代码太严谨了，把我没想到的都替我考虑到了，非常完美的解决了我的问题。我还有点问题，想再麻烦老师：如果从表格导入word文档后，在word中仍想保持原表格中的样式（不需左缩进），只是要删除word中的表格空行，需要怎样改动代码？
1、原始表格样式：

2、生成word文档：


3、希望的效果：


附件： aa.rar (79.93 KB, 下载次数: 8)

2016-8-26 13:01 上传

点击文件名下载附件

413191246se

楼主，因我家里电脑上未安装OFFICE2007及以上兼容包（也不想安），故我在WORD2003上试验的代码，如有错误，仅供参考吧！

1. Sub delEmptyLine()
   
2. 
   
3. 'Sub 删除手动换行符和假段落标记()-----全部替换（相当于WORD中的“替换”操作）
   
4.     ActiveDocument.Content.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
   
5.     ActiveDocument.Content.Find.Execute FindText:="^13", replacewith:="^p", Replace:=wdReplaceAll
   
6. 
   
7. '将全角空格替换为段落标记
   
8.     ActiveDocument.Content.Find.Execute FindText:=Chr(-24159), replacewith:="^p", Replace:=wdReplaceAll
   
9. 
   
10. 'Sub 删除空行()----循环遍历段落法
    
11.     Dim i As Paragraph
    
12.     For Each i In ActiveDocument.Paragraphs
    
13.         If Len(i.Range) = 1 Then i.Range.Delete
    
14.     Next
    
15. 
    
16. 'Sub 删除表格空白行()
    
17.     Dim tb As Table, r As Row
    
18.     With ActiveDocument
    
19.         For Each tb In .Tables
    
20.             For Each r In tb.Rows
    
21.                 r.Range.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
    
22.                 r.Range.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll
    
23.                 r.Range.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll
    
24.                 If Len(Replace(Replace(r.Range.Text, vbCr, ""), Chr(7), "")) = 0 Then r.Delete
    
25.             Next
    
26.         Next
    
27.     End With
    
28. 
    
29. End Sub

复制代码

jyh7081

413191246se 发表于 2016-8-26 13:40
楼主，因我家里电脑上未安装OFFICE2007及以上兼容包（也不想安），故我在WORD2003上试验的代码，如有错误， ...

试过了，没问题。非常感谢！

菜菜行者

413191246se 发表于 2016-8-26 13:40
楼主，因我家里电脑上未安装OFFICE2007及以上兼容包（也不想安），故我在WORD2003上试验的代码，如有错误， ...

谢谢，先收藏了！

jyh7081

413191246se 发表于 2016-8-26 13:40
楼主，因我家里电脑上未安装OFFICE2007及以上兼容包（也不想安），故我在WORD2003上试验的代码，如有错误， ...

老师，您的代码已经解决了我的问题，但还是想更完美一些。运行代码后，空行和空格都删除了，但是单元格中的换行符仍然存在，怎样用代码删除它？
再次感谢老师的辛勤付出！

413191246se

将下面一行代码拷贝在所有代码的最后一行前面，即“End Sub”前面单独一行即可：
    ActiveDocument.Content.Find.Execute FindText:="^p", replacewith:="", Replace:=wdReplaceAll

jyh7081

413191246se 发表于 2016-8-30 09:28
将下面一行代码拷贝在所有代码的最后一行前面，即“End Sub”前面单独一行即可：
    ActiveDocument.Cont ...

老师，运行后变成这样了：

jiminyanyan

jyh7081 发表于 2016-8-29 22:46
老师，您的代码已经解决了我的问题，但还是想更完美一些。运行代码后，空行和空格都删除了，但是单元格中 ...

WORD VBA　不熟悉，等老师解决。