Rendezés makró használatával a Microsoft Word dokumentumokhoz

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:

Eljárás

  1. Vegyen fel makró címkét a rendezni kívánt oszlopokhoz:
    1. Nyissa meg a sablont a Document Studio alkalmazásban.
    2. A rendezés alapjául szolgáló oszlop fejléccellájába vegyen fel egy Megjegyzés ikon Megjegyzés elemet.
    3. Kattintson duplán a Megjegyzés elemre, és írja be a következőt: <RPE_SORT>.
    4. Ezt ismételje meg minden egyes olyan táblázatnál a sablonban, amelyet frissíteni akar.
  2. A makró létrehozása:
    1. Nyissa meg a Microsoft Word alkalmazást.
    2. 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
    3. Mentse el a fájlt .dot kiterjesztéssel.
  3. Vegye fel a makrót a dokumentummeghatározásba, és állítsa elő a kimenetet:
    1. Nyissa meg a dokumentummeghatározást, ha már rendelkezik ilyennel, illetve hozzon létre egyet a Launcher alkalmazásban.
    2. 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.
    3. A Stíluslap elemnél kattintson a Tallózás gombra a létrehozott .dot makró megkereséséhez.
    4. A Makró elemnél írja be a makró nevét.
    5. Á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.

Visszajelzés