WD2000: Como inserir uma legenda com alinhamento à direita seguinte para um editor de equações

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

                                          y = mx + b ( 1 )
  						

  - ou -
• A equação é centrada e a legenda é alinhado à direita,
  
  

                        y = mx + b                   ( 1 )
  						

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

   y = mx + b                                        ( 1 )
  						

Voltar ao topo

Voltar ao topo

Passo 1: Configurar a legenda

1. No Microsoft Word, no menu Inserir , clique em legenda .
2. Clique em novo nome .
3. Na caixa nome , introduza um parêntese.
4. Clique em OK .
5. Na caixa legenda à direita do número, escreva um espaço e, em seguida, escreva um parêntese de fecho.
6. Clique em OK .

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

Voltar ao topo

Passo 2: Alinhar o Editor de equações e a legenda

Método 1: Como definir um editor de equações alinhado à direita e número de legenda

1. No menu Inserir , clique em ' legenda '.
2. Na lista nome , seleccione os parênteses abertos. Na caixa legenda , introduza um espaço, escreva um parêntese de fecho 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. Definido para uma tabulação alinhada à direita da margem direita. Por exemplo, se a margem direita seis polegadas da margem esquerda, defina o separador alinhado à direita em seis polegadas efectuando o seguinte procedimento:
   1. No menu Formatar , clique em separadores .
   2. Na caixa de marca de tabulação , escreva 6 .
   3. Em Alinhamento , clique em para a direita e, em seguida, clique em OK .
5. Prima a tecla TAB para mover a legenda para a extremidade direita da página.
6. Inserir a equação no documento.

Método 2: Como definir um editor de equações com alinhamento à esquerda

1. Numa linha de nova em branco, inserir a equação.
2. Saia Editor de equações clicando em qualquer ponto na área de documentos.
3. Prima a tecla TAB e, em seguida, insira a legenda.
4. Seleccione a linha inteira que contém a equação e a legenda. No menu tabela , clique em Converter texto em tabela . A selecção é convertida para uma tabela de duas colunas.
5. Remova o limite à volta da tabela, efectuando o seguinte procedimento:
   1. Mova o ponto de inserção em qualquer célula da tabela. No menu tabela , aponte para Seleccionar e, em seguida, clique em tabela .
   2. No menu Formatar , clique em limites e sombreado .
   3. Em definições , clique em nenhum .
   4. Clique em OK .
6. Seleccione a célula de tabela que contém a legenda e, em seguida, clique no botão Alinhar à direita na barra de ferramentas formatação .

Método 3: Como definir um editor de equações Centro de alinhamento

1. Numa linha de nova em branco, prima a tecla TAB e, em seguida, inserir a equação.
2. Saia Editor de equações clicando em qualquer ponto na área de documentos.
3. Prima a tecla TAB e, em seguida, insira a legenda.
4. Seleccione a linha inteira que contém a equação e a legenda. No menu tabela , clique em Converter texto em tabela . A selecção é convertida para uma tabela com três colunas.
5. Remova o limite à volta da tabela, efectuando o seguinte procedimento:
   1. Mova o ponto de inserção em qualquer célula da tabela. No menu tabela , aponte para Seleccionar e clique em tabela .
   2. No menu Formatar , clique em limites e sombreado .
   3. Em definições , clique em nenhum .
   4. Clique em OK .
6. Seleccione a célula de tabela que contém a equação e, clique no botão Centro na barra de ferramentas formatação .
7. Seleccione a célula de tabela que contém a legenda e, clique no botão Alinhar à direita na barra de ferramentas formatação .

Método 4: Como criar do Microsoft Visual Basic para aplicações 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 ao topo