循环语句简化代码

ke3088 · 发表于 2017-5-16 10:08

删除空白段落的代码如下：
Sub aaaaa()
nmText = 10
If Len(Trim(ActiveDocument.Paragraphs(nmText - 4).Range)) - 1 < 1 Then
   ActiveDocument.Paragraphs(nmText - 4).Range.Delete '删除行
End If
If Len(Trim(ActiveDocument.Paragraphs(nmText - 5).Range)) - 1 < 1 Then
   ActiveDocument.Paragraphs(nmText - 5).Range.Delete '删除行
End If
If Len(Trim(ActiveDocument.Paragraphs(nmText - 6).Range)) - 1 < 1 Then
   ActiveDocument.Paragraphs(nmText - 6).Range.Delete '删除行
End If
If Len(Trim(ActiveDocument.Paragraphs(nmText - 7).Range)) - 1 < 1 Then
   ActiveDocument.Paragraphs(nmText - 7).Range.Delete '删除行
End If
If Len(Trim(ActiveDocument.Paragraphs(nmText - 8).Range)) - 1 < 1 Then
   ActiveDocument.Paragraphs(nmText - 8).Range.Delete '删除行
End If
End Sub
求助各位大神，用循环语句简化以上代码。谢谢

duquancai · 发表于 2017-5-16 10:35

Sub shishi()
Dim p As Range
Set p = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
If p = ActiveDocument.Content Then
      k = MsgBox("要进行全文处理吗？", vbYesNoCancel + vbQuestion, "全文处理判断")
      If k <> vbYes Then Exit Sub
End If
With p.Find
      .Execute "^13{2,}", , , 1, , , , 0, , "^p", 2
End With
End Sub

ke3088 · 发表于 2017-5-16 11:37

duquancai 发表于 2017-5-16 10:35
Sub shishi()
Dim p As Range
Set p = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Con ...

谢谢，duquancai兄！不用全文搜索，允许其他地方有空白段，只是在nmText - 4到nmText - 8段落间处理。

duquancai · 发表于 2017-5-16 12:38

ke3088 发表于 2017-5-16 11:37
谢谢，duquancai兄！不用全文搜索，允许其他地方有空白段，只是在nmText - 4到nmText - 8段落间处理。

你选择后再运行！！！！！

kqbt · 发表于 2017-5-16 13:09

本帖最后由 kqbt 于 2017-5-16 13:14 编辑

在源代码上修改一下，便于对循环的最基本理解：
nmText = 10
nmNum = 4
do while nmNum <= 8
      If Len(Trim(ActiveDocument.Paragraphs(nmText - nmNum).Range)) - 1 < 1 Then
         ActiveDocument.Paragraphs(nmText - nmNum).Range.Delete '删除行
      End If
      nmNum = nmNum + 1
loop

但是从你源代码来看，每删除一个段落之后，因为 nmNum 这个数值是 + 1 递增的，那么就会有一个段落被跳过。

ke3088 · 发表于 2017-5-16 15:11

duquancai 发表于 2017-5-16 12:38
你选择后再运行！！！！！

谢谢，duquancai兄！我并不知道nmText是第几段，nmText在这里是假设的，真正环境是由代码确定的，因此不能选择第几段。

ke3088 · 发表于 2017-5-16 15:13

kqbt 发表于 2017-5-16 13:09
在源代码上修改一下，便于对循环的最基本理解：
nmText = 10
nmNum = 4

kqbt兄，谢谢！我试试，先谢为敬。

ke3088 · 发表于 2017-5-16 15:25

kqbt兄，谢谢！已成，就是这个效果

ke3088 · 发表于 2019-5-27 00:10

kqbt 发表于 2017-5-16 13:09
在源代码上修改一下，便于对循环的最基本理解：
nmText = 10
nmNum = 4

将您的代码修改如下：
'删除最后空白行
Do While Len(ActiveDocument.Paragraphs.Last.Range) = 1
ActiveDocument.Paragraphs.Last.Range.Delete
Loop
一直这样用都没有问题，今天有问题出现，就是最后一行是空白行，上一行是表格时，运行后出现死循环。
怎么修改为好？谢谢

daibao88 · 发表于 2019-5-27 08:24

for next -1 倒序

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

[已解决] 循环语句简化代码