Word pripombe

[deraleks]

Imam nek revidiran dokument s pripombami pregledovalcev. Kako lahko posebej splotam samo pripombe?

[deraleks]

Oziroma, kako lahko iz plota pripomb naredim wordov dokument?

[admin]

Tukaj je malce problemov zato Word tega tudi nima splošno rešenega. Vprašanje je koliko teksta bi moralo biti ob opombah, saj se opombe nanašajo na konkreten tekst... Spodaj imate makro, ki vam bo naredil tisto, kar ste najprej želeli; torej natisnil samo tiste strani, kjer so opombe.

Makro ni moj temveč ga je napisala oseba z nazivom 'fumei'

Koda: Izberi vse

Option Explicit 
Sub PrintRevisionPagesOnly() 
     '  Print only pages with recorded revisions
     '  keyboard shortcut = Alt-P
     '  NOTE: if Track Changes is not enabled there ARE
     '  no recorded revisions.  If Track Changes not enabled
     '  the code offers to enable it.
    Dim oRange As Word.Range 
    Dim intPageCount As Integer 
    Dim var 
    Dim response 
     
    If ActiveDocument.Range.Revisions.Count > 0 Then 
        intPageCount = _ 
        ActiveDocument.Range.Information(wdNumberOfPagesInDocument) 
        Selection.HomeKey Unit:=wdStory 
        On Error Resume Next 
        For var = 1 To intPageCount 
            Set oRange = _ 
            ActiveDocument.Range _ 
            (Start:=ActiveDocument.Bookmarks("\page").Start, _ 
            End:=ActiveDocument.Bookmarks("\page").End - 1) 
            If oRange.Revisions.Count > 0 Then 
                Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, _ 
                Item:=wdPrintDocumentWithMarkup, Copies:=1, Pages:="" 
                Selection.GoToNext wdGoToPage 
            Else 
                Selection.GoToNext wdGoToPage 
            End If 
            Set oRange = Nothing 
        Next 
    Else 
        Select Case ActiveDocument.TrackRevisions 
        Case False 
            response = MsgBox("There are no recorded revisions in this " & _ 
            "document.  Track Changes is not enabled.  Would " & _ 
            "you like to turn Track Changes on?", vbYesNo) 
            If response = vbYes Then ActiveDocument.TrackRevisions = True 
        Case True 
            MsgBox "There are no tracked revisions in this document." 
        End Select 
    End If 
End Sub