Not sure what your question has to do with Word VBA. I am not even sure I
understand your question. If you are typing verses then I assume that you
are typing them by pressing one letter key at at a time on your keyboard.
Entering verse numbers is done in a similiar way. One number at a time.
Kathi wrote:
> I have Word 2003. I am typing Bible verses and would like to include
> the verse numbers. How do I insert them?
--
Greg Maxey - Word MVP
My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org
"Greg Maxey" wrote:
> Greg, I am sorry that I posted in the wrong place. I thought "programming" meant programming the word document. And no you cannot insert the verse numbers one number at a time. If this were the case I wouldn't have be smaller than the letters and sit not on the line but above the line. Could you please direct me to the proper sight to post my question.
Thanks,
Kathi
If you mean something like:
Genesis 1 1In the beginning God created the heavens and the earth. 2The earth was without form and void, and darkness was upon the
face of the deep; and the Spirit of God was moving over the face of the waters. 3And God said, "Let there be light"; and there was
light. 4And God saw that the light was good; and God separated the light from the darkness. 5God called the light Day, and the
darkness he called Night. And there was evening and there was morning, one day.
where the verse numbers are superscripted, all you need to do is to select the numbers and apply superscripting to them. You can do
this by selecting the number and pressing Ctrl-Shift-+. Once you've done this for the first number in a series, pressing F4 repeats
the action for the next selected number.
--
Cheers
macropod
[Microsoft MVP - Word]
"Kathi" <Ka...@discussions.microsoft.com> wrote in message news:AE9ACE44-5BC9-45AE...@microsoft.com...
Sub ScratchMacro()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "([0-9]@)"
.Replacement.Text = "\1"
.MatchWildcards = True
.Replacement.Font.Superscript = True
.Execute Replace:=wdReplaceAll
End With
End Sub
--
Greg Maxey - Word MVP
My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org
"Kathi" <Ka...@discussions.microsoft.com> wrote in message
news:AE9ACE44-5BC9-45AE...@microsoft.com...
>
>
Thank you for attempting to assist me. I have never used macros. I don't
know where or how to place the information you sent me.
Thanks,
Kathi
You really don't need the macro. You can do this using the Find and Replace
utility.
On the Edit menu click "Replace"
In the Find what field type "([0-9])2"
If the Replace with field type "\1"
Click "More" and check "Use Wildcards"
With the cursor still in the Replace with field click "Format>Font" then
check "Superscript" and press "OK"
Click "Replace All"