如何让word宏循环运行?

lichuang6

我录制了一段代码,想实现自动为word文字分段,并插入自己需要插入的内容.

如果设置宏运行多少次的话,因为文字的字数是随机的,没办法以文字的多少然后预算需要运行多少次.

所以想看能不能设置自动循环运行宏到文章的结尾?

下面上附件,附件内有我录制好的单次运行的宏

插入.rar (8.03 KB, 下载次数: 47)

2012-9-11 14:32 上传

点击文件名下载附件

lichuang6

求助啊 {:soso_e105:}

pemp

试试下面代码

1. Sub charu()
   
2.     Dim n As Long
   
3.     n = ActiveDocument.Sentences.Count
   
4.     For i = 1 To n
   
5.         Selection.MoveRight unit:=wdSentence, Count:=1
   
6.         Selection.TypeParagraph
   
7.         Selection.MoveRight unit:=wdCharacter, Count:=10
   
8.         Selection.TypeText Text:="百度"
   
9.     Next
   
10. End Sub

复制代码

lichuang6

pemp 发表于 2012-9-12 21:33
试试下面代码

感谢pemp的帮助
这样是可以循环,但是并不会到文章的结尾停止,而是文章结束了,代码还在一直运行,导致后面都是在空循环..

lichuang6

还有没有人愿意帮我的?

kqbt

这样试试：

1. Sub charu()
   
2. '
   
3. ' charu Macro
   
4. ' 宏在 2012-9-11 由 User 创建
   
5. '
   
6.     Selection.HomeKey wdStory
   
7.     Do While Selection.End <> ActiveDocument.Content.End - 1
   
8.    
   
9.         '……这里加入你原来的代码
   
10.    
    
11.     Loop
    
12. End Sub

复制代码

dxxueer

kqbt 发表于 2012-9-15 16:59
这样试试：

这是个死循环，没法中止。