怎么用VBA把含有“一、二、三、四、”这几行字设成黑体？

飞雪520

见附件： 电厂脱硫工作总结.rar (8.74 KB, 下载次数: 10)

2018-9-18 10:09 上传

点击文件名下载附件

bob_lxp

顶你，学习，坐等大神

飞雪520

自己顶个自己顶个

chxw68

飞雪520 发表于 2018-9-18 17:02
自己顶个自己顶个

VBA代码主要是完成大量重复性工作的，如果这个偶尔设定一次，就没必要使用VBA了。

飞雪520

chxw68 发表于 2018-9-18 17:10
VBA代码主要是完成大量重复性工作的，如果这个偶尔设定一次，就没必要使用VBA了。

我就是想用来完成大量重复性工作的

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim reg As New RegExp
   
4.   With reg
   
5.     .Pattern = "^[一二三四五六七八九十]+、.*$"
   
6.   End With
   
7.   With ThisDocument
   
8.     For i = 1 To .Paragraphs.Count
   
9.       ss = .Paragraphs(i).Range.Text
   
10.       If reg.test(ss) Then
    
11.         With .Paragraphs(i).Range
    
12.           With .Font
    
13.             .Name = "黑体"
    
14.           End With
    
15.         End With
    
16.       End If
    
17.     Next
    
18.   End With
    
19. End Sub
    

复制代码

chxw68

代码在WORD文件中，仅供参考。

飞雪520

chxw68 发表于 2018-9-18 17:41
代码在WORD文件中，仅供参考。

谢谢chxw老师，只是提示说“用户类型未定义”是什么意思？

chxw68

是因为正则表达式是后期绑定的。你试试下面代码：

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim reg As Object
   
4.   Set reg = CreateObject("vbscript.regexp")
   
5.   With reg
   
6.     .Pattern = "^[一二三四五六七八九十]+.*$"
   
7.   End With
   
8.   With ThisDocument
   
9.     For i = 1 To .Paragraphs.Count
   
10.     ss = .Paragraphs(i).Range.Text
    
11.     If reg.test(ss) Then
    
12.     With .Paragraphs(i).Range
    
13.       With .Font
    
14.       .Name = "黑体"
    
15.       End With
    
16.     End With
    
17.     End If
    
18.     Next
    
19.   End With
    
20. End Sub
    

复制代码

飞雪520

chxw68 发表于 2018-9-18 18:08
是因为正则表达式是后期绑定的。你试试下面代码：

谢谢，谢谢chxw老师，完美！