4 rýchle spôsoby zobrazenia a prijatia revízií podľa dátumu v dokumente Word

V tomto článku plánujeme zobraziť 4 rýchle spôsoby, ako zobraziť a prijať revízie podľa dátumu v dokumente programu Word.

Dokument môže mať viacero recenzentov. Preto sa tieto revízie musia vykonať v inom dátume alebo čase. Predtým sme hovorili o tom, ako zobraziť a prijať revízie od konkrétneho recenzenta. Dnes si ukážeme, ako zobraziť a prijať revízie podľa dátumu.

3 spôsoby zobrazenia revízií podľa dátumu

Najprv sa pozrime na 3 spôsoby zobrazenia revízií podľa dátumu.

Metóda 1: Spustite „tabuľu kontroly“

1. K start s, kliknite na kartu „Skontrolovať“.
2. Potom kliknite na tlačidlo prevráteného trojuholníka za „talou na kontrolu“.
3. Potom v rozbaľovacom zozname vyberte možnosť „Vodorovný panel kontroly“.

Teraz bude v spodnej časti okna programu Word otvorené okno. V okne sú revízie a dátumy, ku ktorým sa robia.

Metóda 2: Výpis revízií vykonaných v konkrétny dátum

1. Najprv kliknite na kartu „Vývojár“ a potom na príkaz „Visual basic“ a otvorte editor VBA. Alternatívnym spôsobom je stlačiť „Alt+ F11“.
2. Potom kliknite na „Normálny“ a potom na „Vložiť“.
3. Ďalej zvoľte „Modul“ a vložte nový.
4. Dvojitým kliknutím na nový modul aktivujete oblasť úprav.
5. Potom vložte nasledujúce kódy:

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", "Ins", "Ins", "Ins" Delete", "ParagraphNumber", "NoRevision", "DisplayField", _ "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _ "ParagraphProperty", "StyleDefinition") strRevisionDate = InputBox(" Zadajte dátum revízie:") If strRevisionDate <> "" Then IsDate (strRevisionDate) Else End If dtRevisionDate = CDate(strRevisionDate) Set objDoc = ActiveDocument Set objNewDoc = Documents.Add Set objTable = objNewDoc.Tables.Add(NewDoc:=ob .Range, _ numrows:=1, numcolumns:=3) nRow = 1 S objTable .Cell(1, 1).Range.Text = "Stránka" .Cell(1, 2).Range.Text = "Line" . Cell(1, 3).Range.Text = "Typ revízie" pre každú objRevision In objDoc.Revisions If CDate(Left(Format(objRevision.Date, "MM/dd/rrrr"), 10)) = dtRevisionDate Then .Rows .Add nRow = nRow + 1 .Cell(nRow, 1).Range.Text = objRevision.Range.Information( _ wdActiveEndAdjustedPageNumber) .Cell(nRow, 2).Range.Text = objRevision.Range.wdNeracrst.LidneCharst. Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type) End If Next objRevision End With End Sub

6. Ďalej kliknite na „Spustiť“.
7. Teraz je tu dialógové okno. Zadajte dátum vykonania všetkých revízií, ktoré chcete zobraziť. A kliknite na „OK“.
8. V dôsledku toho bude existovať nový dokument. Na ňom je tabuľka so všetkými revíziami toho dňa, ako napríklad nižšie:

Metóda 3: Výpis revízií pred dátumom

V prípade, že by ste chceli exportovať všetky revízie vytvorené pred dátumom, tu je makro, ktoré môžete spustiť.

1. Najskôr zopakujte prvé 4 kroky v metóde 2.
2. Potom namiesto toho prilepte nasledujúce kódy:

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", "In Delete", "ParagraphNumber", "NoRevision", "DisplayField", _ "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _ "ParagraphProperty", "StyleDefinition") strRevisionDate = InputBox(" Zadajte dátum:") If strRevisionDate <> "" Then IsDate (strRevisionDate) Else End If dtRevisionDate = CDate(strRevisionDate) Set objDoc = ActiveDocument Set objNewDoc = Documents.Add Set objTable = objNewDoc.Tables.Add(Range:=objNew Rozsah, _ numrows:=1, numcolumns:=3) nRow = 1 S objTable .Cell(1, 1).Range.Text = "Stránka" .Cell(1, 2).Range.Text = "Line" .Cell (1, 3).Range.Text = "Typ revízie" pre každú objRevision v objDoc.Revisions If CDate(Left(Format(objRevision.Date, "MM/dd/rrrr"), 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.CNChellneLirster) (nRow, 3).Range.Text = varRevisionType(objRevision.Type) End If Next objRevision End With End Sub

3. Kliknite tiež na tlačidlo „Spustiť“.
4. Podobne sa zobrazí dialógové okno. Stačí zadať dátum, pred ktorým je potrebné zobraziť všetky revízie. Potom kliknite na „OK“.

Prijmite revízie pred konkrétnym dátumom

1. Pomocou vyššie uvedených krokov otvorte editor VBA a spustite nasledujúce kódy:

Sub AcceptRevisionsBeforeDate() Dim objRevision As Revision Dim dtTheDate As Date Dim strTheDate As String strTheDate = InputBox("Zadajte dátum, pred ktorým by mali byť prijaté všetky revízie:") If strTheDate <> "" Then IsDate (strTheDate) Else End = If dtTheDate CDate(strTheDate) pre každý objRevision v ActiveDocument.Revisions If objRevision.Date < dtTheDate Then objRevision.Accept End If Next objRevision End Sub

2. V otvorenom dialógovom okne zadajte dátum a kliknite na „OK“.

Trik na obnovenie súborov programu Word

Word je citlivý na korupciu, a preto ohrozuje milióny súborov. Zrútenie slov môže vymazať cenné a dôverné údaje. Preto potrebujete a Nástroj na obnovenie problémov so súbormi programu Word na uvoľnenie zachytených údajov.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený nástroj na opravu údajov xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S