ამ სტატიაში ჩვენ ვგეგმავთ გამოვაჩინოთ 4 სწრაფი გზა, რომ ნახოთ და მიიღოთ ცვლილებები თარიღის მიხედვით თქვენს Word დოკუმენტში.
დოკუმენტს შეიძლება ჰყავდეს მრავალი განმხილველი. ამიტომ, ეს ცვლილებები უნდა განხორციელდეს სხვადასხვა თარიღსა და დროს. ადრე, ჩვენ ვისაუბრეთ იმაზე, თუ როგორ უნდა ნახოთ და მივიღოთ შესწორებები კონკრეტული მიმომხილველისგან. დღეს, მოდით გაჩვენოთ, თუ როგორ უნდა ნახოთ და მიიღოთ ცვლილებები თარიღის მიხედვით.
3 გზა, რომ ნახოთ ვერსიები თარიღის მიხედვით
პირველ რიგში, მოდით შევხედოთ 3 გზას, რომ ნახოთ ვერსიები თარიღის მიხედვით.
მეთოდი 1: ჩართეთ „განხილვის პანელი“
- დასაწყებად, დააჭირეთ ღილაკს „მიმოხილვა“.
- შემდეგ დააწკაპუნეთ თავდაყირა სამკუთხედის ღილაკზე „განხილვის პანელის“ უკან.
- შემდეგი, ჩამოსაშლელ სიაში აირჩიეთ "ჰორიზონტალური პანელის განხილვა".
ახლა Word-ის ფანჯრის ბოლოში უნდა იყოს გახსნილი ფანჯარა. ფანჯარაში არის გადასინჯვები და მათი შედგენის თარიღები.
მეთოდი 2: ამოიღეთ შესწორებები, რომლებიც გაკეთებულია კონკრეტულ თარიღზე
- უპირველეს ყოვლისა, დააწკაპუნეთ ჩანართზე "დეველოპერი" და შემდეგ "ვიზუალური ძირითადი" ბრძანება VBA რედაქტორის გასახსნელად. ალტერნატიული გზა არის "Alt+ F11" დაჭერა.
- შემდეგ დააჭირეთ "ნორმალური" და შემდეგ "ჩასმა".
- შემდეგი, აირჩიეთ "მოდული" ახალი ჩასასმელად.
- ორჯერ დააწკაპუნეთ ახალ მოდულზე რედაქტირების არეალის გასააქტიურებლად.
- შემდეგ ჩასვით შემდეგი კოდები:
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
- შემდეგი, დააჭირეთ "Run".
- ახლა არის დიალოგური ფანჯარა. შეიყვანეთ თარიღი, როდესაც განხორციელდა ყველა ცვლილება, რომლის ნახვაც გსურთ. და დააჭირეთ "OK".
- შესაბამისად, იქნება ახალი დოკუმენტი. მასზე არის ცხრილი, რომელიც შეიცავს იმ დღის ყველა შესწორებას, როგორიცაა ქვემოთ:
მეთოდი 3: ამოიღეთ შესწორებები თარიღამდე
იმ შემთხვევაში, თუ გსურთ თარიღამდე შექმნილი ყველა ვერსიის ექსპორტი, აქ არის მაკრო, რომლის გაშვებაც შეგიძლიათ.
- თავდაპირველად, გაიმეორეთ პირველი 4 ნაბიჯი მეთოდი 2-ში.
- ამის ნაცვლად ჩასვით შემდეგი კოდები:
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
- ასევე დააჭირეთ ღილაკს "გაშვება".
- ანალოგიურად, ჩნდება დიალოგური ფანჯარა. უბრალოდ შეიყვანეთ თარიღი, რომლის სანახავადაც საჭიროა ყველა შესწორება. შემდეგ დააჭირეთ "OK".
მიიღეთ ცვლილებები კონკრეტულ თარიღამდე
- გამოიყენეთ ზემოთ მოცემული ნაბიჯები VBA რედაქტორის გასახსნელად და შემდეგი კოდების გასაშვებად:
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
- გახსნილ დიალოგურ ფანჯარაში ჩაწერეთ თარიღი და დააჭირეთ "OK".
ხრიკი Word ფაილების აღდგენისთვის
Word მგრძნობიარეა კორუფციის მიმართ, რის გამოც მილიონობით ფაილი საფრთხეშია. სიტყვის კოლაფსმა შეიძლება წაშალოს ღირებული და კონფიდენციალური მონაცემები. ამრიგად, თქვენ გჭირდებათ ა Word ფაილის პრობლემების აღდგენის ინსტრუმენტი თქვენი დაჭერილი მონაცემების გასათავისუფლებლად.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული xls მონაცემთა დაფიქსირების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად