WD2000: Como inserir uma legenda alinhadas à direita Avançar para uma equação

• A equação e a legenda são alinhados à direita,
  
  

                                          y = mx + b ( 1 )
  						

  - ou -
• A equação é centralizada e a legenda é alinhada à direita,
  
  

                        y = mx + b                   ( 1 )
  						

  - ou -
• A equação é alinhado à esquerda e a legenda é alinhada à direita.
  
  

   y = mx + b                                        ( 1 )
  						

Voltar para o início

Voltar para o início

Etapa 1: Configurar a legenda

1. No Microsoft Word, no menu Inserir , clique em legenda .
2. Clique em nova etiqueta .
3. Na caixa rótulo , digite um parêntese de abertura.
4. Clique em OK .
5. Na caixa legenda , à direita do número, digite um espaço e, em seguida, digite um parêntese de fechamento.
6. Clique em OK .

1. No menu Inserir , clique em legenda .
2. Altere a caixa Label para o parêntese de abertura.
3. Na caixa legenda , à direita da legenda existente, digite um espaço e, em seguida, digite um parêntese de fechamento.
4. Clique em OK .

Voltar para o início

Etapa 2: Alinhando a equação e a legenda

Método 1: Como definir uma equação alinhadas à direita e número da legenda

1. No menu Inserir , clique em legenda .
2. Na lista nome , selecione o parênteses de abertura. Na caixa legenda , digite um espaço, digite um parêntese de fechamento e, em seguida, clique em OK .
3. No documento do Word, mova o ponto de inserção para o início da linha, antes da legenda.
4. Defina uma tabulação alinhada à direita na margem direita. Por exemplo, se a margem direita for seis centímetros da margem esquerda, defina na guia alinhado à direita em seis polegadas, fazendo o seguinte:
   1. No menu Formatar , clique em tabulações .
   2. Na caixa posição da parada de tabulação , digite 6 .
   3. Em Alinhamento , clique em direita e, em seguida, clique em OK .
5. Pressione a tecla TAB para mover a legenda para a borda direita da página.
6. Inserir a equação no documento.

Método 2: Como definir uma equação: alinhado à esquerda

1. Em uma linha em branco, nova, inserir a equação.
2. Feche o Equation Editor clicando em qualquer lugar na área de documento.
3. Pressione a tecla TAB e, em seguida, insira a legenda.
4. Selecione a linha inteira que contém a equação e legenda. No menu tabela , clique em Converter texto em tabela . A seleção é convertida em uma tabela de duas colunas.
5. Remova a borda ao redor da tabela, fazendo o seguinte:
   1. Mova o ponto de inserção em qualquer célula da tabela. No menu tabela , aponte para Selecionar e, em seguida, clique em tabela .
   2. No menu Formatar , clique em Bordas e sombreamento .
   3. Em configuração , clique em Nenhum .
   4. Clique em OK .
6. Selecione a célula de tabela que contém a legenda e clique no botão Alinhar à direita da barra de ferramentas formatação .

Método 3: Como definir uma equação: alinhado ao centro

1. Em uma linha em branco, pressione a tecla TAB e insira a equação.
2. Feche o Equation Editor clicando em qualquer lugar na área de documento.
3. Pressione a tecla TAB e, em seguida, insira a legenda.
4. Selecione a linha inteira que contém a equação e legenda. No menu tabela , clique em Converter texto em tabela . A seleção é convertida em uma tabela de três colunas.
5. Remova a borda ao redor da tabela, fazendo o seguinte:
   1. Mova o ponto de inserção em qualquer célula da tabela. No menu tabela , aponte para Selecionar e clique em tabela .
   2. No menu Formatar , clique em Bordas e sombreamento .
   3. Em configuração , clique em Nenhum .
   4. Clique em OK .
6. Selecione a célula da tabela que contém a equação e clique no botão Central na barra de ferramentas formatação .
7. Selecione a célula da tabela que contém a legenda e clique no botão Alinhar à direita da barra de ferramentas formatação .

Método 4: Como criar um Microsoft Visual Basic para aplicativos macro

Sub CaptionRight()

   Dim Align As Integer
   On Error GoTo Bye

   ' If insertion point is in a table, show message and end macro.
   If Selection.Information(wdWithInTable) Then
      MsgBox "You are in a table. Please move outside of the " _
         & "table to run this macro.", vbInformation
      GoTo Bye
   End If

   ' Ask whether to center or left align equation.
   Align = MsgBox("Would you like the Equation to be " & "centered? " _
      & "(Selecting No will left-align the " & "Equation.)", vbYesNoCancel)

   If Align > 2 Then
      Selection.InsertParagraphAfter
      Selection.Collapse Direction:=wdCollapseEnd
      W = ActiveDocument.PageSetup.PageWidth
      L = ActiveDocument.PageSetup.LeftMargin
      R = ActiveDocument.PageSetup.RightMargin
      RTMarg = W - R - L
      CaptionLabels.Add Name:="("

      If Align = 6 Then
         tblT1 = Selection.Tables.Add(Selection.Range, 1, 3)
      Else
         tblT1 = Selection.Tables.Add(Selection.Range, 1, 2)
      End If

      tblT1.Select

      With Selection
         ' Do this if Center-align selected.
         If Align = 6 Then
            .Columns(1).Cells.Width = 50.4
            .Columns(3).Cells.Width = 50.4
            .Columns(2).Cells.Width = RTMarg - 100.8

            'Represents 1.5" in Points
         Else
         ' Do this if Left-align selected.
            .Columns(2).Cells.Width = 50.4
            .Columns(1).Cells.Width = RTMarg - 50.4
            'Represents .75" in Points
         End If

         .InsertCaption Label:="(", _
            Position:=wdCaptionPositionBelow, Title:=" )"
         .HomeKey unit:=wdLine, Extend:=wdExtend
         .Cut
         .MoveRight unit:=wdCharacter, Extend:=wdExtend
         .Delete
         .MoveLeft unit:=wdCharacter, Count:=2
         .Paste
         .Rows(1).Select

        ' Set the table borders to None.
         For Each x In Selection.Borders
            x.LineStyle = wdLineStyleNone
         Next x

         .Borders.Shadow = False
         .Cells(9 - Align).Select
         .ParagraphFormat.Alignment = wdAlignParagraphRight
         .Cells(1).VerticalAlignment = wdCellAlignVerticalCenter
         .Font.Bold = True
         .Rows(1).Select

         If Align = 6 Then
            .Cells(2).Select
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .InlineShapes.AddOLEObject ClassType:="Equation.3", _
               FileName:="", LinkToFile:=True, DisplayAsIcon:=False
         Else
            .Collapse
            .InlineShapes.AddOLEObject ClassType:="Equation.3", _
               FileName:="", LinkToFile:=True, DisplayAsIcon:=False
         End If
      End With
   End If

Bye:

End Sub
				

Voltar para o início