Reply to thread

Message: [QUOTE="Pesach Shelnitz, post: 5881924"] The original macro can be fixed to do what was intended by simpling recalling some basics. As I'm sure we all know, the Selection object represents the insertion point or the selected text, while a Range object represents a portion of the doc defined by a starting position and an ending position, regardless of whether the text in the range is selected or not. A Range object is convenient for formatting a part of found text, and in the case under discussion, the start and end of the range can be set from what we know about the position of the number to be formatted without performing a second search within the text found. The Range object should simply be defined as the range extending from the second character in the text found to the next-to-last character in the text found. This range includes only the number in the text found. The other important fact that we must bear in mind here is that, by default, a repeated search continues from the end of the text found in the previous search. The original macro finds "C5H" in the first search cycle. In order to find "H8N" in the second search, the second search must start before the "H" in the text selected in the first search. This can be achieved by collapsing the selection and moving the cursor to the position after the number. The end result is as follows: Sub test() Dim rtext As Range Selection.HomeKey wdStory With Selection.Find .ClearFormatting Do While .Execute(findText:="[A-z][0-9]{1,}[A-z]", _ MatchWildcards:=True, _ Wrap:=wdFindStop, Forward:=True) = True Set rtext = ActiveDocument.Range(Start:=Selection.Start + 1, _ End:=Selection.End - 1) rtext.Font.Subscript = True Selection.Collapse Direction:=wdCollapseStart Selection.MoveRight Unit:=wdCharacter, Count:=2 Loop End With End Sub Since this macro is intended to format the numbers in chemical formulas as subscripts, we might want to continue this discussion and enable the macro to find two-digit and three-digit numbers. -- Hope this helps, Pesach Shelnitz [/QUOTE]

Verification