microsoft - Cómo encontrar la lista de viñetas y dar formato a viñetas(VBA_Word Documnet)

vba for excel

Question

Estoy tratando de encontrar instancias de una lista de viñetas en un documento y luego cambiar el tipo de viñeta y el tamaño de viñeta.

Intenté cambiar el siguiente código de estilo para que utilizara un tipo de viñeta que estuviera formateado según el tamaño y tipo de viñeta que quisiera, pero parece que no puedo encontrar el objeto correcto para llamar o las propiedades correctas que debo asignar.

He agregado un tipo y tamaño de viñeta personalizados a la lista de viñetas, en la posición nueve (9) de la lista, si eso ayuda.

Me trataron de cambiar el "párrafo de la lista" por un tipo de viñeta, pero mantuve un error.

Sub BulletStyle ()
Dim oBull As Word.Paragraph

For Each oBull In ActiveDocument.Paragraphs
   If oBull.Range.ListFormat.ListType = _
         WdListType.wdListBullet Then
      oBull.Style = "List Paragraph"
   End If
Next
End Sub

Answer 1

Cree un estilo personalizado que esté configurado para la viñeta en la que desea cambiarlo y asegúrese de que el formato esté configurado en "Numeración" en la definición de estilo.

Entonces simplemente cambie la siguiente línea de código

oBull.Style = "List Paragraph"

Para el nombre de tu estilo personalizado:

oBull.Style = "MyCustomStyle"

Cuando cree su Estilo personalizado, asegúrese de establecer Formato como numeración.