4 gyors módszer a Word-dokumentum módosításainak dátum szerinti megtekintésére és elfogadására

Ebben a cikkben 4 gyors módot szeretnénk megjeleníteni, amelyek segítségével dátum szerint tekintheti meg és fogadhatja el a változatokat a Word-dokumentumban.

Egy dokumentumnak több lektora is lehet. Ezért ezeket a módosításokat más dátumban vagy időpontban kell elvégezni. Korábban már beszéltünk arról, hogyan tekintheti meg és fogadhatja el a felülvizsgálatokat egy adott lektortól. Ma megmutatjuk, hogyan tekintheti meg és fogadhatja el a módosításokat dátum szerint.

3 mód a változatok dátum szerinti megtekintéséhez

Először is vessünk egy pillantást a revíziók dátum szerinti megtekintésének 3 módjára.

1. módszer: Indítsa el az „Áttekintő ablaktáblát”

1. Kezdéshez kattintson az „Áttekintés” fülre.
2. Ezután kattintson a fejjel lefelé mutató háromszög gombra az „Áttekintő ablak” mögött.
3. Ezután válassza ki a „Reviewing Pane Horizontal” lehetőséget a legördülő listából.

Most meg kell nyílnia egy ablaknak a Word ablakának alján. Az ablakban a revíziók és a készítés dátumai láthatók.

2. módszer: Adott napon végzett módosítások kivonata

1. Először kattintson a „Fejlesztő” fülre, majd a „Visual basic” parancsra a VBA-szerkesztő megnyitásához. Másik lehetőség az „Alt+F11” lenyomása.
2. Ezután kattintson a „Normál”, majd a „Beszúrás” gombra.
3. Ezután válassza a „Modul” lehetőséget egy új beillesztéséhez.
4. Kattintson duplán az új modulra a szerkesztési terület aktiválásához.
5. Ezután illessze be a következő kódokat:

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

6. Ezután kattintson a „Futtatás” gombra.
7. Most ott van a párbeszédpanel. Adja meg azt a dátumot, amikor a megtekinteni kívánt összes módosítás elkészült. És kattintson az „OK” gombra.
8. Következésképpen új dokumentum lesz. Rajta van egy táblázat, amely tartalmazza az adott nap összes változatát, például az alábbiakat:

3. módszer: Változatok kibontása egy dátum előtt

Abban az esetben, ha exportálni szeretne egy dátum előtt létrehozott összes változatot, itt a futtatható makró.

1. Először ismételje meg a 4. módszer első 2 lépését.
2. Ezután illessze be helyette a következő kódokat:

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

3. Kattintson a „Futtatás” gombra is.
4. Hasonlóképpen megjelenik egy párbeszédpanel. Csak adja meg a dátumot, amely előtt minden módosításra szükség van a megtekintéséhez. Ezután kattintson az „OK” gombra.

Fogadja el a módosításokat egy adott dátum előtt

1. A fenti lépésekkel nyissa meg a VBA-szerkesztőt, és futtassa a következő kódokat:

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

2. A megnyíló párbeszédpanelen írja be a dátumot, és kattintson az „OK” gombra.

Trükk a Word-fájlok helyreállításához

A Word érzékeny a korrupcióra, így több millió fájl kerül veszélybe. A Word összeomlása értékes és bizalmas adatokat törölhet. Így szüksége van a Word fájl probléma helyreállítási eszköz hogy felszabadítsa a beszorult adatait.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült xls adatjavító eszköz és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com