发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
今天和大家分享,获取特定字符串所在的段落索引,也就是特定字符在第几段。
VBA代码如下:
Sub pp()With ActiveDocumentFor i = 1 To .Paragraphs.CountIf InStr(.Paragraphs(i), '疑是地上霜') ThenMsgBox iEnd IfNextEnd WithEnd Sub
Sub pp()
With ActiveDocument
For i = 1 To .Paragraphs.Count
If InStr(.Paragraphs(i), '疑是地上霜') Then
MsgBox i
End If
Next
End With
End Sub
结果如下:
来自: 东西二王 > 《Word》
0条评论
发表
请遵守用户 评论公约
一段关于Word 文档处理的很有用的程序
一段关于 Word 文档处理的很有用的程序。Dim EveryChar As Variant ''每个字符Dim P As Paragraph ''段落For Each P In ActiveDocument.Paragraphs For Each EveryChar In P.Range.Cha...
VBA提高篇35 VBA操作Word/PPT/Access_CreateObject/GetObject_getobject vba
VBA提高篇35 VBA操作Word/PPT/Access_CreateObject/GetObject_getobject vba 文章目录。Sub importFromWord2() Dim i As Long, doc As o...
VBA批量删除word中重复段落
我用两种段落进行测试第一种段落是3行,该段落重复2次第二种段落是1行,该段落重复3次方案一:这时,有两个变量,定义为段落类型,p1和P...
vba调用Word对话框的代码
vba调用Word对话框的代码。Sub GetDialogs()Dim i As Integer.On Error Resume Next.With Application。ScreenUpdating = False.For i = 1 To 10000.Selection.InsertAfter "对话框" &i ...
VBA操作WORD(一):设置段落的行间距(行距)
Sub 设置段前、段后的间距() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oP As Paragraph Set oP = oDoc.Paragraphs(1) With oP ''''''''段落后面空5...
VBA去除数组元素中的特定字符串
当数组中多个数组元素存在需要剔除的特定字符串时,如数组【"番12茄", "香12蕉", "12小番茄", "12西瓜12", "番茄", "提子12"】,数组元...
Excel单元格内部分字符更改字体颜色突出显示,用这两个技巧就够了!
Excel单元格内部分字符更改字体颜色突出显示,用这两个技巧就够了!原创 荒唐的咩 Excel情报局 1周前收录于话题#Excel205个内容#职场人76个内容#表格50个内容#教育199个内容#Excel基础技巧342个内容。E...
VBA Word将文本从特定Word复制到文档结尾
VBA Word将文本从特定Word复制到文档结尾。我需要从特定的单词(比如说它是特定的要求)复制文本,直到文档结束。我已经准备了可能解决这个问题的代码,但我不知道需要添加什么。文本才能让它如我所愿...
将word中的图片批量旋转180度(2014-05-30 17:50:43)
将word中的图片批量旋转180度(2014-05-30 17:50:43)不过,这个VBA代码得到的结果,只能满足批量旋转图片的目的,但旋转之后,图片的位置会发生变动,而且只对所有的嵌入式图片有效。IncrementRotation ...
微信扫码,在手机上查看选中内容