Makró használatával végezhet rendezést, amikor a használni
kívánt tulajdonság nem érhető el a rendezés ablakban.
Mielőtt elkezdené
Megjegyzés: A témakör csak a
Microsoft Word dokumentumokba
előállított sablonokra vonatkozik.
Erről a feladatról
Ha makró használatával végez rendezést, annak az alábbi előnyei
vannak:
- A makró a sablon bármely táblázatára futtatható.
- Ha valamelyik táblázatban szerepel az
<RPE_SORT> megjegyzés, akkor rendezésre kerül
az adott táblázat.
- Az <RPE_SORT> megjegyzést nem használó
táblázatok nem kerülnek rendezésre.
- Az <RPE_SORT> megjegyzés törölhető a
végső kimenetből.
Eljárás
- Vegyen fel makró címkét a rendezni kívánt oszlopokhoz:
- Nyissa meg a sablont a Document Studio alkalmazásban.
- A rendezés alapjául szolgáló oszlop fejléccellájába vegyen fel egy
Megjegyzés elemet.
- Kattintson duplán a Megjegyzés elemre, és írja be a következőt:
<RPE_SORT>.
- Ezt ismételje meg minden egyes olyan táblázatnál a sablonban, amelyet
frissíteni akar.
- A makró létrehozása:
- Nyissa meg a Microsoft
Word alkalmazást.
- Másolja le és illessze be az alábbi parancsfájlt a fájlba:
' Makró: táblázatok rendezése
' A makró önmagában áll rendelkezésre, az IBM implicit vagy explicit támogatása nélkül.
Sub sortTables()
Dim tbl As Table
' az egyes táblázatok rendezése
For Each tbl In ActiveDocument.Tables
' annak megállapítása, hogy a táblázat rendelkezik-e fejléccel
Dim hasheader As Boolean
hasheader = False
If tbl.Rows.First.HeadingFormat = True Then
hasheader = True
End If
' A rendezés alapjául szolgáló oszlop beolvasása. Az oszlopot az első cellában található "<RPE_SORT>" tartalmú megjegyzés azonosítja.
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
' A megjegyzés törlése - távolítsa el a megjegyzést az alábbi sorból
' Selection.Comments.Item(1).Delete
Exit For
End If
End If
Next
' rendezi a táblázatot a talált oszlop használatával
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
- Mentse el a fájlt .dot kiterjesztéssel.
- Vegye fel a makrót a dokumentummeghatározásba, és állítsa elő a
kimenetet:
- Nyissa meg a dokumentummeghatározást, ha már rendelkezik ilyennel,
illetve hozzon létre egyet a Launcher alkalmazásban.
- Bontsa ki a Kimenet elemet, kattintson a jobb
egérgombbal a Cél: Word elemre, majd válassza az
előugró menü Kimenet konfigurálása menüpontját.
- A Stíluslap elemnél kattintson a
Tallózás gombra a létrehozott
.dot makró megkereséséhez.
- A Makró elemnél írja be a makró nevét.
- Állítsa elő a kimenetet.
Mi a következő lépés?
Mentse el a makrót és használja azt bármely
dokumentummeghatározásban az adatok rendezéséhez.