Reemplazar formato autonumeración por texto plano.

Me autopublico respuesta:

He creado una macro que hace lo siguiente:

Sub Conv_autonum()

Selection.Cut
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.SaveAs FileName:="Conv.txt",
FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= _
False, Encoding:52, InsertLineBreaks:=False,
AllowSubstitutions:=False _
, LineEnding:=wdCRLF
ActiveWindow.Close
Documents.Open FileName:="Conv.txt", ConfirmConversions:=False,
ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="",
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:52
ActiveWindow.Close
Selection.InsertFile FileName:="Conv.txt", Range:="",
ConfirmConversions:= _
False, Link:=False, Attachment:=False
End Sub


Menguillo ha escrito:

Hola a todos!!

En word, podemos numerar lineas de texto numerándolas con la utilidad
que encontramos en Formato > Numeración y viñetas.

El tema es que yo tengo tropecientos archivos con numeraciones del
estilo

a) lineasdfasdf
b) linea 2 asdfasdf
c) linea 3 asdlfjaslfjasdgf
...
..
.

Me gustaría saber si existe la manera convertir la numeración
automática a una numeración "escrita sin automatismos". Como en texto
plano, ¿me explico?

A todos, gracias x vuestra ayuda x adelantado.