关于查找“行”的问题

wytsxh

     请教大神，一篇wrod97-2003文档，有没有办法查找符合要求的”行”？

    查找标准：这一行只要只有一个字(任意文字)，那么这个字的后面不管连接什么标点符号(逗号、句号、问号、感叹号、后双引号、后单引号、后书名号……)，都是我要查找的“行”。

    不用知道这些“行”具体在文档的什么位置，只要知道这些“行”到底有多少就行了。
   
    可能是我异想天开了。我自己是挨个数，效率实在太低了，盼望各位大神指导！多谢了！

413191246se

楼主，一个空格，算不算文字？你应该举几个例子才好，或提供个附件。

gwjkkkkk

Sub test()
    Dim Par As Paragraph, n&

    With ActiveDocument
        For Each Par In .Paragraphs
            If Par.Range.Information(wdWithInTable) = False Then
                If Len(Par.Range.Text) > 1 Then n = n + 1
            End If
        Next
    End With
   
    MsgBox n
End Sub

gwjkkkkk

word 宏，请参考。。。

wytsxh

gwjkkkkk 发表于 2024-8-7 19:39
Sub test()
    Dim Par As Paragraph, n&

多谢朋友的指导！
但我电脑方面比较菜，你给的这些英文我要怎么用？
我自己倒是想了个笨办法，给那些需要查找的“行”添加颜色，通过查找颜色，基本也能到达我的要求。但这个方法事先也要先挨个的查找符合要求的“行”以后再添加颜色，跟挨个的数其实没有太大区别。

过客fppt

wytsxh 发表于 2024-8-8 13:38
多谢朋友的指导！
但我电脑方面比较菜，你给的这些英文我要怎么用？
我自己倒是想了个笨办法，给那些需 ...

上面老师给你的是VBA代码也就是宏，你的需求除了用VBA一键解决，应该还可以用文本通配符，建议你百度一下Word中如何使用宏，花几十分钟看视频了解一下

wytsxh

怕没说清楚，上图。两张图中红色的“行”就是需要查找的“行”，一共有10“行”。文字是复制粘贴的不用深究，关键是看要查找的“行”的格式。

wytsxh

过客fppt 发表于 2024-8-8 13:48
上面老师给你的是VBA代码也就是宏，你的需求除了用VBA一键解决，应该还可以用文本通配符，建议你百度一下 ...

多谢老师！
看了那位老师给的方法后，一直在学习，可能是我太笨了，弄了大半天，就连老师编写的宏是否添加进了我的word都不知道。实在头大，继续学习！

过客fppt

wytsxh 发表于 2024-8-8 15:12
多谢老师！
看了那位老师给的方法后，一直在学习，可能是我太笨了，弄了大半天，就连老师编写的宏是否添 ...

在Word中按ALT+F11打开VBE编辑窗口，就可以输入代码。如果是WPS没有VBA的话，先花1分钟安装一个VBA for WPS.exe，在Word中录制宏也可以在VBE中自动生成代码

wytsxh

过客fppt 发表于 2024-8-8 15:56
在Word中按ALT+F11打开VBE编辑窗口，就可以输入代码。如果是WPS没有VBA的话，先花1分钟安装一个VBA for W ...

多谢朋友！
这是我的操作步骤，也不知道哪里有问题？
打开word→开发工具→宏→输入我自己编的名称“查找行”→创建→然后把老师给的那段代码复制以后粘贴进去→关闭