enter Bible verse numbers

[Kathi]

I have Word 2003. I am typing Bible verses and would like to include the
verse numbers. How do I insert them?

 

[Greg Maxey]

Kathi,

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]

Kathi,

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.


--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org




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

 

[macropod]

Hi 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.

 

[Greg Maxey]

Ok. You want the verse number to appear as superscript. You can do as Paul
suggests, or you could simply type out the verses using regular numbers and
then covert them all in one sweep with the following macro:

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

 

[Kathi]

Thank you very much. This works great.

Hi 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]

Thanks,
Kathi

 

[Kathi]

Greg,

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

Ok. You want the verse number to appear as superscript. You can do as Paul
suggests, or you could simply type out the verses using regular numbers and
then covert them all in one sweep with the following macro:

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

Thanks,
Kathi

 

[Greg Maxey]

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"

Greg,

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

Ok. You want the verse number to appear as superscript. You can do
as Paul suggests, or you could simply type out the verses using
regular numbers and then covert them all in one sweep with the
following macro:

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

:

Kathi,

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




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