Në këtë artikull, ne planifikojmë të shfaqim 4 mënyra të shpejta për ju për të parë dhe pranuar rishikimet sipas datës në dokumentin tuaj Word.
Një dokument mund të ketë rishikues të shumtë. Prandaj, këto rishikime duhet të bëhen në data ose orë të ndryshme. Më parë, ne kemi folur se si të shikojmë dhe pranojmë rishikime nga një recensues specifik. Sot, le t'ju tregojmë se si të shikoni dhe pranoni rishikimet sipas datës.
3 mënyra për të parë rishikimet sipas datës
Së pari, le të hedhim një vështrim në 3 mënyrat për të parë rishikimet sipas datës.
Metoda 1: Aktivizoni "Panelin e rishikimit"
- Për të filluar, klikoni në skedën "Rishikim".
- Pastaj klikoni butonin e trekëndëshit me kokë poshtë prapa "Panës së Rishikimit".
- Pastaj zgjidhni "Rishikimi i Panelit Horizontal" në listën rënëse.
Tani do të ketë një dritare të hapur në fund të dritares Word. Në dritare janë rishikimet dhe datat në të cilat janë bërë.
Metoda 2: Ekstrakt rishikimet e bëra në një datë specifike
- Para së gjithash, klikoni në skedën "Zhvillues" dhe më pas komandën "Visual basic" për të hapur redaktorin VBA. Mënyra alternative është të shtypni "Alt+ F11".
- Pastaj klikoni "Normal" dhe më pas "Fut".
- Pastaj zgjidhni "Modul" për të futur një të ri.
- Klikoni dy herë në modulin e ri për të aktivizuar zonën e redaktimit.
- Pastaj ngjitni kodet e mëposhtme:
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
- Tjetra, klikoni "Run".
- Tani ka kutinë e dialogut. Futni datën në të cilën janë bërë të gjitha rishikimet që dëshironi të shikoni. Dhe klikoni "OK".
- Rrjedhimisht, do të ketë një dokument të ri. Në të është një tabelë që përfshin të gjitha rishikimet e asaj dite, si më poshtë:
Metoda 3: Ekstraktoni rishikimet përpara një date
Në rast se mund të dëshironi të eksportoni të gjitha rishikimet e krijuara përpara një date, këtu është makroja që mund të ekzekutoni.
- Në fillim, përsëritni 4 hapat e parë në metodën 2.
- Pastaj ngjisni kodet e mëposhtme në vend:
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
- Klikoni gjithashtu në butonin "Run".
- Në mënyrë të ngjashme, shfaqet një kuti dialogu. Thjesht futni datën para së cilës nevojiten të gjitha rishikimet për t'u parë. Pastaj klikoni "OK".
Pranoni rishikimet përpara një date specifike
- Përdorni hapat e mësipërm për të hapur redaktorin VBA dhe ekzekutoni kodet e mëposhtme:
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
- Në kutinë e dialogut të hapur, shkruani një datë dhe klikoni "OK".
Një truk për të rikuperuar skedarët Word
Word është i ndjeshëm ndaj korrupsionit, duke lënë në rrezik miliona skedarë. Kolapsi i fjalës mund të fshijë të dhëna të vlefshme dhe konfidenciale. Kështu, ju duhet një Mjet për rikuperimin e problemit të skedarit Word për të çliruar të dhënat tuaja të bllokuara.
Hyrje e autorit:
Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë mjet i korruptuar i rregullimit të të dhënave xls pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com