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

aizai2006nian

413191246se 发表于 2018-3-27 11:15
* 楼主，你的上一个问题，我也写了代码，有空看看。
链接：http://club.excelhome.net/thread-1403163-3-1 ...

“VBAWD11.chm”方便分享一下吗？

aizai2006nian

413191246se 发表于 2018-3-27 11:15
* 楼主，你的上一个问题，我也写了代码，有空看看。
链接：http://club.excelhome.net/thread-1403163-3-1 ...

《WORD查找和替换实例64例》一定好好研究。

aizai2006nian

aizai2006nian 发表于 2018-3-27 11:59
《WORD查找和替换实例64例》一定好好研究。

感觉office深不可测，原来觉得很简单一个软件，越用越觉得功能强大，无边无际。

413191246se

* 楼主，WORD VBA 其实比 EXCEL VBA 容易得多，也方便使用。学习 VBA 最好的途径是多多录制宏，在录制宏的基础上，逐渐学会编辑 VBA 语句，掌握 VBA 编程知识。
* 我愿意分享《微软官方 VBA 帮助》，这样吧，你给我写个电子邮件，我发给你吧，本坛传不上来。
* 我的邮箱：
ln1400014884爱它163.com
* 忘了，还有一本PDF电子书，叫：《VBA从入门到精通》（第二版），我也可以给你。

duquancai

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

根据你提供的附件来说，可以用如下代码实现：

1. Sub test()
   
2.     Dim mt, reg As Object, aDoc As Document
   
3.     Set aDoc = ActiveDocument
   
4.     Set reg = CreateObject("vbscript.regexp")
   
5.     reg.Global = True: reg.MultiLine = True
   
6.     reg.Pattern = "^eng"
   
7.     For Each mt In reg.Execute(aDoc.Content.Text)
   
8.         With aDoc.Range(mt.FirstIndex, mt.FirstIndex).Paragraphs(1).Range
   
9.             .Bold = True
   
10.             .Italic = True
    
11.             .Font.Underline = 1
    
12.         End With
    
13.     Next
    
14.     MsgBox "处理完毕！！！！！！！！！！！！！！！！！", 0 + 48
    
15. End Sub

复制代码

aizai2006nian

duquancai 发表于 2018-3-27 22:32
根据你提供的附件来说，可以用如下代码实现：

多谢！大神！