En numeración y viñetas, ¿Como se pone primera, segunda...?

[sunma]

Se puede elegir primero, segundo, etc, pero no puedo poner clausula primero,
queda mal. ¿Cómo puedo cambiar esto?

[Tux]

sunma escribió:

> Se puede elegir primero, segundo, etc, pero no puedo poner clausula primero,
> queda mal. ¿Cómo puedo cambiar esto?

Hola Sunma :-)

Pues creo que eso no se si se puede variar, repito no se, pero me estoy
sacando serrin de la cabeza (que la tengo muy llena jejejej) para ver si
encuentro una solucion o alternativa bien ya sea en la interfaz de Word
o bien ya sea mediante codigo :-? o bien a ver si alguien aporta mas luz
a esto ¿?

Saludos
Monica

--
Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com

[sunma]

Gracias, aunque como sea con codigo no tengo ni idea de como hacerlo (soy un
poco novata en esto de word, solo a nivel usuario). Aunque me temo que no
creo que haya otra manera.

"Tux" escribió:

[Tux]

sunma escribió:

> Gracias, aunque como sea con codigo no tengo ni idea de como hacerlo (soy un
> poco novata en esto de word, solo a nivel usuario). Aunque me temo que no
> creo que haya otra manera.
>

Hola Sunma :-)

Bien pues tranquila ya veras como lo veras facilito bien me lo tendre
que preparar y ya te explico a ver como se podria realizar el codigo ok?
:-) mañana por la tarde te lo subire ya que hoy me es imposible ponerme
a ello pero mañana estare mas libre de tiempo ok? :-)

Saludos!!

[Tux]

sunma escribió:

> Gracias, aunque como sea con codigo no tengo ni idea de como hacerlo (soy un
> poco novata en esto de word, solo a nivel usuario). Aunque me temo que no
> creo que haya otra manera.
>

Hola Sunma :-)

Bien este codigo puedes asociarlo a un boton y tienes que ponerlo en un
modulo de la siguiente manera:

Abres un documento nuevo, lo guardas con el nombre que quieras , le das
a Alt+F11, menu Insertar > modulo ahi copy-paste del siguiente codigo:

'----------------------------------------------------------

Sub Prueba_2()

Dim x As String
Dim Lista_1 As ListTemplate
Dim Titulo

Set Lista_1 = ActiveDocument.ListTemplates.Add
x = InputBox("Mi Lista:", "Introducir Texto", "Cláusula")

With Lista_1.ListLevels(1)

.NumberFormat = x
.TrailingCharacter = wdTrailingTab
.NumberPosition = InchesToPoints(0.25)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0.75)
.TabPosition = InchesToPoints(0.75)
.ResetOnHigher = True
.StartAt = 1
.LinkedStyle = ""
With .Font
.Bold = True
.Name = "Times New Roman"
.Size = 16
End With
End With

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=Lista_1

End Sub

'--------------------------------------------------

Bien una vez puesto el codigo cierra visual basic y le das a ejecutar,
veras que te sale un inputbox que te saldra ya puesto la palabra
"Cláusula" solo tendras que añadir Primera y asi cada vez que necesites
poner una Cláusula solo tengas que escribir el número :-)

Esto es lo maximo que he llegado a hacer o que se puede hacer mejor
dicho [desconozco otra manera ] , bien tu prueba y comentanos ok? si en
algo no me explique bien igualmente nos comentas :-)

Nota :Si quieres cambiar el tipo de letra y tamaño y demas tendras que
hacerlo desde el codigo ya que lo hara para todos igual, porque desde
Numeracion y viñetas ira uno por uno y seria muy costoso :-)