W tym artykule planujemy wyświetlić 4 szybkie sposoby przeglądania i akceptowania poprawek według daty w dokumencie programu Word.
Dokument może mieć wielu recenzentów. W związku z tym zmiany te muszą zostać dokonane w innym terminie lub czasie. Wcześniej mówiliśmy o tym, jak przeglądać i akceptować poprawki od określonego recenzenta. Dzisiaj pokażemy, jak przeglądać i akceptować poprawki według daty.
3 sposoby przeglądania wersji według daty
Najpierw przyjrzyjmy się trzem sposobom przeglądania wersji według daty.
Metoda 1: Uruchom „Panel recenzji”
- Aby rozpocząć, kliknij zakładkę „Recenzja”.
- Następnie kliknij przycisk odwróconego trójkąta za „Panem recenzji”.
- Następnie z rozwijanej listy wybierz „Reviewing Pane Horizontal”.
Teraz na dole okna programu Word powinno być otwarte okno. W oknie znajdują się rewizje i daty ich wykonania.
Metoda 2: Wyodrębnij poprawki wprowadzone w określonym dniu
- Przede wszystkim kliknij zakładkę „Programista”, a następnie polecenie „Visual basic”, aby otworzyć edytor VBA. Alternatywnym sposobem jest naciśnięcie „Alt + F11”.
- Następnie kliknij „Normalne”, a następnie „Wstaw”.
- Następnie wybierz „Moduł”, aby wstawić nowy.
- Kliknij dwukrotnie nowy moduł, aby aktywować obszar edycji.
- Następnie wklej następujące kody:
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
- Następnie kliknij „Uruchom”.
- Teraz jest okno dialogowe. Wprowadź datę wprowadzenia wszystkich poprawek, które chcesz wyświetlić. I kliknij „OK”.
- W związku z tym pojawi się nowy dokument. Na nim znajduje się tabela zawierająca wszystkie wersje z tego dnia, takie jak poniżej:
Metoda 3: Wyodrębnij wersje przed datą
Jeśli chcesz wyeksportować wszystkie wersje utworzone przed datą, oto makro, które możesz uruchomić.
- Najpierw powtórz pierwsze 4 kroki w metodzie 2.
- Następnie wklej zamiast tego następujące kody:
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
- Kliknij również przycisk „Uruchom”.
- Podobnie pojawia się okno dialogowe. Po prostu wprowadź datę, przed którą wszystkie wersje mają zostać wyświetlone. Następnie kliknij „OK”.
Zaakceptuj poprawki przed określoną datą
- Wykonaj powyższe kroki, aby otworzyć edytor VBA i uruchomić następujące kody:
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
- W otwartym oknie dialogowym wpisz datę i kliknij „OK”.
Sztuczka do odzyskiwania plików Word
Program Word jest wrażliwy na uszkodzenia, przez co miliony plików są zagrożone. Zwinięcie programu Word może spowodować wymazanie cennych i poufnych danych. Potrzebujesz zatem a Narzędzie do odzyskiwania problemów z plikami Word aby uwolnić uwięzione dane.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzone narzędzie do naprawy danych xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com