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:
- A macro pode ser executada em qualquer tabela no modelo.
- Se qualquer tabela usar o
comentário <RPE_SORT>, essa tabela será
classificada.
- Tabelas que não usam o
comentário <RPE_SORT> não são
classificadas.
- O comentário <RPE_SORT> pode
ser excluído da saída final.
Procedimento
- Inclua um rótulo de macro nas colunas a serem classificadas:
- Abra o modelo no aplicativo Document Studio.
- Na célula de cabeçalho da coluna na qual classificar,
inclua um elemento Comentário
.
- Dê um clique duplo no elemento Comentário e insira <RPE_SORT>.
- Repita em cada tabela no modelo a ser atualizado.
- Crie a macro:
- Abra o Microsoft Word.
- 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
- Salve o arquivo com uma extensão .dot.
- Inclua a macro na especificação de documento e gere a
saída:
- Abra a especificação do documento, se você já tiver uma ou crie
uma no aplicativo Launcher.
- Expanda Saída, clique com o botão direito
em Destino: Word e selecione
Configurar saída.
- Para Folha de estilo, clique em
Procurar para localizar a macro
.dot que você criou.
- Para Macro, insira o nome da macro.
- Gere a saída.
O que Fazer Depois
Salve a macro e a reutilize em qualquer especificação de
documento para classificar dados.