word 选中带有关键词的段落

asdfghjklzz · 发表于 2020-2-2 18:51

关键词是  【????】
问号是不同的年份数字

如何选中带有上面关键词的段落

求大佬帮忙！以下是我自己录制的宏

在关键词后加 *^13  可以选定关键词到关键词段落末的文本
但是在关键词之前加上  ^13*  就选中了好几段
是什么问题啊？

Sub 录制宏_选中关键词段落()
With Selection.Find
.Text = "【????】*^13"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
End Sub

复制代码

Sub 自己之前弄的()
With ActiveDocument.Content.Find
.Replacement.Font.Name = "黑体"
.Replacement.Font.Size = 16
.Execute "【????】*^13", , , 1, , , , , , , 2
End With
End Sub

复制代码

最后要将带关键词的选中文本设置字体，颜色

选中带关键字的文本.rar (16.47 KB, 下载次数: 32)

asdfghjklzz · 发表于 2020-2-5 00:25

关于这个问题我有了新的想法：

查找关键词
返回关键词所在的段落
改变段落格式

不知道有没有大佬可以告诉我能不能实现这个想法

Sub 关键词所在段落数()
Dim P As Paragraph
For Each P In ActiveDocument.Paragraphs
n = n + 1
If InStr(1, P.Range, "关键词") > 0 Then
MsgBox n
End If
Next
End Sub

复制代码

这个代码可以查询固定关键词
没办法查询带有通配符的

现在想法是查询关键词
输出关键词段落数到数组
循环数组改变格式

<div>Sub <span style='display: inline !important; float: none; background-color: rgb(247, 247, 247); color: rgb(68, 68, 68); font-family: Tahoma,"Microsoft Yahei","Simsun"; font-size: 14px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; overflow-wrap: break-word; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;'>关键词所在段落数_格式</span>()
</div>Dim P As Paragraph
For Each P In ActiveDocument.Paragraphs
n = n + 1
If InStr(1, P.Range, "关键词") > 0 Then
MsgBox n
With ActiveDocument.Paragraphs(n).Range
.Font.Name = "宋体" '字体
.Font.Bold = True '加粗
.Font.Size = 22 '字号
.ParagraphFormat.Alignment = 1 '居中对齐
End With
End If
Next
End Sub

复制代码

现在基本达成我要的效果了
就是关键词是通配符要怎么处理啊？
哪位老师可以帮帮忙啊

相见是缘8 · 发表于 2020-2-5 15:27

本帖最后由相见是缘8 于 2020-2-5 15:29 编辑

Sub 自()
With ActiveDocument.Content.Find
      .Replacement.Font.Name = "黑体"
      .Replacement.Font.Size = 16
      .Replacement.Font.Color = RGB(255, 0, 0)
      .Execute "（([一二三四五六七八九十]{1,})）*(【[0-9]{4}】)*^13", , , 1, , , , , , "", 2
End With
End Sub

daibao88 · 发表于 2020-2-5 17:15

设置一下MatchWildcards=True

asdfghjklzz · 发表于 2020-2-8 10:46

基本达成

关键词还是没办法查找通配符

Sub 选中带关键词的段落并设置格式()
Application.ScreenUpdating = False '禁止刷新
Dim P As Paragraph
gjc = InputBox("输入关键词", "提示", "关键词")
MatchWildcards = True
For Each P In ActiveDocument.Paragraphs
n = n + 1
If InStr(1, P.Range, gjc) > 0 Then
MsgBox "关键词出现在：第" & n & "段"
With ActiveDocument.Paragraphs(n).Range
.Font.Name = "仿宋" '字体
.Font.Size = 16 '字号
.Font.Bold = False '是否加粗
End With
End If
Next
End Sub

复制代码

QQ214189912 · 发表于 2020-2-8 15:37

asdfghjklzz 发表于 2020-2-8 10:46
基本达成

关键词还是没办法查找通配符

Sub test()
Dim mydoc As Document, p As Range, s
If Selection.Type = wdSelectionIP Then
      MsgBox "没选择关键字！": Exit Sub
Else
      s = Selection.Text
End If
Set mydoc = Documents.Add
With ThisDocument.Content.Find
      .ClearFormatting
      .Text = s
      Do While .Execute
            .Parent.Select
         Set p = .Parent.Paragraphs(1).Range.FormattedText
         p.Select
         With mydoc.Range
            .Collapse wdCollapseEnd
            .FormattedText = p
         End With
         .Parent.Move 4
      Loop
End With
End Sub

weiyingde · 发表于 2020-2-10 07:26

QQ214189912 2020-2-8 15:37
Sub test()
Dim mydoc As Document, p As Range, s
If Selection.Type = wdSelectionIP Then

weiyingde · 发表于 2020-2-20 18:20

asdfghjklzz 发表于 2020-2-8 10:46
基本达成

关键词还是没办法查找通配符

完全可行，没有差错呀。

yiyiyicz · 发表于 2022-8-3 17:49

好多年没进来了，这里是提供思路的好地方

yuquandashi · 发表于 2022-8-28 22:27

勾选通配符，查找^13[!^13]@【[0-9]{4}】*^13

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

[求助] word 选中带有关键词的段落

评分