Зөвхөн нэг Word баримт бичигт навигацийн самбарыг харуулах 2 арга

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

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

Энэ асуудлыг шийдэхийн тулд бидэнд Word макроны тусламж хэрэгтэй байна.

Арга 1: Нэр, замыг байнга өөрчлөх шаардлагатай баримт бичгийн макро

1. Нэгдүгээрт, бид тодорхой баримт бичигт макро ажиллуулах чадвартай байх шаардлагатай тул эхлээд макро тохиргоог өөрчлөх хэрэгтэй. "Файл", дараа нь "Сонголтууд" дээр дарж "Үгийн сонголтууд" харилцах цонхыг нээнэ үү. Дараа нь "Итгэлийн төв" болон "Итгэмжлэлийн төвийн тохиргоо" товчийг дарна уу. Дараа нь "Макро тохиргоо" дээр товшоод "Бүх макрог идэвхжүүлэх" гэснийг сонгоно уу. Хоёр талбарт "OK" дээр дарна уу.
2. VBA засварлагчийг нээхийн тулд "Alt + F11" товчийг дарна уу.
3. Дараа нь энэ тодорхой баримт бичгийн төслийн доор "ThisDocument" дээр дарна уу.
4. "Insert" таб дээр дарж "Module" -г сонгоно уу.
5. Дараа нь модуль дээр давхар товшоод, баруун талын зайд дараах кодуудыг оруулна уу.

Sub AutoOpen()
  ActiveWindow.DocumentMap = True
End Sub

Sub AutoClose()
  ActiveWindow.DocumentMap = False
End Sub

6. "Хадгалах" товчийг дарна уу.
7. Одоо мессежийн хайрцаг байх болно. "Үгүй" дээр дарна уу.
8. "Save As" цонхноос "Word Macro-Enabled Macro"-г сонгоод хадгалах төрлийг сонгоно уу.
9. "Хадгалах" дээр дарна уу.

Одоо та зөвхөн тодорхой баримт бичигт зориулсан навигацийн самбарыг нээх болно.

Арга 2: Тогтмол нэр, зам бүхий баримт бичгийн Word макро

1. Эхлэхийн тулд Word програмыг нээгээд VBA засварлагчийг ажиллуулахын тулд "Alt" + "F11" товчийг дарна уу.
2. "Хэвийн" төсөл дээр "Оруулах" дээр товшоод "Модуль" -ыг сонгоно уу.
3. Модуль дээр давхар товшоод кодчилолын хэсгийг нээж, дараах макрог буулгана уу.

Sub AutoOpen()
  Dim strDocName As String
  Dim strDocpath As String
  Dim nDocName As Integer 
  Dim nDocpath As Integer 
 
  strDocName = "Sample.docx"
  strDocpath = "E:\Temp"
  '  If the two strings sort equally, Returns 0.
  nDocName = StrComp(ActiveDocument.Name, strDocName, vbTextCompare)
  nDocpath = StrComp(ActiveDocument.Path, strDocpath, vbTextCompare)
 
  If nDocName = 0 Then
    If nDocpath = 0 Then
      ActiveWindow.DocumentMap = True
    End If
  Else
    ActiveWindow.DocumentMap = False
  End If
End Sub

4. Дараа нь "Хадгалах" дээр дарна уу.

тэмдэглэл:

1. “strDocName = “Sample 2.docx”” гэсэн кодын мөрөнд “Sample 2.docx” гэснийг файлын нэрээр солино уу.
2. “strDocpath = “C:\Users\Public\Documents\New хавтас”” кодын мөрөнд “C:\Users\Public\Documents\New хавтас”-ыг файл хадгалагдаж буй хавтасны замаар солино. Төгсгөлд нь "\" байхгүй гэдгийг санаарай.

2 аргыг харьцуулах

Үгтэй холбоотой асуудлуудыг шийдвэрлэх

Бидний өдөр тутмын хэрэглээнд Word програмын алдаа их бага хэмжээгээр гардаг. Мөн гэнэтийн зүйл ямар ч шинж тэмдэггүй ирдэг. Энэ шалтгааны улмаас үр нөлөөг багасгах docx гэмтэл, бид танд алдартай сэргээх хэрэгслийг урьдчилан барьж байхыг зөвлөж байна.

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

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