求助各位大神，关于利用Word宏定位到开头字母相同的行并修改格式

aizai2006nian

求助各位大神，利用Word宏定位到开头字母相同的行并修改格式。

各位大神：
      附件文档中基本上每一行都是有eng或chs开头的，如何利用宏一次把eng开头的行加粗、倾斜、加下划线。其实就是我不想一行一行选，写个代码，直接运行搞定。

相见是缘8

是这样的？

aizai2006nian

相见是缘8 发表于 2018-3-27 08:54
是这样的？

是的！但是我没见有代码啊！

413191246se

1. Sub eng_chs加粗倾斜()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If i.Range Like "[eE]ng*" Or i.Range Like "[cC]hs*" Then
   
5.             With i.Range.Font
   
6.                 .Bold = True
   
7.                 .Italic = True
   
8.                 .Color = wdColorRed '红色
   
9.             End With
   
10.         End If
    
11.     Next
    
12.     MsgBox "处理完毕！！！！！！！！！！！！", 0 + 48
    
13. End Sub

复制代码

aizai2006nian

413191246se 发表于 2018-3-27 09:21

大神，收下我的膝盖吧！

相见是缘8

aizai2006nian 发表于 2018-3-27 09:17
是的！但是我没见有代码啊！

四楼 413191246se 大神，以给了代码，我就不给了，他的比我的好！

413191246se

请起，请起——楼主，你上一个问题，我也回答了，用VBA代码和直接在WORD中查找替换效果是一样的，都是使用通配符，因为数据是有规律的。

aizai2006nian

相见是缘8 发表于 2018-3-27 09:46
四楼 413191246se 大神，以给了代码，我就不给了，他的比我的好！

     知道的越多，应用的越好，其实VBA就是一个批量操作执行加只能识别的附加程序，如果Word本身的功能不熟悉，学会VBA也没有用，就像拥有绝世第一好剑，却没有半点武功，随便遇上个武林中人还是败下阵来。
     就像那个通用匹配符功能我都不知道，所以在VBA中我写不出来。

相见是缘8

aizai2006nian 发表于 2018-3-27 10:19
知道的越多，应用的越好，其实VBA就是一个批量操作执行加只能识别的附加程序，如果Word本身的功能不 ...

我也一样，接触了 VBA 几个月，对它还是一窍不通，我的体会是：它不是一二天就可学会的，只能是慢慢学！

413191246se

* 楼主，你的上一个问题，我也写了代码，有空看看。
链接：http://club.excelhome.net/thread-1403163-3-1.html
* 多看看 VBA 微软官方帮助，VBAWD11.chm，只有 3MB大小。
* 有空看看 tangqingfu兄的《WORD查找和替换实例64例》，很有帮助。