Word баримт бичгээ хаахаас өмнө бүх талбарыг хэрхэн автоматаар шинэчлэх вэ

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

Бид дараа нь өөрчлөгдөж болзошгүй өгөгдлийг хадгалахын тулд талбаруудыг ашигладаг. Тиймээс тэдгээрт ямар нэгэн өөрчлөлт хийсний дараа бид талбаруудыг зохих ёсоор нь шинэчлэх шаардлагатай болдог. Харамсалтай нь ихэнх тохиолдолд бид тэдгээрийг гараар шинэчлэх шаардлагатай болдог.

Нэмж дурдахад хамгийн том асуудал бол талбаруудыг шинэчлэхээ мартах явдал юм. Энэ асуудлыг шийдвэрлэхийн тулд баримт бичгийг хаахаас өмнө талбаруудыг автоматаар шинэчлэх макро санал болгож байна.

Хэвлэхээс өмнө бүх талбарыг шинэчлэх

Word хувилбаруудыг өөрчлөхийн тулд дараахь алхамуудыг хэвлэхээс өмнө шинэчлэх талбаруудыг тохируулах боломжтой.

1. Нэгдүгээрт, "Файл" табыг, дараа нь "Сонголт" дээр дарна уу.
2. Дараа нь "Word Options" талбарыг нээгээд зүүн баган дээрх "Display" дээр дарна уу.
3. Баруун хэсгийн "Хэвлэх сонголтууд" хэсэг рүү ороод "Хэвлэхээс өмнө талбаруудыг шинэчлэх" хайрцгийг шалгана уу.
4. Эцэст нь “OK” дээр дарна уу.

Баримтыг хаахаас өмнө бүх талбарыг автоматаар шинэчлэх

1. Эхлэхийн тулд Word дээр VBA редакторыг “Alt + F11” дарж ажиллуулна уу.
2. Дараа нь “Хэвийн” төслийг дарна уу.
3. Дараа нь цэсний мөрөнд "Оруулах" дээр дарна уу.
4. Тэгээд "Class Module" -г сонгоно уу.
5. Дараа нь цэсийн мөр дээрх "Properties Window" командыг дарж, эсвэл "F4" дээр дарна уу.
6. Зүүн доош буланд нээгдсэн цонхонд шинээр үүсгэсэн ангийн модулийг “objWordClass” гэж нэрлэ.
7. Кодлох хэсэгт дараахь кодыг оруулна уу:

Option Explicit
Public WithEvents objWord As Word.Application
Private Sub objWord_DocumentBeforeClose(ByVal objDoc As Document, varCancel As Boolean)
  Dim strButtonValue As String

  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  objDoc.Save
  strButtonValue = MsgBox("Do you want to update all fields in this document before closing?", _
                   vbYesNo + vbQuestion)
  If strButtonValue = vbYes Then
    varCancel = True
    If objDoc.Fields.Count > 0 Then
      With objDoc
        .Fields.Update
        .Save
        .Close
      End With
    Else
      MsgBox ("There is no field in this document.")
    End If
  Else
    varCancel = False
  End If

  Application.ScreenUpdating = True
End Sub

8. Мөн "Хадгалах" товчийг дарахаа бүү мартаарай.
9. Одоо ч гэсэн "Normal" төслийн хүрээнд "Insert" дээр дарж энэ удаад "Module" -г сонгоно уу.
10. Дараагийн нээлттэй модулийг оруулаад эдгээр кодыг оруулна уу:

Option Explicit
  Dim objWordClass As New objWordClass
  Public Sub AutoOpen()
  Set objWordClass.objWord = Word.Application
End Sub

11. Үүний нэгэн адил кодыг хадгал.
12. Дараагийн удаа баримт бичгийг засаж дуусаад хадгална уу. Мөн та "Хаах" командыг товшсоны дараа асуух хайрцгийг хүлээн авах болно. Бүх талбарыг шинэчлэхийн тулд "Тийм" дээр дарна уу, даалгавар дууссаны дараа баримт бичиг хаагдах болно.

Үхсэн баримт бичгийг амьдаар нь авчир

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

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

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