Word pripombe
Word pripombe
Imam nek revidiran dokument s pripombami pregledovalcev. Kako lahko posebej splotam samo pripombe?
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'
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator