VBA问题，实现换行，并行

suidehan

麻烦大侠编一个宏：

1.检测每段前两个字符是否为“两个数字或者字母组合（如12,1P，M3）”，若是，该段后面的字符是否为汉字，直到出现数字，数字后面若是“(”（半角），就换行，否则什么也不操作。

2.检测将每一段前几个字符不是“教学地点，网址，(，[，四个数字（如1203），两个数字或者字母组合（如12,1P，M3）”这些内容的，若是就将此段的内容加到上一段的段尾，否则，什么也不操作

先谢了

ming0018

结果文档来一份，不然不知道你在说什么。

suidehan

ming0018 发表于 2018-7-25 12:32
结果文档来一份，不然不知道你在说什么。

您好，要求单独谢了一份，谢谢您啦

suidehan

您好，要求单独谢了一份，谢谢您啦

suidehan

拜托拜托各位大侠

ming0018

你给的案例中，第一种情况为无。

ming0018

1. Sub 找两个数字和字母()
   
2.     Dim Rng As Range, doc As Document
   
3.     Set doc = ActiveDocument
   
4.     Set Rng = doc.Content
   
5.    
   
6.     With Rng.Find
   
7.         .MatchWildcards = True
   
8.         .Text = "([0-9a-zA-Z]{2}[一-龥]{1,}[0-9])\("
   
9.         .Replacement.Text = "\1" & Chr(13) & "("
   
10.         .Execute Replace:=wdReplaceAll
    
11.     End With
    
12. End Sub

复制代码

写了一个简单地，但不成熟的，或许会有坑，只启一个引导作用，其它的代码自己想办法写吧。

suidehan

谢谢您了，非常感谢