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“
- K start s, kliknite na kartu „Skontrolovať“.
- Potom kliknite na tlačidlo prevráteného trojuholníka za „talou na kontrolu“.
- 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
- 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“.
- Potom kliknite na „Normálny“ a potom na „Vložiť“.
- Ďalej zvoľte „Modul“ a vložte nový.
- Dvojitým kliknutím na nový modul aktivujete oblasť úprav.
- 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
- Ďalej kliknite na „Spustiť“.
- Teraz je tu dialógové okno. Zadajte dátum vykonania všetkých revízií, ktoré chcete zobraziť. A kliknite na „OK“.
- 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ť.
- Najskôr zopakujte prvé 4 kroky v metóde 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
- Kliknite tiež na tlačidlo „Spustiť“.
- 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
- 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
- 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