In dit artikel zijn we van plan om 4 snelle manieren weer te geven waarop u revisies op datum in uw Word-document kunt bekijken en accepteren.
Een document kan meerdere revisoren hebben. Daarom moeten deze herzieningen op een andere datum of tijd worden gemaakt. Eerder hebben we besproken hoe u revisies van een specifieke recensent kunt bekijken en accepteren. Laten we u vandaag laten zien hoe u revisies op datum kunt bekijken en accepteren.
3 manieren om revisies op datum te bekijken
Laten we eerst eens kijken naar de 3 manieren om revisies op datum te bekijken.
Methode 1: Activeer het "beoordelingsvenster"
- Klik om te beginnen op het tabblad "Beoordelen".
- Klik vervolgens op de ondersteboven driehoekige knop achter het "beoordelingsvenster".
- Kies vervolgens "Revisievenster horizontaal" in de vervolgkeuzelijst.
Nu zal er onder in het Word-venster een venster opengaan. In het venster staan revisies en datums waarop ze zijn gemaakt.
Methode 2: Extract revisies gemaakt op een specifieke datum
- Klik eerst op het tabblad "Ontwikkelaar" en vervolgens op de opdracht "Visual basic" om de VBA-editor te openen. De alternatieve manier is om op "Alt + F11" te drukken.
- Klik vervolgens op "Normaal" en vervolgens op "Invoegen".
- Kies vervolgens "Module" om een nieuwe in te voegen.
- Dubbelklik op de nieuwe module om het bewerkingsgebied te activeren.
- Plak vervolgens balgcodes:
Sub ExtractRevisionsOfSpecificDate()
Dim objRevision As Revision
Dim objDoc As Document, objNewDoc As Document
Dim dtRevisionDate As Date
Dim strRevisionDate As String
Dim varRevisionType As Variant
Dim objTable As Table
varRevisionType = Array("Replace", "Insert", _
"Property", "Delete", "ParagraphNumber", "NoRevision", "DisplayField", _
"Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _
"ParagraphProperty", "StyleDefinition")
strRevisionDate = InputBox("Input a revision date:")
If strRevisionDate <> "" Then
IsDate (strRevisionDate)
Else
End If
dtRevisionDate = CDate(strRevisionDate)
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc.Range, _
numrows:=1, numcolumns:=3)
nRow = 1
With objTable
.Cell(1, 1).Range.Text = "Page"
.Cell(1, 2).Range.Text = "Line"
.Cell(1, 3).Range.Text = "Revision Type"
For Each objRevision In objDoc.Revisions
If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) = dtRevisionDate Then
.Rows.Add
nRow = nRow + 1
.Cell(nRow, 1).Range.Text = objRevision.Range.Information( _
wdActiveEndAdjustedPageNumber)
.Cell(nRow, 2).Range.Text = objRevision.Range.Information( _
wdFirstCharacterLineNumber)
.Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type)
End If
Next objRevision
End With
End Sub
- Klik vervolgens op "Uitvoeren".
- Nu is er het dialoogvenster. Voer de datum in waarop alle revisies die u wilt bekijken, zijn gemaakt. En klik op "OK".
- Bijgevolg komt er een nieuw document. Daarop staat een tabel met alle revisies van die dag, zoals hieronder:
Methode 3: Revisies vóór een datum extraheren
Mocht u alle revisies die voor een bepaalde datum zijn gemaakt willen exporteren, dan is hier de macro die u kunt uitvoeren.
- Herhaal eerst de eerste 4 stappen van methode 2.
- Plak vervolgens de volgende codes:
Sub ExtractRevisionsBeforeSpecificDate()
Dim objRevision As Revision
Dim objDoc As Document, objNewDoc As Document
Dim dtRevisionDate As Date
Dim strRevisionDate As String
Dim varRevisionType As Variant
Dim objTable As Table
varRevisionType = Array("Replace", "Insert", _
"Property", "Delete", "ParagraphNumber", "NoRevision", "DisplayField", _
"Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _
"ParagraphProperty", "StyleDefinition")
strRevisionDate = InputBox("Input a date:")
If strRevisionDate <> "" Then
IsDate (strRevisionDate)
Else
End If
dtRevisionDate = CDate(strRevisionDate)
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc.Range, _
numrows:=1, numcolumns:=3)
nRow = 1
With objTable
.Cell(1, 1).Range.Text = "Page"
.Cell(1, 2).Range.Text = "Line"
.Cell(1, 3).Range.Text = "Revision Type"
For Each objRevision In objDoc.Revisions
If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) < dtRevisionDate Then
.Rows.Add
nRow = nRow + 1
.Cell(nRow, 1).Range.Text = objRevision.Range.Information( _
wdActiveEndAdjustedPageNumber)
.Cell(nRow, 2).Range.Text = objRevision.Range.Information( _
wdFirstCharacterLineNumber)
.Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type)
End If
Next objRevision
End With
End Sub
- Klik ook op de knop "Uitvoeren".
- Evenzo verschijnt er een dialoogvenster. Voer gewoon de datum in waarvoor alle revisies moeten worden bekeken. Klik vervolgens op "OK".
Accepteer revisies vóór een specifieke datum
- Gebruik de bovenstaande stappen om de VBA-editor te openen en de volgende codes uit te voeren:
Sub AcceptRevisionsBeforeDate()
Dim objRevision As Revision
Dim dtTheDate As Date
Dim strTheDate As String
strTheDate = InputBox("Input the date before which all revisions should be accepted:")
If strTheDate <> "" Then
IsDate (strTheDate)
Else
End If
dtTheDate = CDate(strTheDate)
For Each objRevision In ActiveDocument.Revisions
If objRevision.Date < dtTheDate Then
objRevision.Accept
End If
Next objRevision
End Sub
- Typ een datum in het geopende dialoogvenster en klik op "OK".
Een truc om Word-bestanden te herstellen
Word is gevoelig voor corruptie, waardoor miljoenen bestanden in gevaar komen. Het instorten van een woord kan waardevolle en vertrouwelijke gegevens wegvagen. Je hebt dus een Herstelprogramma voor Word-bestandsproblemen om uw vastzittende gegevens te bevrijden.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte xls data fix tool en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com