全选修改字体字事情，如何避开表格就不作处理

413191246se

楼主，你的要求可以办到，只修改表格外文字，不动表格，方法就是，判断每一个段落如果不在表格内，则排版，否则不予处理。下面是判断光标是否在表格内的代码：（配合循环遍历段落法可以处理文档）
Sub try()
    If Selection.Information(wdWithInTable) = True Then
        MsgBox "光标在表格内！"
    Else
        MsgBox "光标在表格外！"
    End If
End Sub

菜菜行者

413191246se 发表于 2016-4-27 15:44
楼主，你的要求可以办到，只修改表格外文字，不动表格，方法就是，判断每一个段落如果不在表格内，则排版， ...

我在光标在表格外加了
Selection.Font.Name = "黑体"
Selection.Font.Size = 15
全选后运行，意在修改表格外的内容，但却全部改为黑体15磅了。
请问怎么改。

413191246se

楼主，使用《循环遍历段落法》即可，再判断该段落是否在表格外处理之：

1. Sub test()
   
2. '仅修改表格外文字
   
3.     Dim i As Paragraph
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.         If Len(i.Range) = 1 Then i.Range.Delete
   
6.         If i.Range.Information(wdWithInTable) = False Then
   
7.             With i.Range.Font
   
8.                 .Name = "黑体"
   
9.                 .Name = "Times New Roman"
   
10.                 .Size = 22
    
11.                 .Bold = True
    
12.                 .Color = wdColorRed
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub

复制代码

菜菜行者

413191246se 发表于 2016-4-29 09:25
楼主，使用《循环遍历段落法》即可，再判断该段落是否在表格外处理之：

感谢413191246se ，这正是我需要的！

另外，请帮我再看看另外一个问题
http://club.excelhome.net/thread-1273181-1-1.html

相见是缘8

413191246se 发表于 2016-4-29 09:25
楼主，使用《循环遍历段落法》即可，再判断该段落是否在表格外处理之：

413191246se 老师好！
你这个代码可否在原有的基础上修改一下，让空段的格式不变（即：原空段落符的字号大小不变），或把空段落符的字号设置为想要的大小，如：五号。
谢谢！

413191246se

* 我现在不敢给 相见 写代码了，你懂的！呵呵！下面的代码并非最佳处理代码，因为处理字表混合文档，最快的还是以表格为界，分区域处理（Range），这样才快！现在的是每段都要选定，效率低下，但能完成 相见 所要求目的：

1. Sub test_修改表格外文字_空段不变()
   
2. 
   
3.     Dim t As Table, i As Paragraph
   
4. 
   
5.     With ActiveDocument
   
6.         '真假回车符/手动换行符=>段落标记
   
7.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
8. 
   
9.         '取消表格文字环绕
   
10.         For Each t In .Tables
    
11.             With t.Range.Rows
    
12.                 .WrapAroundText = False
    
13.                 .Alignment = wdAlignRowCenter
    
14.             End With
    
15.         Next
    
16. 
    
17.         '循环遍历所有段落/仅处理表格外文字/空白行不处理（或设置为五号字）
    
18.         For Each i In .Paragraphs
    
19.             With i.Range
    
20.                 '如果在表格外
    
21.                 If Not .Information(12) Then
    
22.                     '选定
    
23.                     .Select
    
24.                     '居中/两端对齐=>删除段落首尾空格(半角空格/全角空格/不间断空格/制表符)
    
25.                     CommandBars.FindControl(ID:=122).Execute
    
26.                     CommandBars.FindControl(ID:=123).Execute
    
27. 
    
28.                     '空白段落（字长为1的段落）
    
29.                     If Len(.Text) = 1 Then
    
30.                         .Font.Size = 10.5 '五号（屏蔽/注释/删除此语句则不处理）
    
31.                     Else
    
32.                         '字体格式
    
33.                         With .Font
    
34.                             .Name = "黑体"
    
35.                             .Name = "Times New Roman"
    
36.                             .Size = 22
    
37.                             .Bold = True
    
38.                             .Color = wdColorRed '红色
    
39.                         End With
    
40.                     End If
    
41.                 End If
    
42.             End With
    
43.         Next
    
44.     End With
    
45. 
    
46.     Selection.HomeKey 6 '光标移至文首
    
47. End Sub

复制代码

相见是缘8

413191246se 发表于 2020-7-27 13:07
* 我现在不敢给 相见 写代码了，你懂的！呵呵！下面的代码并非最佳处理代码，因为处理字表混合文档，最快的 ...

老师好！
代码运行虽较慢，但能达愿，感谢你的付出！
老师，为啥不想给我写代码了，是我那里让你不高兴了吗？如是，还请你多多见谅！！！

thunor

选中后，先判断是不是处于表中，如果是，则下一个，如果不是，则处理。

413191246se

相见：因为，写一个，不合你意；写一个，不合你意呀！（开个玩笑，别当真。:）

相见是缘8

413191246se 发表于 2020-7-27 22:34
相见：因为，写一个，不合你意；写一个，不合你意呀！（开个玩笑，别当真。:）

老师好！
没有！没有！有时可能是因我对所需的要求，描述得不太清楚戓不太准确，导致你误解了意思所写的代码，不能如愿，仅此而已！