在上标串前插入一个红色字符

matsumi

在选定的内容中有多处上标串(连续几个字符为上标),如何在上标前插入一个红色字符,要求只能在每处上标串的第一个字符前插,其他处不插入,用VBA.

守柔

建议上传一个附件，关键点：

上标前插入一个红色字符，其字体是常规还是上标？

选定内容中的上标串应该有多处，每处的上标串中的内容是什么？是词组还是不相关的文本等？

matsumi

ghhsjbdK.rar (9.08 KB, 下载次数: 29)

2005-10-1 20:38 上传

点击文件名下载附件

[此贴子已经被作者于2005-10-1 20:38:37编辑过]

守柔

Sub Example3() Dim myRange As Range, lngStart As Long, lngEnd As Long If Selection.Type <> wdSelectionNormal Then Exit Sub Set myRange = Selection.Range GN: With myRange.Find .ClearFormatting .Format = True .Font.Superscript = True Do While .Execute myRange.InsertBefore "A" With myRange.Characters(1) .Font.Color = wdColorRed End With lngStart = myRange.End lngEnd = Selection.End Set myRange = ActiveDocument.Range(lngStart, lngEnd) If myRange = "" Then Exit Do GoTo GN Loop End With End Sub

matsumi

好用，非常感谢！！！

ygy_123

守柔你能用语言解释一下你所写的吗？

守柔

以下是引用ygy_123在2005-10-2 12:22:35的发言： 守柔你能用语言解释一下你所写的吗？

本来想偷懒一下的[em04]

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-10-2 14:09:39 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00045^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example3() Dim myRange As Range, lngStart As Long, lngEnd As Long '如果不是正常的文本选定内容则退出程序 If Selection.Type <> wdSelectionNormal Then Exit Sub Set myRange = Selection.Range '定义一个RANGE对象为选定内容 GN: With myRange.Find '查找 .ClearFormatting '清除查找格式(不限定格式) .Format = True '格式查找 .Font.Superscript = True '上标字体 Do While .Execute '每次成功查找 myRange.InsertBefore "A" '在查找到的文本之前插入字符A 'myRange对象从查找内容被扩展为带有A字符的查找文本 '注意WORD 成功查找后MYRANGE区域被改变为当前查找到的区域 '由于当前选定状态,SELECTION对象被扩展(即包含新字符A) With myRange.Characters(1) 'myRange对象中的第一个字符(即A) .Font.Color = wdColorRed '红色字体,以下END WITH结构中,可继续设置格式 End With lngStart = myRange.End '取得一个查找内容的结束位置 lngEnd = Selection.End '选定内容的结束位置,注意,这两个位置,都是变量 Set myRange = ActiveDocument.Range(lngStart, lngEnd) '定义一个新的查找对象,其初始对象是SELECTION对象, '现被重设为上次查找的末位置到选块的末位置这段区域,重设搜索范围,以规避被再次查找 If myRange = "" Then Exit Do '当正好选块的末位置是上标时,会出现此情况,退出循环 GoTo GN '回到GN行开始 Loop End With End Sub '----------------------

lover2008

守柔 厉害