開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服
首頁(yè)
好書
留言交流
下載APP
聯(lián)系客服
2019.05.19
今天和大家分享,獲取特定字符串所在的段落索引,也就是特定字符在第幾段。
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
結(jié)果如下:
微信登錄中...請(qǐng)勿關(guān)閉此頁(yè)面