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"
- Aan start met, klik op het tabblad "Herzien".
- 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", " Verwijder "," AlineaNummer "," NoRevision "," DisplayField ", _" Conflict "," Reconcile "," Style "," TableProperty "," SectionProperty ", _" Alinea-eigenschap "," StyleDefinition ") strRevisionDate = InputBox (" Voer een revisiedatum in: ") If strRevisionDate <>" "Dan IsDate (strRevisionDate) Else End If dtRevisionDate = CDate (strRevisionDate) Set objDoc = ActiveDocument Set objNewDoc = Documents.Add Set objTable = objNewDoc.Tables.Add (Range: .Range, _ numrows: = 1, aantalcolumns: = 3) nRow = 1 Met objTable .Cell (1, 1) .Range.Text = "Page" .Cell (1, 2) .Range.Text = "Line". Cell (1, 3) .Range.Text = "Revisietype" voor elke objRevision In objDoc.Revisions If CDate (Left (Format (objRevision.Date, "MM / dd / jjjj"), 10)) = dtRevision Datum Dan .Rijen.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", " Verwijder "," AlineaNummer "," NoRevision "," DisplayField ", _" Conflict "," Reconcile "," Style "," TableProperty "," SectionProperty ", _" Alinea-eigenschap "," StyleDefinition ") strRevisionDate = InputBox (" Voer een datum in: ") If strRevisionDate <>" "Dan IsDate (strRevisionDate) Else End If dtRevisionDate = CDate (strRevisionDate) Set objDoc = ActiveDocument Set objNewDoc = Documents.Add Set objTable = objNewDoc.Tables.Adjd (Range: =. Bereik, _ numrows: = 1, numcolumns: = 3) nRow = 1 Met objTable .Cell (1, 1) .Range.Text = "Page" .Cell (1, 2) .Range.Text = "Line" .Cell (1, 3) .Range.Text = "Revision Type" voor elke objRevision In objDoc.Revisions If CDate (Left (Format (objRevision.Date, "MM / dd / jjjj"), 10)) <dtRevisionDate Dan .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 ("Voer de datum in waarvoor alle revisies geaccepteerd moeten worden:") If strTheDate <> "" Then IsDate (strTheDate) Else End If dtTheDate = CDate (strTheDate) Voor elke 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