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

weiyingde · 发表于 2017-5-7 16:27

13907933959 发表于 2017-5-7 14:55
前辈好！
此言差矣！有不有意义我觉得是因人、因事而异，VBA 本来就不是大多数人能用得上的，您说全球70 ...

小花鹿说的极是，一口吃不了个胖子，一锄头挖不出个井！很多实用的程序，都是在不断完善当中逐步实现的。

13907933959 · 发表于 2017-5-7 16:41

skyzxh 发表于 2017-5-7 15:58
是看不明白你要做什么？如果是VBA代码，改不改字体颜色有啥关系？（1、把全文字符设为、黑色。）；这里（ ...

前辈好！
1、改字体颜色是为统一颜色，因为我收藏的代码字体颜色不统一，有自动色、黑色、灰色…等。
2、把文档中的手动换行符，全部替换为段落符，因我要整理的代码中有手动换行符，也有段落符。
3、手动换行符↓ 段落符（即：段落标记 ↵ ）。

13907933959 · 发表于 2017-5-7 16:57

weiyingde 发表于 2017-5-7 16:27
小花鹿说的极是，一口吃不了个胖子，一锄头挖不出个井！很多实用的程序，都是在不断完善当中逐步实现的。

前辈好！
这个替换对我来说，因水平不够是实现不了，但我感觉对道行比我深的前辈并不是什么难事，肯定可以实现，只不过烦琐一些，花的时间要多一些而已。

weiyingde · 发表于 2017-5-7 17:38

13907933959 发表于 2017-5-7 16:57
前辈好！
这个替换对我来说，因水平不够是实现不了，但我感觉对道行比我深的前辈并不是什么难事，肯定可 ...

当然可以实现。但是，你的要求，毕竟是一个完整的程序。这且不说，你有懒惰且绑架别人义务完成你“空中楼阁”的嫌疑，单说这一系列任务下来，有哪些人有那么多的时间介入其中？
你提的问题越细，角度越小，对帮助的人来说，负担越小，花费的时间越短，别人也就愿意接手解决。
若是一系列的任务，别人恐怕想帮忙，也会敬而远之。
毕竟，你要实现的东西，也许对你而言是“宝贝”，但在别人眼里可能是无用的“废物”——“零动力”是吸引不了人的；
更何况，大家都是“义务员”——“零报酬”，即使“袖手旁观”，心中也没有任何愧疚。

weiyingde · 发表于 2017-5-7 17:39

若是说重了，敬请原谅。

13907933959 · 发表于 2017-5-9 14:46

本帖最后由 13907933959 于 2017-5-21 08:27 编辑

好的、感谢提醒和见议！

13907933959 · 发表于 2017-5-11 08:04

本帖最后由 13907933959 于 2017-5-11 16:17 编辑

刚才在邮箱内看到g××××××前辈（应他的要求，隐去他的网名）发来的处理该问题的GIF录像，从录像上看，代码运行的效果是很完美的解决了该问题，遗憾的是他说他这次不愿提供代码。遗憾归遗憾，还是要对他说一声谢谢！感谢他提供的录像，感谢他以前曾多次的出手相助！

jiminyanyan · 发表于 2017-5-11 18:34

13907933959 发表于 2017-5-11 08:04
刚才在邮箱内看到g××××××前辈（应他的要求，隐去他的网名）发来的处理该问题的GIF录像，从录像上看， ...

估计给点小费就有代码了

13907933959 · 发表于 2017-5-12 06:38

本帖最后由 13907933959 于 2017-5-12 08:07 编辑

jiminyanyan 发表于 2017-5-11 18:34
估计给点小费就有代码了

前辈好！

这个他到没说，我也不好问，人家不给也可能有他的难处或有其它的用意，就像有的代码要密码，有的代码只有一张图片，有的代码只上传录像，只能理解万岁！像我这样的菜鸟真希望前辈们，都能给一个可正常用使用带中文注解的代码！唉！可毕竟是希望啊！

413191246se · 发表于 2017-5-12 11:07

*** 139：请处理前备份文件，满意后再存盘！（复制代码到VBE中，关闭VBE，按 Alt+F8 再找 c打头的宏执行）：

Sub c1全文黑色()
ActiveDocument.Content.Font.Color = wdColorBlack
End Sub
Sub c2手动换行符全部替换为段落标记()
ActiveDocument.Content.Find.Execute FindText:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll '手动换行符全部替换为段落标记
ActiveDocument.Content.Find.Execute FindText:="^13", ReplaceWith:="^p", Replace:=wdReplaceAll '真假回车符全部替换为段落标记
End Sub
Sub c3单引号前空格替换为两个半角空格()
ActiveDocument.Content.Find.Execute FindText:="[!a-z0-9]@(')", ReplaceWith:=" \1", Replace:=wdReplaceAll, MatchWildcards:=True
ActiveDocument.Content.Find.Execute FindText:="([a-z0-9])(')", ReplaceWith:="\1 \2", Replace:=wdReplaceAll, MatchWildcards:=True
MsgBox "处理完毕！！！"
End Sub
Sub c5中文注释结尾加标点()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*'*[!。：；，、！？”…—.:;,!?]" & vbCr Then
i.Range.Characters.Last.Previous.Text = "。"
End If
Next
End Sub
Sub c6多个单引号替换为一个()
Dim i As Paragraph, j As Long
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*'*'*" Then
i.Range.Characters(1).Select
Do While Selection.Characters.Last Like "[ ']"
Selection.MoveEnd unit:=wdCharacter, Count:=1
Loop
Selection.MoveEnd unit:=wdCharacter, Count:=-1
Selection = "'"
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 17.5
End If
Next
End Sub
Sub c8注释蓝色()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*'*" Then
i.Range.Characters.Last.Previous.Select
Selection.MoveEndUntil cset:="'", Count:=wdBackward
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.MoveEndUntil cset:=vbCr, Count:=wdForward
If Len(Selection) <> Len(i.Range) - 2 Then Selection.Font.Color = wdColorBlue
End If
Next
End Sub
Sub c9注释绿色_结尾段落标记未保持黑色()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If i.Range Like "'*" Then
i.Range.Select
Selection.MoveEnd unit:=wdCharacter, Count:=-1
Selection.Font.Color = wdColorGreen
End If
Next
End Sub
Sub c11单引号全部替换为红色()
With ActiveDocument.Content.Find
.ClearFormatting
With .Replacement
.ClearFormatting
.Font.Color = wdColorRed
End With
.Execute FindText:="'", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
End Sub

复制代码

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

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