Зөвхөн таны үгийн баримт бичигт тодорхой хянагдсан өөрчлөлтийг хүлээн авах 3 арга зам

Энэ нийтлэлд бид зөвхөн таны Word баримт бичигт тодорхой хянагдсан өөрчлөлтийг хүлээн авах 3 аргыг хуваалцахыг хүсч байна.

Ер нь, хянагдсан өөрчлөлт бүхий баримт бичигт та бүгдийг нэг дор эсвэл тус бүрээр нь хүлээн авч болно. Гэхдээ заримдаа форматлах бүх өөрчлөлтүүд гэх мэт зөвхөн тодорхой өөрчлөлтүүдийг хүлээн авах шаардлагатай болдог. Үүнийг шийдвэрлэхийн тулд нэмэлт алхам шаардагдана.

Тодорхой хяналттай өөрчлөлтийг зөвхөн өөр тохиолдолд хүлээн зөвшөөрөх дараах 3 хандлагыг харуулав.

Арга 1: Тодорхой төрлийн бүх өөрчлөлтийг хүлээн зөвшөөрөх

Баримт бичгийн бүх өөрчлөлтийг хүлээн зөвшөөрөх хэрэгтэй гэж үзье.

1. Нэгдүгээрт, "Хяналт" таб дээр дарна уу.
2. Дараа нь "Show Markup" командыг дарна уу.
3. Дараа нь зөвхөн доош унах цэснээс "Formatting" хайрцгийг шалгана уу.
4. Одоо баримт бичигт зөвхөн форматлах өөрчлөлтийг харуулах болно. “Зөвшөөрөх” командыг унагаах товч дээр дарна уу.
5. "Бүх өөрчлөлтийг харуулахыг зөвшөөрөх" сонголтыг сонгоно уу.

Үүнтэй адилаар бусад өөрчлөлтийг хүлээн авахын тулд зөвхөн тухайн баримт бичгийн өөрчлөлтийг харуулаад л хүлээж аваарай.

Арга 2: Зөвхөн устгах эсвэл оруулгыг хүлээн авах

Эхний скриншотоос харахад оруулах, хасах нь хоорондоо уялдаатай байна. Тиймээс тэдгээрийн аль нэгийг нь хүлээн авахын тулд макро хэрэгтэй.

1. Юуны өмнө Word дээр VBA засварлагч ажиллуулахын тулд “Alt + F11” товчийг дарна уу.
2. Дараа нь "Хэвийн" төслийг дараад цэсийн мөрөнд "Оруулах" дээр дарна уу.
3. Шинэ цэсийг оруулахын тулд цэснээс "Модуль" -г сонгоно уу.
4. Дараа нь модуль дээр давхар товшоод нээгээд дараах кодыг буулгана уу:

Sub AcceptOnlyDeletionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionDelete Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Эцэст нь "Ажиллуулах" товчийг дарна уу эсвэл кодыг гүйцэтгэхийн тулд "F5" дээр дарна уу.

Энэхүү макро нь баримт бичигт байгаа бүх устгалыг хүлээн зөвшөөрдөг. Бүх оруулгыг хүлээн авахын тулд та дараахь макрооор солих хэрэгтэй:

Sub AcceptOnlyInsertionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionInsert Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Арга 3: Сонгосон бүх өөрчлөлтийг хүлээн зөвшөөрөх

Энэ арга нь янз бүрийн төрлүүд дэх бүх өөрчлөлтийг хэрхэн хурдан хугацаанд сонгохыг харуулдаг.

1. Start хамт, сонголтоо хий tarхүрээ авах.
2. Дараа нь тууз дээрх "Хяналт" таб дээр дарна уу.
3. Дараа нь "Зөвшөөрөх" командыг унагаах товч дээр дарна уу.
4. Унтраах цэснээс “Өөрчлөлтийг хүлээн авах” -ыг сонгоно уу. Тэгээд л боллоо.

Мэдээлэл алдах нь хаа сайгүй нэвтэрдэг

Тоон хэлбэржүүлэх давалгааг дагаж, авах магадлал авлигач Doc нэмэгдэж байна. Таны өгөгдлийн үнэ цэнийг харгалзан хангалттай засварлах хэрэгслийг барьж авахыг зөвлөж байна. Тиймээс та хамгийн богино хугацаанд баримт бичгийг сэргээх боломжтой.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com