Makro použijte k řazení, není-li vlastnosti, kterou byste chtěli použít, v okně pro řazení k dispozici.
Než začnete
Poznámka: Toto téma platí pouze pro šablony, které byly vygenerované do dokumentů
Microsoft Word.
Informace o této úloze
Výhody použití makra k řazení:
- Makro lze spustit v libovolné tabulce šablony.
- Pokud některá tabulka v sobě používá komentář <RPE_SORT>, tato tabulka se seřadí.
- Tabulky, které nepoužívají komentář <RPE_SORT>, se neseřadí.
- Komentář <RPE_SORT> lze z konečného výstupu odstranit.
Postup
- Přidejte jmenovku makra ke sloupcům, které se mají seřadit:
- Otevřete šablonu v aplikaci Document Studio.
- V buňce záhlaví sloupce, který chcete seřadit, přidejte prvek komentáře
.
- Poklepejte na prvek Komentáře a zadejte <RPE_SORT>.
- Opakujte u každé tabulky v šabloně, a aktualizujte je tak.
- Vytvořte makro:
- Otevřete aplikaci Microsoft Word.
- Okopírujte a vložte následující skript do souboru:
' Macro: sort tables
' Toto makro je k dispozici tak, jak je, bez jakékoliv explicitní nebo implicitní podpory od IBM.
Sub sortTables()
Dim tbl As Table
' seřadit každou tabulku
For Each tbl In ActiveDocument.Tables
' určit, zda má tabulka záhlaví
Dim hasheader As Boolean
hasheader = False
If tbl.Rows.First.HeadingFormat = True Then
hasheader = True
End If
' získat sloupec, ve kterém se má provést řazení. Sloupec je určen komentářem v první buňce obsahujícím "<RPE_SORT>"
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
' Odstranit komentář - odebrat komentář z níže uvedeného řádku
' Selection.Comments.Item(1).Delete
Exit For
End If
End If
Next
' seřadit tabulku pomocí nalezeného sloupce
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
- Soubor uložte s příponou .dot.
- Do specifikace dokumentu přidejte makro a vygenerujte výstup:
- Otevřete specifikaci dokumentu, pokud již nějakou máte, nebo vytvořte novou ve Spouštěcím programu aplikací.
- Rozbalte volbu Výstup, klepněte pravým tlačítkem myši na volbu Cíl:
Word a vyberte volbu Konfigurovat výstup.
- U volby Šablona stylů klepněte na tlačítko Procházet a vyhledejte vytvořené makro
.dot.
- Do volby Macro zadejte název makra.
- Vygenerujte výstup.
Jak pokračovat dále
Uložte makro a znovu ho použijte v libovolné specifikaci dokumentu k řazení dat.