I don't *think* the OP wants to freeze the numbers on part of a list in
place but rather to be able to "quote" these numbered paragraphs elsewhere,
retaining the numbers they have in place.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site:
http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Lene Fredborg" wrote in message
...
ConvertNumbersToText cannot be used with the Selection object so
Selection.ConvertNumbersToText will not work.
A macro like the one below could be used to change the numbers in the
selection only. However, it may be safer to do as Suzanne suggested, i.e.
copy the document, change all numbers to text using
ActiveDocument.ConvertNumbersToText and then just use whatever you need
from
the document.
The problem with changing only part of the numbers to text is that this
will
make all subsequent numbers that belong to the same list(s) wrong - the
subsequent numbers will act as if you have deleted the numbers that you
converted to text. The result could be rather confusing even if you could
undo the change at once after you copied the relevant text. Anyway, here
is
the macro:
Sub ConvertNumbersInSelectionToText()
Dim oDoc As Document
Dim oRange As Range
Set oDoc = ActiveDocument
Set oRange = _
oDoc.Range(Start:=Selection.Range.Start, _
End:=Selection.Range.End)
oRange.ListFormat.ConvertNumbersToText wdNumberParagraph
Set oDoc = Nothing
Set oRange = Nothing
End Sub
--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word
"Suzanne S. Barnhill" wrote:
You can convert the numbers to text using these instructions provided by
Stefan Blom:
To convert autonumbering (paragraph/outline numbering and LISTNUM
fields) to plain text, do the following: Make sure the active
document is the one you want to convert. Then press ALT+F11 to
display the Visual Basic Editor. On the View menu, click
Immediate Window. In the Immediate Window, type
ActiveDocument.ConvertNumbersToText
and press ENTER.
Note that if paragraph/outline numbering was applied with styles,
it isn't completely gone (CTRL+Q will bring it back!) unless you
also clear it from the style definitions.
Note that Stefan's instructions are for the entire document. I can't
tell
you the appropriate macro for a selection (perhaps
Selection.ConvertNumbersToText), but perhaps someone else will chime in
with
that. Alternatively, you could make a copy of the document, run the
macro,
and then copy/paste the relevant bit into your good doc.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so
all may benefit.
"Monte Beery" Monte wrote in message
...
I often need to extract a few entries from a page of numbered
paragraphs,
but
want to retain the original numbering for reference to the original
document.
1. first paragraph
2. second paragraph
2.1 clause in second paragraph
3 third paragraph
Extract the second paragraph and its clause, but retain the numbering
thus...
2 second paragraph
2.1 clause in second paragraph
Word will routinely renumber the lines...
1 second paragraph
1.1 clause in second paragraph
How do I achieve my goal of retaining the numbering when I extract a
part
of
a numbered list?
Thanks for your assistance,
Monte