Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

enter Bible verse numbers

1,899 views
Skip to first unread message

Kathi

unread,
Jul 7, 2009, 9:16:01 PM7/7/09
to

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

Greg Maxey

unread,
Jul 7, 2009, 9:24:04 PM7/7/09
to

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
Word MVP web site http://word.mvps.org

Kathi

unread,
Jul 7, 2009, 9:50:01 PM7/7/09
to

"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

macropod

unread,
Jul 7, 2009, 11:47:54 PM7/7/09
to
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]


"Kathi" <Ka...@discussions.microsoft.com> wrote in message news:AE9ACE44-5BC9-45AE...@microsoft.com...

Greg Maxey

unread,
Jul 8, 2009, 5:14:54 PM7/8/09
to
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
Word MVP web site http://word.mvps.org

"Kathi" <Ka...@discussions.microsoft.com> wrote in message
news:AE9ACE44-5BC9-45AE...@microsoft.com...
>
>

Kathi

unread,
Jul 8, 2009, 9:32:01 PM7/8/09
to
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

Kathi

unread,
Jul 8, 2009, 9:30:01 PM7/8/09
to

Thank you very much. This works great.

Greg Maxey

unread,
Jul 8, 2009, 9:47:57 PM7/8/09
to
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"

nicks...@mac.com

unread,
Feb 7, 2016, 8:51:21 AM2/7/16
to
Dear Greg

I cam across your post and this is exactly what i need to do. I use bible verses all the time in Word and it takes so long to manually adjust each verse number to superscript. I would like to be able to run a macro on selected text that does this. As I have so many of these to do I would rather do it as a macro than as Find & Replace.

I see your macro script but like Kathi I do not know where to put this script. I have Office 2016 for mac and I can see TOOLS / MACRO etc but I do not know how to create a new macro with the script you have provided.

Can you help?

Many thanks

Nick

Andreas Vejnø Andersen

unread,
Sep 13, 2021, 4:35:00 PM9/13/21
to
Hi Nick, you are properly not in need for this any longer, but if someone googles this, then I made this simple macOS service that can work in almost all Mac Apps.

https://bibleformat.webflow.io
0 new messages