谁能帮我编一个Word的宏

来源：百度知道 编辑：UC知道 时间：2024/05/14 19:47:13
我需要一个Word的宏，能够实现以下功能：

1.把从鼠标开始直到下一个句号的文字选定，变成某个Highlight.
2.把鼠标之前的句号到上一个句号中间的文字选定，变成没有Highligh.

比如：清明时节雨纷纷，路上行人欲断魂。|借问酒家何处有，牧童遥指杏花村。

鼠标位置在“借问”那里，使用宏把“借问酒家何处有，牧童遥指杏花村。”加上Highligh，（最好浅蓝色）。同时把“清明时节雨纷纷，路上行人欲断魂。”改成没有Highlight。

注意：我的Word是英文版的，宏的语言也要英文。

完全实现功能的追加100分。
1. highlight是指底纹变蓝，字色不变。

2. 点到那里才变。最好是鼠标点到那里了，一个快捷键就能实现这些功能。

谢谢。

Lairice写的是选定的功能，不是Highligh.

五哥牧羊写的可以实现右边变蓝的功能，能不能再写一个消除左边Highlight的呢？

1。你说的highlight，是指字的底纹变蓝呢，还是文字变蓝？
2。鼠标位置在“借问”那里
－－是鼠标“指向那里”(不点鼠标)，就运行宏呢，还是先点一下把“光标点到那里”，再运行宏？
**********************************

1。工具－宏－录制新宏－将宏指定到键盘，在快捷键中按下Ctrl+~再确定－将宏保存在“文档1”
2。确定后开始录制，随便输入一个字母，然后结束录制。
3。工具－宏－VisualBasic编辑器
在左上角“工程列表”中双击“文档1”，再双击ThisDocument，右边出现了你刚才录制的宏
用下面内容替代

4。回到文档，定位光标后，从菜单里先执行一次Macro1。 成功的话再检验快捷键是否正确

效果：执行宏后，自动将右边一句变淡蓝。

Sub Macro1()
Dim a As Integer
a = Selection.Start
Selection.Find.Forward = True
Selection.Find.Execute FindText:="。"
ActiveDocument.Range(Start:=a, End:=Selection.End).Font.Shading.BackgroundPatternColor = wdColorLightTurquoise
Selection.End = a
End Sub

*****************************
注意颜色，代码倒数第3行最后的= wdColorLightTurquoise(亮青色)，可以换成RGB的颜色函数
语法：RGB(红,绿,蓝)

例： = RGB(256, 256, 0)
红＋绿＝黄色

你可以在windows画图的调色板中找好颜色，把红绿蓝（对应的RGB）数字填写进来。

表示颜色的方法有4种，下面都是红色：
格式1=vbRed
格式