查找手动回车符和普通回车符之间的所有字符

duquancai

honey_bee 发表于 2016-11-8 22:13
谢谢楼上的，这个找不到表格中的内容

你别混淆概念，好不？表格中的每一个单元格有且唯一有一个“单元格结束符”，不是你说的普通回车符。

honey_bee

请问楼上的，vba如何处理呢？

duquancai

honey_bee 发表于 2016-11-9 20:30
请问楼上的，vba如何处理呢？

写正则表达式。。。。。

duquancai

honey_bee 发表于 2016-11-9 20:30
请问楼上的，vba如何处理呢？

非常简单，但是我不想给你写代码。

liuyedao1

查找框内输入*^1,勾选突出显示及通配符，点查找全部。

honey_bee

谢谢楼上的，这个不行的。

duquancai

1. Sub shishi()
   
2.     Dim rang As Range, n&, mt
   
3.     Set rang = ActiveDocument.Content
   
4.     With CreateObject("VBScript.Regexp")
   
5.         .Global = True
   
6.         .Pattern = "\x0b([^\x0b\r]*)\r"
   
7.         For Each mt In .Execute(rang)
   
8.             MsgBox mt.submatches(0)
   
9.         Next
   
10.     End With
    
11. End Sub

复制代码

伽马一路跑

帮顶一个！！

honey_bee

谢谢17楼的大侠，不过我的初衷是把这些内容一次性全部改成红色的字体。我不会vba，所以你这个能够做到一句句都选择下来，但我不知道如何实现字体颜色的改变。
无论如何，谢谢

duquancai

honey_bee 发表于 2016-11-13 21:20
谢谢17楼的大侠，不过我的初衷是把这些内容一次性全部改成红色的字体。我不会vba，所以你这个能够做到一句 ...

1. Sub Word文档中修改格式()
   
2.    Dim i As Paragraph, mt, oRang As Range, n%, m%
   
3.    With CreateObject("vbscript.regexp")
   
4.       .Pattern = "\x0b([^\x0b\r]*)\r"
   
5.       .Global = True
   
6.       For Each i In ActiveDocument.Paragraphs
   
7.          For Each mt In .Execute(i.Range.Text)
   
8.             m = mt.FirstIndex: n = mt.Length
   
9.             Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
   
10.             oRang.Font.ColorIndex = wdRed
    
11.          Next
    
12.       Next
    
13.    End With
    
14. End Sub

复制代码