关于查找“行”的问题

过客fppt · 发表于 2024-8-8 18:04

wytsxh 发表于 2024-8-8 17:18
多谢朋友！
这是我的操作步骤，也不知道哪里有问题？
打开word→开发工具→宏→输入我自己编的名称“查 ...

大概是的，不过你可以用录制宏的方法生成几行代码，这样相当于它自动帮你创建了模块，直接把网站代码复制到模块中。还有就是上面老师的代码是检查每一个段落，符合对应字数要求的就统计数量。可能不是你所想象中的检查每一行

wytsxh · 发表于 2024-8-8 18:37

多谢朋友一再热心帮助！
图片是我后来才补充的，怪我自己没说清楚，所以老师提供的代码没能达到预期的效果，这完全是我的问题，在此再次向“gwjkkkkk”老师表示感谢！

过客fppt · 发表于 2024-8-9 10:00

这样应该可以了

wytsxh · 发表于 2024-8-9 11:30

过客fppt 发表于 2024-8-9 10:00
这样应该可以了

   多谢老师！
   我例举的有一类格式没看到，具体情况请看图(图中红色部分的双引号也可以改为单引号)。但我想应该没问题，请老师试一下。
   另外我自己水平有限，有了方法也不一定会用，实在无奈！不过通过老师的努力，使我知道了我的想法不是异想天开，而是能够实现的，这就足够了。
   不管怎么样，再次向一再提供帮助的“过客fppt”老师表示衷心的感谢！

413191246se · 发表于 2024-8-9 14:03

Sub a0809_Find_Chinese_Punc()
Dim oLen&, oExt&
With Selection
.HomeKey 6
With .Find
.ClearFormatting
.Text = "[一-﨩][。：；，、！？…—.:;,\!\?]@^13"
.Replacement.Text = ""
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
oLen = Len(.Text)
.HomeKey
.Extend vbCr
oExt = Len(.Text)
If oLen = oExt Then
.Range.HighlightColorIndex = wdBrightGreen
.Font.Color = wdColorRed
Else
.EndKey
End If
End With
Loop
End With
.HomeKey 6
End With
End Sub

复制代码

过客fppt · 发表于 2024-8-9 14:34

wytsxh 发表于 2024-8-9 11:30
多谢老师！
我例举的有一类格式没看到，具体情况请看图(图中红色部分的双引号也可以改为 ...

你可以将代码弄到VBE中，自己运行一下即可

wytsxh · 发表于 2024-8-9 15:04

过客fppt 发表于 2024-8-9 14:34
你可以将代码弄到VBE中，自己运行一下即可

老师，你说将“代码弄到VBE中”，代码在哪里？能指点下吗？

过客fppt · 发表于 2024-8-9 15:55

wytsxh 发表于 2024-8-9 15:04
老师，你说将“代码弄到VBE中”，代码在哪里？能指点下吗？

请问你找过视频看了吗，几句话是教不会的

wytsxh · 发表于 2024-8-9 17:28

过客fppt 发表于 2024-8-9 15:55
请问你找过视频看了吗，几句话是教不会的

我是找的一些文字类的资料看的操作步骤，视频资料没看过，但我想都一样吧。
另外请问，老师所说的代码在哪里？怎么没看到？

wytsxh · 发表于 2024-8-9 18:53

413191246se 发表于 2024-8-9 14:03

   多谢老师帮助，辛苦！
   但代码运行后不能完全达到预期效果，请看图。图中所有“情”字所在的“行”我想让它都能显示出来。
   图中只是几个示例，可能还有其它样式。简单说，只要这一“行”只有一个汉字，那么这个字的后面不管连接什么标点符号，也不管连接几个标点符号，都希望它能显示出来。

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

[求助] 关于查找“行”的问题