如果取第一行前4个字符

cxffxc · 发表于 2004-5-13 19:48

在VBA中，如何取一篇文档首行的前4个字符，并把它们保存在一个变量中。

守柔 · 发表于 2004-5-14 05:19

请参考：

Sub test() Dim c As String c = ActiveDocument.Range(Start:=0, End:=4) MsgBox c End Sub

cxffxc · 发表于 2004-5-15 19:21

谢谢

cofe2000 · 发表于 2004-5-16 11:19

请问如果要取得文章的题目该如何写呢？

题目的长度不固定

守柔 · 发表于 2004-5-17 05:05

请参考：

Sub Gettitle() Dim title As Range Set title = ActiveDocument.Paragraphs(1).Range MsgBox title End Sub

henterwu · 发表于 2004-5-26 13:25

如果是第3行的前4个字符，仿佛不能依此类推了。

能问一下，该怎么写？

再次感谢！！！

守柔 · 发表于 2004-5-26 16:15

Sub GetThirdline() Dim Range1 As Long, Range2 As Long, MyRange As Range With Selection .HomeKey Unit:=wdStory .MoveDown Unit:=wdLine, Count:=2 Range1 = .Start .EndKey Unit:=wdLine Range2 = .Start End With Set MyRange = ActiveDocument.Range(Start:=Range1, End:=Range2) MsgBox MyRange End Sub 'Word中的行号问题是有些问题,不是很好搞,以上代码迂回了一下.

henterwu · 发表于 2004-5-26 18:46

"行号问题"应该是皮。盖的错。

谢谢守柔！！！

cofe2000 · 发表于 2004-5-26 21:22

谢谢

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