作者:绿色风
分类:
时间:2022-08-18
浏览:97
楼主 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总版主之一