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

413191246se

jiminyanyan 朋友已是 EH 侠圣，水平比我高很多很多，谦虚了！
楼主，你好！——我安装了2007兼容包，发现你的表格是环绕的，第一个表格下面还是同样的一个表格。以前的代码不要用了，请使用下面的代码：

1. Sub test()
   
2. '半角空格全部替换为段落标记
   
3.     ActiveDocument.Content.Find.Execute FindText:=" ", replacewith:="^p", Replace:=wdReplaceAll
   
4. '删除表格空白行
   
5.     Dim tb As Table, r As Row
   
6.     With ActiveDocument
   
7.         For Each tb In .Tables
   
8.             For Each r In tb.Rows
   
9.                 r.Range.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
   
10.                 r.Range.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll
    
11.                 r.Range.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll
    
12.                 If Len(Replace(Replace(r.Range.Text, vbCr, ""), Chr(7), "")) = 0 Then r.Delete
    
13.             Next
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

413191246se

OMG！段落缩进忘了，但我提醒楼主的是，表格中内容一般是居中的，居左的比较少（可以将前楼代码中的取消首行缩进加段落缩进加到最新代码后面即可）。

jyh7081

413191246se 发表于 2016-8-31 07:04
jiminyanyan 朋友已是 EH 侠圣，水平比我高很多很多，谦虚了！
楼主，你好！——我安装了2007兼容包，发现 ...

老师，没变化呀，我再上传个测试文件。
附件： A111.rar (6.3 KB, 下载次数: 3)

2016-8-31 12:12 上传

点击文件名下载附件

413191246se

楼主，我把你的两个问题搞混了，所以，来一个综合的宏（但未搞定左缩进为0，自己全选/格式/段落/左缩进设置为0吧），差强人意，对付着用吧！

1. Sub test()
   
2.     On Error Resume Next
   
3. '删除手动换行符和假段落标记
   
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. '删除所有表格每个单元格中的回车符
    
11.     Dim t As Table, c As Cell
    
12.     For Each t In ActiveDocument.Tables
    
13.         With t
    
14.             With .Rows
    
15.                 .WrapAroundText = False '取消文字环绕
    
16.                 .Alignment = wdAlignRowLeft '左对齐
    
17.                 .LeftIndent = CentimetersToPoints(0) '左缩进 0 厘米
    
18.                 .HeightRule = wdRowHeightAtLeast '表格行高（最小值）
    
19.                 .Height = CentimetersToPoints(0.7) '表格行高（0.7 厘米）
    
20.             End With
    
21.             With .Range
    
22.                 With .Font '字体格式
    
23.                     .Name = "Times New Roman"
    
24.                     .Size = 12
    
25.                     .Kerning = 0
    
26.                     .DisableCharacterSpaceGrid = True
    
27.                 End With
    
28.                 With .ParagraphFormat '段落格式
    
29.                     .CharacterUnitFirstLineIndent = 0 '取消首行缩进
    
30.                     .FirstLineIndent = CentimetersToPoints(0) '取消首行缩进
    
31.                     .LineSpacingRule = wdLineSpaceSingle '单倍行距（.Space1）
    
32.                     .Alignment = wdAlignParagraphCenter
    
33.                     .AutoAdjustRightIndent = False
    
34.                     .DisableLineHeightGrid = True
    
35.                 End With
    
36.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
    
37.             End With
    
38.         End With
    
39.         
    
40.         t.Select
    
41.         For Each c In Selection.Cells
    
42.             Do
    
43.                 c.Select
    
44.                 Selection.Find.Execute FindText:=Chr(13) & Chr(7), replacewith:="", Replace:=wdReplaceAll
    
45.             Loop Until Selection.Find.Found = False
    
46.         Next
    
47.     Next
    
48. 
    
49. '删除空行
    
50.     Dim i As Paragraph
    
51.     For Each i In ActiveDocument.Paragraphs
    
52.         i.Range.Select
    
53.         If Len(i.Range) = 1 Then i.Range.Delete
    
54.         Do
    
55.             If Selection.Characters(1).Text = Chr(10) Then Selection.Characters(1).Delete
    
56.         Loop Until Selection.Characters(1).Text <> Chr(10)
    
57.     Next
    
58. 
    
59. '删除表格空白行
    
60.     Dim tb As Table, r As Row
    
61.     With ActiveDocument
    
62.         For Each tb In .Tables
    
63.             For Each r In tb.Rows
    
64.                 r.Range.Find.Execute FindText:="^l", replacewith:="^p", Replace:=wdReplaceAll
    
65.                 r.Range.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll
    
66.                 r.Range.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll
    
67.                 If Len(Replace(Replace(r.Range.Text, vbCr, ""), Chr(7), "")) = 0 Then r.Delete
    
68.             Next
    
69.         Next
    
70.     End With
    
71.    
    
72. '光标移至文首
    
73.     Selection.HomeKey unit:=wdStory
    
74. 
    
75. End Sub

复制代码

jyh7081

413191246se 发表于 2016-8-31 20:12
楼主，我把你的两个问题搞混了，所以，来一个综合的宏（但未搞定左缩进为0，自己全选/格式/段落/左缩进设置 ...

谢谢老师诲人不倦的精神！