Sortering kommentarer etter dato

April 7  by Eliza

Hamed har et dokument som har mange forskjellige kommentarer satt inn i hele det. Han ønsker å sortere kommentarene etter dato, slik at han kan få en oversikt over hvordan de ble lagt til i dokumentet. Han lurer på om det er en måte å gjøre dette.

Det er ingen måte å sortere kommentarer etter dato i et dokument. Det er et par måter du kan omgå dette, men for å få til det du ønsker. Den første måten er å bare skrive ut kommentarer i dokumentet. Hvordan du gjør dette er blitt dekket i andre saker av WordTips. Når du skriver ut kommentarene, vises de i utskriften-automatisk-i kronologisk rekkefølge.

Hvis du trenger mer enn en utskrift, men du kan også bruke en makro til å trekke alle kommentarene og plassere dem i et nytt dokument. Kommentarene kan plasseres i dokumentet i den rekkefølgen du ønsker, selv kronologisk. Følgende er et eksempel på en slik makro. Det trekker kommentarene fra originaldokumentet og plasserer dem i en tabell i et nytt dokument. Tabellen er deretter sortert etter dato.

Sub ExtractComments ()
Dim oThisDoc Som Document
Dim oThatDoc Som Document
Dim oTable Som tabell
Dim nCount Som Long
Dim n Som Long

On Error GoTo ExitHere

Satt oThisDoc = ActiveDocument

"Komme kommentar count
nCount = ActiveDocument.Comments.Count

«Exit hvis det finnes ingen kommentarer
Hvis nCount = 0 Then
MsgBox "Ingen kommentarer i dokumentet"
GoTo ExitHere
End If

Application.ScreenUpdating = False

Opprett et nytt dokument for kommentarer
Satt oThatDoc = Documents.Add

«Sett til landskapet
oThatDoc.PageSetup.Orientation = wdOrientLandscape

'Sett inn en tabell 5-kolonnen for kommentarer
Satt oTable = oThatDoc.Tables.Add _
(Range: = Selection.Range, _
NumRows: = nCount + 1, NumColumns: = 5)

'Formater tabellen hensiktsmessig
Med oTable
.Range.Style = WdStyleNormal
.AllowAutoFit = False
.PreferredWidthType = WdPreferredWidthPercent
.PreferredWidth = 110
.Columns (1) .PreferredWidth = 15
.Columns (2) .PreferredWidth = 5
.Columns (3) .PreferredWidth = 35
.Columns (4) .PreferredWidth = 35
.Columns (5) .PreferredWidth = 20
.Rows (1) .HeadingFormat = True
Avslutt med

'Sett tabelloverskriftene
Med oTable.Rows (1)
.Range.Font.Bold = True
.Cells (1) .Range.Text = "Dato"
.Cells (2) .Range.Text = "Side"
.Cells (3) .Range.Text = "Kommentar Scope"
.Cells (4) .Range.Text = "Kommentar"
.Cells (5) .Range.Text = "forfatter"
Avslutt med

"Få informasjon fra hver kommentar fra oThisDoc og sett i tabellen
For n = 1 Til nCount
Med oTable.Rows (n + 1)
.Cells (1) .Range.Text = Format (oThisDoc.Comments (n) .Date, _
"M / d / åå h: m AM / PM")
.Cells (2) .Range.Text = oThisDoc.Comments (n) .Scope _
.information (WdActiveEndPageNumber)
.Cells (3) .Range.Text = oThisDoc.Comments (n) .Scope
.Cells (4) .Range.Text = oThisDoc.Comments (n) .Range.Text
.Cells (5) .Range.Text = oThisDoc.Comments (n) .Author
Avslutt med
Neste n

'Sortere tabellen etter dato stigende
oThatDoc.Tables (1) .Velg
Selection.Sort ExcludeHeader: = True, FieldNumber: = "Kolonne 1", _
SortFieldType: = wdSortFieldDate, sortering: = wdSortOrderAscending
Selection.Collapse

Application.ScreenUpdating = True
Application.ScreenRefresh

oThatDoc.Activate

ExitHere:
Satt oThisDoc = Nothing
Satt oThatDoc = Nothing
Satt oTable = Nothing
On Error GoTo 0
End Sub

Listen makro er en forenklet og tilpasset versjon av en mer komplett makro skrevet av Lene Fredborg, som du finner her:

http://www.thedoctools.com/index.php?show=mt_comments_extract

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (11217) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Sortering kommentarer etter dato.