Uma família de produtos de software de processamento de texto da Microsoft para criar documentos da Web, de email e para impressão.
Olá Felipe e Danilo,
Inicialmente muito agradeço a atenção, a ajuda e o interesse que vocês me deram para solucionar este problema.
Consegui resolvê-lo de duas formas. Publico-as aqui para ajudar a outros com este mesmo tipo de problema:
1ª forma: criando uma macro e atribuindo tecla de atalho a ela: coloque o cursor onde desejo inserir o numerador/vou para a Guia "Exibição"/"Macros"/"Gravar Macro..."/atribuo nome à macro/"Ok"/Guia "Início"/"Parágrafo"/botão "numeração"/Guia "Início"/"Mostrar a caixa de diálogo Parágrafo" (pequena seta do lado inferior direito da caixa "Parágrafo")/altero as formatações do parágrafo na caixa de diálogo/"Ok"/Guia "Exibição"/"Macros"/"Parar gravação"/"botão office"/"opções do word"/"personalizar"/"atalhos do teclado" (botão Personalizar)/na lista Categorias, lado esquerdo, procuro por Macros/no lado direito, na lista Macros, seleciono a nova macro criada/clico no campo "Pressione a nova tecla de atalho" e pressiono, por exemplo, a tecla F10/pressiono o botão "Atribuir"/Fecho todas as janelas/e, toda vez que pressiono a tecla F10, é inserido o numerador conforme minhas formatações. Para quem não quer seguir esse longo passo a passo, coloco abaixo a macro que criei para essa finalidade (copie-a e cole-a logo depois de "End Sub", no "Microsoft Visual Basic" - "Exibição"/"Macros"/"Exibir macros"/selecione a macro criada/vá em "Editar"):
Sub Numerador()
'
' Numerador Macro
'
'
With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)
.NumberFormat = "%1."
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0.63)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(1.27)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = wdUndefined
.Italic = wdUndefined
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = ""
End With
.LinkedStyle = ""
End With
ListGalleries(wdNumberGallery).ListTemplates(7).Name = ""
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
ListGalleries(wdNumberGallery).ListTemplates(7), ContinuePreviousList:= _
False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
wdWord10ListBehavior
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
End Sub
2ª forma: criando um documento modelo e nele inserindo o numerador conforme minhas formatações: abro um novo documento word/insiro nele o numerador e altero suas formatações/botão office/salvar como/em "Salvar em:", procuro o local onde desejo salvar o meu modelo/em "Nome do arquivo", nomeio o meu modelo/em "Salvar como tipo", clico em sua seta do lado direito e, na lista que aparece, procuro por "Modelo do Word" e clico sobre ele/clico no botão "Salvar". Toda vez que eu abrir esse modelo que criei, aparecerá automaticamente, no novo documento que se abre, o numerador com minhas formatações.
Espero, também, ter ajudado.
Até mais!!!