大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

word vba 根据字符找段落 返回第二句

Admin | 2016-4-15 10:39:50 | ReadNums | 827 | 标签 Word教程 | 打印本页
     

  要求:遍历文档中的所有段落,看看这些段落是否包含某些特定的字符,如果包含,那么,就返回该段落的第二句。

  关键字:word  vba

  要实现这种功能,得在word中使用vba才可以。下面为大家介绍代码。

  Dim SearchStr
  SearchStr = "特定字符请自行修改"
  For i = 1 To ActiveDocument.Paragraphs.Count
      If (InStr(ActiveDocument.Paragraphs(i).Range.Text, SearchStr) = 0) Then
    
      Else
        MsgBox "出现在第" & i & "段"
        MsgBox ActiveDocument.Paragraphs(i).Range.Sentences.Item(2).Text  '返回该段落的第二个句子,句子是根据句号来区分的
        Exit For
      End If
  Next i

  执行的结果如下图所示。

Word Vba获取句子图1

  注意哦,段落是根据段落标记来划分的,换行符或软回车符号不能代码段落。

  部分代码解释:

  ActiveDocument.Paragraphs.Count 当前文档所有段落

  InStr(ActiveDocument.Paragraphs(i).Range.Text, SearchStr) = 0 如果SearchStr字符包含在该ActiveDocument.Paragraphs(i).Range.Text段落中,那么,返回的数字必大于0


问题未解决:在线咨询我要在线咨询问题

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日