word vba 怎么选择每段的第一行

milertom · 发表于 2009-5-16 02:42

word vba 怎么选择每段的第一行

ActiveDocument.Paragraphs(1) 第一段的全部文字，我只要第一行的文字呢

有点急，就发帖求助了，大家指点一下了

wjhere · 发表于 2009-5-16 06:34

sub test()
Dim L As Long
L = ActiveDocument.Paragraphs(2).Range.Start
Word.ActiveDocument.Range(L, L).Select
Selection.MoveEnd Unit:=wdLine, Count:=1
end sub
可能还有更好的方法，我也想学。

milertom · 发表于 2009-5-21 11:17

找到了哦
MsgBox ActiveDocument.Paragraphs(2).Range.Sentences(1)

fangyizu · 发表于 2009-5-21 14:39

呵呵，“MsgBox ActiveDocument.Paragraphs(2).Range.Sentences(1)”显示的是第一句，而不是第一行。

milertom · 发表于 2009-5-21 23:52

恩。是滴。我还一直幻想会有个什么line属性，汗一个

一知半解2011 · 发表于 2011-10-26 20:27

作为新手，逛了几天论坛，惊觉VBA能如此方便快捷在EXCEL、WORD中解决很多之前以为不可能做到的事，强烈想学VBA,目前完全看不懂，太佩服各位老师了

misteryanglan · 发表于 2016-10-12 11:27

wjhere 发表于 2009-5-16 06:34
sub test()
Dim L As Long
L = ActiveDocument.Paragraphs(2).Range.Start

看到这段代码，总算解决WORD文档中任意定义range的问题了！谢谢！

13907933959 · 发表于 2016-10-25 08:45

本帖最后由 13907933959 于 2016-10-25 11:37 编辑

一次查找到 Word 文档、每段的第一行，这个还真难！

QQ214189912 · 发表于 2016-10-25 11:05

Sub 循环每一段落_选中或返回第一行() '对于Word包含图形和表格不好处理
Dim tempPar As Paragraph, myLine As Line
For Each tempPar In ActiveDocument.Paragraphs
Set myLine = ActiveWindow.ActivePane.Pages(tempPar.Range.Information(wdActiveEndPageNumber)).Rectangles(1).Lines(tempPar.Range.Information(wdFirstCharacterLineNumber))
If tempPar.Range <> Chr(13) Then
myLine.Range.Select
MsgBox myLine.Range.Text
End If
Next
End Sub

复制代码

13907933959 · 发表于 2016-10-25 15:44

本帖最后由 13907933959 于 2016-10-25 16:01 编辑

QQ214189912 发表于 2016-10-25 11:05

前辈好！

如要将Word 文档每段的第一行，一次全部查找到，前辈可否有办法？请前辈赐教！谢谢！

		自动登录	找回密码
密码			免费注册

[求助] word vba 怎么选择每段的第一行