4 nopeaa tapaa tarkastella ja hyväksyä päivityksiä Word-asiakirjassa päivämäärän mukaan

Tässä artikkelissa aiomme näyttää neljä nopeaa tapaa tarkastella ja hyväksyä päivityksiä Word-asiakirjassa.

Asiakirjalla voi olla useita tarkastajia. Siksi nämä muutokset on tehtävä eri päivinä tai kellonaikoina. Aiemmin olemme puhuneet siitä, kuinka tarkastella ja hyväksyä tarkistuksia tietyltä tarkistajalta. Näytetään tänään, kuinka tarkastella ja hyväksyä versioita päivämäärän mukaan.

3 tapaa tarkastella versioita päivämäärän mukaan

Katsotaan ensin ensin kolme tapaa tarkastella versioita päivämäärän mukaan.

Tapa 1: Käynnistä "Tarkastusruutu"

1. Aloita napsauttamalla ”Arvostelu”-välilehteä.
2. Napsauta sitten ylösalaisin kolmiopainiketta “Tarkastusruudun” takana.
3. Valitse seuraavaksi avattavasta luettelosta "Tarkistetaan ruudun vaaka".

Nyt Word-ikkunan alaosassa on ikkuna auki. Ikkunassa on tarkistukset ja päivämäärät, jolloin ne tehdään.

Tapa 2: Pura tarkistukset, jotka on tehty tiettynä päivänä

1. Napsauta ensin "Kehittäjä" -välilehteä ja sitten "Visual basic" -komentoa avataksesi VBA-editorin. Vaihtoehtoinen tapa on painaa “Alt + F11”.
2. Napsauta sitten “Normal” ja sitten “Insert”.
3. Valitse sitten "Moduuli" lisätäksesi uuden.
4. Kaksoisnapsauta uutta moduulia aktivoidaksesi muokkausalueen.
5. Liitä sitten jyrkät koodit:

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. Napsauta sitten ”Suorita”.
7. Nyt on valintaikkuna. Anna päivämäärä, jona kaikki tarkasteltavat muutokset tehdään. Napsauta “OK”.
8. Näin ollen tulee olemaan uusi asiakirja. Siinä on taulukko, joka sisältää kaikki kyseisen päivän tarkistukset, kuten alla:

Tapa 3: Pura versiot ennen päivämäärää

Jos haluat viedä kaikki ennen päivämäärää luodut versiot, tässä on suoritettava makro.

1. Toista aluksi 4 ensimmäistä vaihetta menetelmässä 2.
2. Liitä sitten seuraavat koodit sen sijaan:

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. Napsauta myös Suorita-painiketta.
4. Vastaavasti avautuu valintaikkuna. Syötä vain päivämäärä, jota ennen kaikki versiot ovat tarkasteltavissa. Napsauta sitten “OK”.

Hyväksy muutokset ennen tiettyä päivämäärää

1. Avaa yllä olevat vaiheet avataksesi VBA-editorin ja suorittamalla seuraavat koodit:

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. Kirjoita avautuvaan valintaikkunaan päivämäärä ja napsauta “OK”.

Temppu Word-tiedostojen palauttamiseksi

Word on herkkä korruptiolle, joten miljoonat tiedostot ovat vaarassa. Sanan romahdus voi pyyhkiä pois arvokkaita ja luottamuksellisia tietoja. Siksi tarvitset Word-tiedoston ongelman palautustyökalu vapauttaa loukkuun jääneet tiedot.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vioittunut xls-tietojen korjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com