如何选择第一页的第一个汉字到下一个空段之间的文字?

小声说话666 · 发表于 2021-3-27 16:16

自动判断文章大标题，
如何选定第一页的第一个汉字到下一个空段之间的文字.(如有文号需跳过)

试过以下代码如遇空行将不能准确选择到第一汉字。
ActiveDocument.Words(1).Select 没有空行时,选中第一个字. 有空行时选定第一个空行。而没选择汉字。
ActiveDocument.Sentences(1).Select
ActiveDocument.Paragraphs(1).Select

求大神代码.

413191246se · 发表于 2021-3-28 00:05

* 楼主，请将代码复制到空白文档后，全选，剪切，再粘贴到 VBE 中即可。

Sub test()
With Selection
.HomeKey 6
Do While .Text = vbCr Or .Paragraphs(1).Range Like "*〔20??〕*号*"
.Move 4
Loop
Do
.MoveEnd 4
Loop Until .Next.Text = vbCr
.Font.ColorIndex = wdRed
End With
End Sub

复制代码

小声说话666 · 发表于 2021-3-28 08:43

413191246se 发表于 2021-3-28 00:05
* 楼主，请将代码复制到空白文档后，全选，剪切，再粘贴到 VBE 中即可。

非常感谢大神的代码。

能在前边加上一句吗？
IF 文章只有一段文字且最后无空段 then exit sub最好了，（文章只有一段文字且最后无空段这个我不会写成代码）

追加一个问题。如何在处理过标题后，以目前选区下的空行为开始，到第一个冒号结束，设置主送。（把如下：方面：结尾的段落排除）

说实话，想象中我想用 range 设置选区（主要是不会用Range设置开始结束）。我还想用这代码，改造一下用在附件后边大标题，真心话看不懂这些代码的意思，无从下手了。

再次感谢大神，期盼中。

413191246se · 发表于 2021-3-29 23:40

* 新人朋友，你好！——大神不敢当！略会 VBA 皮毛而已。请删除旧 test 宏，还是先复制到空白文档后再粘贴到 VBE 中（因为如果是 Win10-64位系统，不这样做，代码如果含有中文字符会是乱码）。
* 另外，如果你想编制有关公文自动排版方面的宏，应该提供真实样例附件才好（而不是提供一些这些“敏捷的狐狸”），但关键字要处理一下。
* 你要求的“文章只有一段文字，且最后无空段”这点无法理解，因为新建文档即使只有一个回车符，在 VBA 中也是一个段落。

Sub test()
With Selection
.HomeKey 6
Do While .Text = vbCr Or .Paragraphs(1).Range Like "*〔20??〕*号*"
.Move 4
Loop
Do
.MoveEnd 4
Loop Until .Next.Text = vbCr
.Font.ColorIndex = wdRed
Do
.Move 4
Loop Until .Paragraphs(1).Range Like "*[：:]?"
With .Paragraphs(1).Range
.Characters.Last.Previous.Text = "："
If .ComputeStatistics(1) < 3 Then
.Font.Color = wdColorPink
With .ParagraphFormat
.CharacterUnitFirstLineIndent = 0
.FirstLineIndent = CentimetersToPoints(0)
End With
End If
End With
End With
End Sub

复制代码

小声说话666 · 发表于 2021-3-31 00:33

413191246se 发表于 2021-3-29 23:40
* 新人朋友，你好！——大神不敢当！略会 VBA 皮毛而已。请删除旧 test 宏，还是先复制到空白文档后再粘贴 ...

再次感谢大神的代码。
说实话是看不懂。想抄抄改改也无从下手

。

请问大神能注释一下代吗？
do while 怎么设置退出。如果只有一段文字，或没有冒号结尾时会陷入死机状态。
.Paragraphs(1) 是代表第一段吗？

413191246se · 发表于 2021-3-31 15:09

* 楼主，你好！你现在应该打好基础，是否学习过《微软官方VBA帮助文档》VBAWD10.CHM 呢？
* 如果没有学习过，试试能否下载它学习一下，这是我分享的：
https://share.weiyun.com/OPMRJhyJ

413191246se · 发表于 2021-4-1 00:48

还有：https://share.weiyun.com/8T8MDsmf

小声说话666 · 发表于 2021-4-2 18:07

感谢分享。
再次感谢。

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

[求助] 如何选择第一页的第一个汉字到下一个空段之间的文字?