wordexperto.com's questions
Eu tenho uma macro para criar uma lista personalizada. A lista é dos ordinais espanhóis no feminino. Este é o código:
Sub ListaFemenino ()
Dim arrNumbers As Variant
Dim i As Long
Dim rng As Range
arrNumbers = Split ("Primera Segunda Tercera Cuarta Quinta Sexta Séptima Octava Novena")
Set rng = Selection.Range
For i = 1 To rng.Paragraphs.Count
With rng.Paragraphs (i) .Range
.Text = arrNumbers (i - 1) & vbTab & .FormattedText
.ParagraphFormat.TabHangingIndent 2
End With
Next i
Exit Sub
End Sub
Eu preciso, se possível, que você me dê a opção, toda vez que eu quiser aplicá-lo no mesmo documento para continuar a lista ou reiniciá-lo de 1, Primera neste caso.
Na verdade o que eu preciso é que ele me ofereça a opção de continuar a numeração porque reiniciá-lo de 1 é o que ele faz.
Olá a todos e desculpem o meu inglês: eu tenho essa macro que adiciona um separador de estilo e funciona bem, exceto que adiciona um espaço em branco na frente do parágrafo. Como eu poderia modificar a macro para que ela não a adicione ou, se adicionar, remova-a posteriormente?
Sub SeparadordeEstilos()
With Selection
.InsertBefore vbCr
.InsertStyleSeparator
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Style = ("PLL Nivel 2 notdc")
End With
End Sub
Editado:
Muito obrigado também, Charles, e minhas desculpas a todos por não explicar todos os detalhes. Eu preciso, em uma lista de tópicos de vários níveis, dois tipos de parágrafos com a mesma numeração. Alguns com fonte em negrito e que aparecem no sumário e outros com fonte normal que não aparecem no sumário. Sendo assim, criei dois estilos, PLL Nivel 2 com negrito que aparece no sumário e PLL Nivel 2 notdc , sem negrito, que não aparece no sumário que é aplicado automaticamente com o separador de estilo ao executar a macro que descrevo em a questão . É a única solução que encontrei para fazer isso, especialmente por causa do requisito de numeração contínua.
Tudo funciona bem, exceto para o espaço em branco. Esse espaço em branco é muito ruim no documento, não dá um toque profissional, pelo contrário, dá uma aparência desleixada.
Portanto, preciso de uma alternativa ou poder remover o espaço em branco.
Aqui está um documento de exemplo com o problema. Achei que a numeração consecutiva funcionou bem porque vi com Mostrar tudo habilitado, mas se eu desligar, (Mostrar tudo), também não funciona e define uma numeração diferente.
Editar 2