求助：如何才能更加精确的查找执行呢？

bylandi · 发表于 2024-12-15 01:18

本帖最后由 bylandi 于 2024-12-16 12:53 编辑

我想只想查找段首的序号（序号中的数值为1~2位数），用来匹配样式。
可是，如果段落中包含了数字，那他也会被识别到，并且被执行。

大侠们能否指点，如何解决呢？

还有，如何才能不识别表格中的数字呢？

Sub 自动样式()
Dim i As Paragraph
With ActiveDocument
For Each i In .Paragraphs
With i.Range
If .Text Like "*.*.*.*.*" Then
.Style = wdStyleHeading5
ElseIf .Text Like "*.*.*.*" Then
.Style = wdStyleHeading4
ElseIf .Text Like "*.*.*" Then
.Style = wdStyleHeading3
ElseIf .Text Like "*.*" Then
.Style = wdStyleHeading2
End If
End With
Next
End With
End Sub

复制代码

自动样式.rar (24.28 KB, 下载次数: 9)

蜀中草莽 · 发表于 2024-12-15 08:10

要么用正则匹配要么就现在有数字的段落前面加一个特殊符号在匹配

bylandi · 发表于 2024-12-15 12:18

我是小白，不太懂这些呢，能否帮直接帮我修改代码呢？

蜀中草莽 · 发表于 2024-12-15 14:13

bylandi 发表于 2024-12-15 12:18
我是小白，不太懂这些呢，能否帮直接帮我修改代码呢？

可以试一下

bylandi · 发表于 2024-12-15 17:10

本帖最后由 bylandi 于 2024-12-15 18:35 编辑

十分感谢您的帮助。
就是这个效果，感谢。

bylandi · 发表于 2024-12-15 18:03

本帖最后由 bylandi 于 2024-12-15 19:53 编辑

用短文章测试没有问题
但是用于长篇文章，发现存在以下2个问题

1、部分章节的序号有乱，本来是第3级的，却匹配成了2级的样式
2、部分序号没有删除完整，后面还存在多余数字。

还有个问题，使用Information(12) 来跳过表格，会造成运行十分慢，有否别的方案呢？

未标题-1.png

以下是调整后的代码（您原代码的大纲级别与样式级别差了一个等级）

Sub A自动样式()
Dim 段落 As Paragraph, 正 As Object, i As Byte, 字符 As Long, 范围 As Range
Set 正 = CreateObject("vbscript.regexp")
arr = Array("^\d+\.\d+[^\.]", "^\d+\.\d+\.\d+[^\.]", "^\d+\.\d+\.\d+\.\d+[^\.]", "^\d+\.\d+\.\d+\.\d+\.\d+[^\.]")
brr = Array(wdStyleHeading2, wdStyleHeading3, wdStyleHeading4, wdStyleHeading5)
For i = LBound(arr) To UBound(arr)
With 正
.Pattern = arr(i)
.Global = True
.IgnoreCase = False
.MultiLine = True
For Each 段落 In ActiveDocument.Paragraphs
If .Test(段落.Range.Text) Then
'If 段落.Range.Information(12) Then GoTo 1
段落.Range.ParagraphFormat.Style = brr(i)
'=======删除原来的编号=======
Set match = .Execute(段落.Range.Text)(0)
字符 = Len(match)
Set 范围 = 段落.Range
范围.SetRange 范围.Start, 范围.Start + 字符 - 1
范围.Delete
End If
'1:
Next
End With
Next
End Sub

复制代码

蜀中草莽 · 发表于 2024-12-17 15:40

bylandi 发表于 2024-12-15 18:03
用短文章测试没有问题
但是用于长篇文章，发现存在以下2个问题

再试一下吧还有问题的话自己处理一下不知道文档里面会有什么问题

bylandi · 发表于 2024-12-21 18:18

近2天工作比较忙，十分感谢您的耐心指导和帮助。

413191246se · 发表于 2024-12-21 19:35

楼主，下面是本坛大神 sylun 老师编写的“跳过表格”的代码，速度不错，请试试！

Sub SkipTable()
Dim r(), n&
'Skip-Table/Code by sylun
With ActiveDocument
ReDim r(.Tables.Count + 1)
If .Tables.Count = 0 Then
Set r(1) = .Content
Else
For n = 1 To .Tables.Count
If n = 1 Then
Set r(n) = .Range(0, .Tables(n).Range.Start)
Else
Set r(n) = .Range(.Tables(n - 1).Range.End, .Tables(n).Range.Start)
End If
Next
Set r(n) = .Range(.Tables(n - 1).Range.End, .Content.End)
End If
End With
For n = 1 To UBound(r)
With r(n)
.Select
Selection.Font.Color = wdColorRed
End With
Next
End Sub

复制代码

bylandi · 发表于 2024-12-23 09:23

感觉您的回复
您的贴子我也都看了好多了，感谢您为大家做的无私奉献。

		自动登录	找回密码
密码			免费注册

[求助] 求助：如何才能更加精确的查找执行呢？

评分

最新热点 /1