求前辈们帮忙实现这样的“查找替换”

13907933959 · 发表于 2017-5-16 08:16

duquancai 发表于 2017-5-16 07:48
Sub c9替换颜色()
' 9、把单独另起一行的中文注释语及句号，统一替换为绿色，段落符的黑色不变。
...

杜前辈好！

有些好像还是不能锁定，下面附件中标红的就是，劳您再看看！

duquancai · 发表于 2017-5-16 20:51

13907933959 发表于 2017-5-16 08:16
杜前辈好！有些好像还是不能锁定，下面附件中标红的就是，劳您再看看！

办不到！因为你违背真理！！
“单独另起一行的中文注释语及句号（不包括用上逗号屏蔽了的语句及中文注释语）”，这句违背了真理！！！
单独另起一段（是另起一段不是一行，纠正你的错误说法）的中文注释语及句号与上逗号屏蔽了的语句及中文注释语的这一段请问判定标准？？？

13907933959 · 发表于 2017-5-17 06:49

duquancai 发表于 2017-5-16 20:51
办不到！因为你违背真理！！
“单独另起一行的中文注释语及句号（不包括用上逗号屏蔽了的语句及中文注释 ...

杜前辈好！
前辈纠正的对（其实也是笔误）！
这个“单独另起一段的中文注释语及句号” 与 “上逗号屏蔽了的语句及中文注释语的这一段”的判定标准，能不能把一个是上逗号开头，中文结尾作为判定标准？另一个把上逗号开头，英文，上逗号，中文结尾作为判定标准？
还有一个c10、“把单独另起一行，前面是英文字母，后面是中文的统一替换为紫色，段落符的黑色不变”。能不能把上逗号开头，英文，中文结尾作为判定标准？
这样不知可否实现？？？

13907933959 · 发表于 2017-5-18 06:08

413191246se 发表于 2017-5-12 11:07
*** 139：请处理前备份文件，满意后再存盘！（复制代码到VBE中，关闭VBE，按 Alt+F8 再找 c打头的宏执行） ...

师傅好！
C5运行后，靠近句号的一个字都会被删除了，请您再看看，谢谢！

413191246se · 发表于 2017-5-18 20:05

139：你原附件太大了，我精简了一下，变成4页了，配合新C5宏测试一下吧！

C5 替换前的样子.rar (7.76 KB, 下载次数: 1)

Sub c5中文注释结尾加标点()
'5、把中文注释语后面，没有任何标点符号的加上一个中文句号。
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*[a-z]*'[一-﨩]*" Then
i.Range.Font.Color = wdColorPink '粉红（可删除/注释）
i.Range.Characters.Last.Select
Selection.MoveStart unit:=wdCharacter, Count:=-1
Do While Selection Like "[ 。：；，、！？”’…-]*"
Selection.MoveStart unit:=wdCharacter, Count:=-1
Loop
If Selection Like "[一-﨩]*" Then
i.Range.Font.Color = wdColorBlue '蓝色（可删除/注释）
i.Range.Font.Underline = wdUnderlineSingle '下划线
Selection.MoveEnd unit:=wdCharacter, Count:=-1
If Len(Selection) = 1 Then
Selection.InsertAfter Text:="。"
Else
Selection.MoveStart unit:=wdCharacter, Count:=1
If Selection.Text <> "。" Then Selection.Text = "。"
End If
End If
End If
Next
End Sub

复制代码

13907933959 · 发表于 2017-5-19 07:46

413191246se 发表于 2017-5-18 20:05
139：你原附件太大了，我精简了一下，变成4页了，配合新C5宏测试一下吧！

师傅好！

您的附件虽短，但把问题都体现了出来，在上面测试了新C5，新增加了把后面多余的空格、标点都去除的功能，但还有些另起一段的中文注释结尾不能加上句号，我把它们标蓝了，把原有的句号标红了。

413191246se · 发表于 2017-5-19 09:58

139：“中文注释后面”这句话不好界定，到底包不包含英文字母、数字和其它字符？请试试下面的宏：

Sub c5中文注释结尾加标点()
'5、把中文注释语后面，没有任何标点符号的加上一个中文句号。
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*'*" Then
i.Range.Font.Color = wdColorPink '粉红（可删除/注释）
i.Range.Characters.Last.Select
Selection.MoveStart unit:=wdCharacter, Count:=-1
Do While Selection Like "[ 。：；，、！？”’…-]*"
Selection.MoveStart unit:=wdCharacter, Count:=-1
Loop
If Selection Like "[一-﨩]*" Then
i.Range.Font.Color = wdColorRed '红色（可删除/注释）
i.Range.Font.Underline = wdUnderlineSingle '下划线
Selection.MoveEnd unit:=wdCharacter, Count:=-1
If Len(Selection) = 1 Then
Selection.InsertAfter Text:="。"
Else
Selection.MoveStart unit:=wdCharacter, Count:=1
If Selection.Text <> "。" Then Selection.Text = "。"
End If
End If
End If
Next
End Sub

复制代码

13907933959 · 发表于 2017-5-19 13:39

本帖最后由 13907933959 于 2017-5-21 15:18 编辑

413191246se 发表于 2017-5-19 09:58
139：“中文注释后面”这句话不好界定，到底包不包含英文字母、数字和其它字符？请试试下面的宏：

师傅好！
只要是有上逗号的，其后有 “中文注释” 的，再后面（到段落符前止）不管是什么，英文字母、数字、空格、其它字符，统统包括。

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

[求助] 求前辈们帮忙实现这样的“查找替换”