Word баримт дээрх бүх зүүлт тайлбарыг төгсгөл болон эсрэгээр хөрвүүлэх 6 арга

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

Анхдагч байдлаар зүүлт тайлбарыг хуудасны доод талд байрлуулж, төгсгөлийн тайлбарыг баримт бичгийн төгсгөлд байрлуулдаг гэдгийг бүгд мэддэг. Гэсэн хэдий ч ийм анхдагч тохиргоо нь хүмүүсийн сэтгэлд нийцэхгүй. Word програмд ​​хүртэл зүүлт тайлбарыг төгсгөлийн тайлбар болгон хувиргах болон эсрэгээр нь хөрвүүлэх команд байдаг. Тиймээс бид танд зориулж авах 6 аргыг бий болгож байна.

Арга 1: Нэг баримтын бүх зүүлт тайлбарыг гараар хөрвүүлэх

Энд зүүлт болон төгсгөлийн тайлбарууд ихэвчлэн байдаг:

1. Эхлэхийн тулд "Лавлагаа" таб дээр дараад "Зүүлт тайлбар" бүлгийн сум товчийг дарж "Зүүлэл ба төгсгөл" харилцах цонхыг нээнэ үү.
2. Дараа нь "Хөрвүүлэх" товчийг дарна уу.
3. Дараа нь "Бүх зүүлт тайлбарыг төгсгөлийн тэмдэглэл рүү хөрвүүлэх" сонголтыг сонгоно уу.
4. Тэгээд "OK" дээр дарна уу.
5. Эцэст нь "Зүүлт тайлбар ба төгсгөлийн тайлбар" нүдийг хаа.

Үр нөлөө энд байна:

Арга 2: Нэг баримтын бүх төгсгөлийн тайлбарыг гараар хөрвүүлнэ

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

1. Арга 1-т 2, 1-р алхамыг давт.
2. Энэ удаад оронд нь "Бүх төгсгөлийн тайлбарыг зүүлт тайлбар руу хөрвүүлэх" сонголтыг сонгоно уу.
3. Гэсэн хэдий ч 4-р аргын 5, 1-р алхамыг давтана.

Дараах үр дүнг шалгана уу:

Арга 3: Бүх зүүлт тайлбарыг VBA-аар нэг баримт бичигт хөрвүүлэх

1. Эхлээд "Alt + F11" товчийг дарж Word дээр VBA засварлагч нээнэ үү.
2. Дараа нь "Хэвийн" дээр дарна уу.
3. "Оруулах" таб дээр дарна уу.
4. Унтраах цэснээс "Модуль" -г сонгоно уу.
5. Дараа нь модуль дээр давхар товшоод нээнэ үү.
6. Дараах кодыг тэнд байрлуул.

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Эцэст нь "Ажиллуулах" дээр дарна уу.

Арга 4: Бүх төгсгөлийн тайлбарыг VBA-аар нэг баримт бичигт зүүлт болгон хөрвүүлнэ

Үүний нэгэн адил макро суулгах, ажиллуулахын тулд 3-р аргын ижил алхмуудыг дагана уу. Гэхдээ макрог дараах байдлаар солино уу.

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Арга 5: VBA-аар олон баримт бичигт байгаа бүх зүүлт тайлбарыг багц болгон хөрвүүлэх

Хэрэв танд маш олон тооны файл байгаа бол эхлээд бүгдийг нь нэг хавтсанд байрлуулна. Дараа нь энэ макро суулгаад ажиллуулна уу:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Энэ макро ажиллуулснаар хавтасны замыг оруулах шаардлагатай оролтын хайрцаг гарч ирнэ. Мөн хавтасны хаягийн төгсгөлд "\" байх ёстойг бүү мартаарай.

Арга 6: Бүх төгсгөлийн тайлбарыг VBA-аар олон баримт бичигт зүүлт болгон хөрвүүлэх

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

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Үгийн асуудлыг хэрхэн засах вэ

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

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

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