Sziasztok!
(Külön Üdv Localhostnak, Veletechen összefutottunk )

Próba cseresznye...
Címszó: Word, track changes, dátum, makró.

Olyan gonddal szenvedek Word 2010-ben, hogy van egy rakás nagy dokumentum, bennük több reviziónyi track changes, dokumentumonként több száz, néhol közel ezer. Namármost ezek közül egy adott dátumnál korábbiakat, mivel a dokumentum azon verziója el lett fogadva, nem kéne már tovább mutatni.
Az elmebaj felé tendáló manuális megoldás helyett makrók után kezdtem nézelődni.
A neten egy-két ilyen témájút találtam, azok közül is ez tűnt a leglogikusabbnak:

Sub AcceptRevisionsBeforeDate()
Dim oRev As Revision
Dim oKeepDate As Date
Dim strRsp As String

While Not IsDate(strRsp)
strRsp = InputBox("Enter earliest date to keep", _
"Accept Changes Before Date", _
"10 May 2013")
If Len(strRsp) = 0 Then Exit Sub
Wend
oKeepDate = CDate(strRsp)

For Each oRev In ActiveDocument.Revisions
If oRev.Date < oKeepDate Then
oRev.Accept
End If
Next oRev
End Sub

A gond mindössze annyi, hogy sajnos szelektíven működik. Elég sok olyat is elfogadott, ami a megadottnál később lett szerkesztve; s olyan is volt, amit viszont benne hagyott, pedig korábbi volt...
Valakinek esetleg van tippje, hogy mi a gebasz?
Előre is köszi!

Fotóim és kalandjaim a világ körül: https://www.facebook.com/fmartinphoto/