[求助]问一下宏里面如何得知总行数

uzsala

最近要对一些文本作如下处理 原文本： zusammen合起来 Information信息 Herr先生 kommend下一个 Freitag 星期五 abgesprochen已经讲好的 Jahr年 ausklingen逐渐消逝 unser我们的 seminar讨论课 abhalten. Weihnacht圣诞 然后对原文本每行前后加一个符号，处理后如下： $zusammen合起来& $Information信息& $Herr先生& $kommend下一个& $Freitag 星期五& $abgesprochen已经讲好的& $Jahr年& $ausklingen逐渐消逝& $unser我们的& $seminar讨论课& $abhalten.& $Weihnacht圣诞& 为处理方便，写了段宏命令： Sub 代码() Dim N As Byte For N = 1 To 12 Selection.TypeText Text:="$" Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="&" Selection.MoveRight Unit:=wdCharacter, Count:=1 Next End Sub 但是每回处理的文本的总行数都不一样，这回是12行，循环12次 下回是30行，又要修改循环数…… 请问如何得到文本的总行数并转换成循环数？

守柔

第一：一个基本的问题，行与段落是两个概念，请先告诉我们，您到底是要对行还是段落进行操作？

第二个问题，如果是段落，可以使用简单的查找与替换即可以解决，当然用宏也可以，看您具体的需要。而这些，与总段落数没有必然关系，代码的使用看您的功力，没有必要使用这样的代码。

gues1688

我怎么觉得，你这里的示范文本好像每行就是1段。如果不是这样，那每行的长度似乎要基本一样，除非每行都是手工断行。 处理行和处理段落，方法是不一样的。守柔老师这么问，是要弄明白确切意思。最好是传文档上来，以免歧义

[此贴子已经被作者于2005-12-16 21:33:55编辑过]

uzsala

是么

word我是外行，偶尔需要才会用。有些东西讲了我不一定明白。传文档我试过，但往往东西上传了，链接却找不到，头晕那!不过为什么我看这示范文档是一行行的，你觉得会是每行一段，我对行和段的理解是否有歧义？在我看来前后各隔了条空行的就是段，不知你是否也是这样？

其实那段代码昨晚已经找出来了

For N = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines) '循环至文本末

现在不知能有助于理解这段处理了没有

gues1688

以下是引用[I]uzsala[/I]在2005-12-17 4:28:36的发言：[BR]

是么

word我是外行，偶尔需要才会用。有些东西讲了我不一定明白。传文档我试过，但往往东西上传了，链接却找不到，头晕那!不过为什么我看这示范文档是一行行的，你觉得会是每行一段，我对行和段的理解是否有歧义？在我看来前后各隔了条空行的就是段，不知你是否也是这样？

其实那段代码昨晚已经找出来了

For N = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines) '循环至文本末

现在不知能有助于理解这段处理了没有

总行数的表达没错，你的代码前面再加一行Selection.HomeKey wdStory会稍好一点。实现的办法也可以不少，就象： Sub addText() Application.ScreenUpdating = False With Selection .HomeKey wdStory For i = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines) .EndKey wdLine, wdExtend .MoveLeft wdCharacter, 1, wdExtend .Text = "$" & .Text & "#" .GoToNext wdGoToLine Next End With Application.ScreenUpdating = True End Sub 其实这样的问题用代码固然可以，但一样来说可以用“替换”操作来代替

uzsala

佩服！

再问个替换的问题：

我下天桥

这句话可否替换为：

我在天桥下