Classificando usando uma macro para documentos do Microsoft Word

Utilize uma macro para classificar quando a propriedade que deseja usar não estiver disponível na janela de classificação.

Antes de Iniciar

Nota: Este tópico se aplica apenas a modelos que são gerados em documentos do Microsoft Word.

Sobre Esta Tarefa

Os benefícios de usar uma macro para classificar:

Procedimento

  1. Inclua um rótulo de macro nas colunas a serem classificadas:
    1. Abra o modelo no aplicativo Document Studio.
    2. Na célula de cabeçalho da coluna na qual classificar, inclua um elemento Comentário ícone Comentário.
    3. Dê um clique duplo no elemento Comentário e insira <RPE_SORT>.
    4. Repita em cada tabela no modelo a ser atualizado.
  2. Crie a macro:
    1. Abra o Microsoft Word.
    2. Copie e cole o script a seguir no arquivo:
      ' Macro: sort tables
      ' This macro is provided as is with no implicit or explicit support from IBM.
      Sub sortTables()
      
          Dim tbl As Table
      
          ' sort each table
          For Each tbl In ActiveDocument.Tables
      
              ' determine if the table has header
              Dim hasheader As Boolean
              hasheader = False
              If tbl.Rows.First.HeadingFormat = True Then
                  hasheader = True
              End If
      
              ' get the column to do the sorting on. The column is identified by a comment with the "<RPE_SORT>" content in its first cell
              Dim hcell As Cell
              Dim index As Integer
              pos = 0
              For Each hcell In tbl.Rows.First.Cells
      
                  hcell.Select
                  If Selection.Comments.Count > 0 Then
                      If Selection.Comments.Item(1).Range.Text = "<RPE_SORT>" Then
                          pos = hcell.ColumnIndex
      
                          ' Delete the comment - remove comment from the line below
                          ' Selection.Comments.Item(1).Delete
      
                          Exit For
                      End If
                  End If
              Next
      
              ' sorts the table using the found column
              If pos > 0 Then
                  Dim fldnum As String
                  fldnum = "Column " + CStr(pos)
                  Debug.Print "Sorting on: "; fldnum
      
                  tbl.Select
                  Selection.Sort ExcludeHeader:=hasheader, FieldNumber:=fldnum, SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
              End If
          Next
      End Sub
    3. Salve o arquivo com uma extensão .dot.
  3. Inclua a macro na especificação de documento e gere a saída:
    1. Abra a especificação do documento, se você já tiver uma ou crie uma no aplicativo Launcher.
    2. Expanda Saída, clique com o botão direito em Destino: Word e selecione Configurar saída.
    3. Para Folha de estilo, clique em Procurar para localizar a macro .dot que você criou.
    4. Para Macro, insira o nome da macro.
    5. Gere a saída.

O que Fazer Depois

Salve a macro e a reutilize em qualquer especificação de documento para classificar dados.