上标在字符串中起始位置?

matsumi

VBA确定上标在字符串中起始位置?

matsumi

示例

本示例在活动文档的开头插入文本，并将第四个单词的两个字符设为上标。

Set myRange = ActiveDocument.Range(Start:=0, End:=0)myRange.InsertAfter "Superscript in the 4th word."ActiveDocument.Range(Start:=20, End:=22).Font.Superscript = True

请帮忙,如何反过来确定上标位置?

[此贴子已经被作者于2005-9-23 22:46:12编辑过]

守柔

我做了两个示例,供参考,具体情况,应作具体分析.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-24 5:43:40 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00038^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example1() Dim myRange As Range, FindCount As Integer Set myRange = ActiveDocument.Content GN: With myRange.Find .ClearFormatting .Format = True .Font.Superscript = True Do While .Execute FindCount = FindCount + 1 MsgBox "第" & FindCount & "上标字体位于:" & myRange.Start Set myRange = ActiveDocument.Range(myRange.End, ActiveDocument.Content.End) GoTo GN Loop End With End Sub '---------------------- Sub Example2() Dim myRange As Range, i As Range Set myRange = ActiveDocument.Content For Each i In myRange.Characters If i.Font.Superscript = True Then MsgBox "在文档的" & i.Start & "位置发现上标字体!" End If Next End Sub '----------------------

matsumi

谢谢守柔兄,在xp中试了一下,可以了,是从文档第一行算起的位置.如果从选定的内容(区域)算起.....自己先试一试,再请教,深表谢意!