作者：绿色风
分类：
时间：2022-08-18
浏览：107
楼主
monvzhilei |
可以弄出光标到底在那个段落。请测试，会有提示的哦。
- Sub 测试()
- Dim myRange As Range
- Selection.Expand (wdParagraph)
- Set myRange = Selection.Range
- Dim para As Paragraph
- Dim i As Integer
- i = 1
- For Each para In ActiveDocument.Paragraphs
- If myRange = para.Range Then
- MsgBox "当前光标在第" & i & "段"
- Selection.HomeKey unit:=wdLine
- Exit Sub
- End If
- i = i + 1
- Next para
- End Sub
|
2楼
monvzhilei |
比较好的代码是下面这个，期待更加好的哦。
- Sub SelParID()
- Dim n As Integer
- If Selection.Type = wdSelectionIP Then
- Selection.MoveDown wdParagraph, 1, True
- n = ActiveDocument.Range(Me.Range.Start, Selection.Range.End).Paragraphs.Count
- Selection.Collapse wdCollapseStart
- MsgBox n
- Else
- MsgBox ActiveDocument.Range(Me.Range.Start, Selection.Range.End).Paragraphs.Count
- End If
- End Sub
|
3楼
完美 |
还可以用这个：- Sub 测试()
- Dim n As Long
- If Len(Selection.Paragraphs(1).Range) < 2 Then
- n = 1
- End If
- Selection.MoveDown wdParagraph, 1, wdExtend
- Selection.StartOf wdStory, wdExtend
- n = n + Selection.Range.ComputeStatistics(wdStatisticParagraphs)
- MsgBox n
- End Sub
|
4楼
完美 |
可以统计文档内有空白段落的代码：- Sub 显示光标处段落的顺序号()
- Dim n As Long
- Dim para As Paragraph
- Selection.MoveDown wdParagraph, 1, wdExtend
- Selection.StartOf wdStory, wdExtend
- For Each para In Selection.Paragraphs
- If Len(para.Range) < 2 Then
- n = n + 1
- End If
- Next para
- n = n + Selection.Range.ComputeStatistics(wdStatisticParagraphs)
- MsgBox n
- End Sub
|
5楼
monvzhilei |
代码和您的 网名一样完美啊。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一