6 გზა გადაიყვანოთ ყველა სქოლიო ბოლო შენიშვნებში და პირიქით თქვენს Word დოკუმენტში

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

ამ სტატიაში ჩვენ შემოგთავაზებთ 6 გზას, რომ გადაიყვანოთ ყველა სქოლიო ბოლო შენიშვნებში და პირიქით თქვენს Word დოკუმენტში.

ყველასთვის ცნობილია, რომ ნაგულისხმევად, სქოლიოების ტექსტები განლაგებულია ცალკეული გვერდების ბოლოში, ხოლო ბოლო შენიშვნები გვხვდება დოკუმენტის ბოლოს. თუმცა, ასეთი ნაგულისხმევი პარამეტრები ყოველთვის ვერ დააკმაყოფილებს ხალხს. Word-საც კი აქვს ჩაშენებული ბრძანება მომხმარებლებისთვის, რომ გადააკეთონ სქოლიოები ბოლო შენიშვნებში და პირიქით. ამიტომ, ჩვენ ვქმნით 6 მეთოდს, რომ აირჩიოთ.

მეთოდი 1: ხელით გადააკეთეთ ყველა სქოლიო ერთ დოკუმენტში ბოლო შენიშვნებში

აქ ჩვეულებრივ რჩება სქოლიოები და ბოლო შენიშვნები:

დასაწყისისთვის, დააწკაპუნეთ ჩანართზე „ცნობები“, შემდეგ დააჭირეთ ისრის ღილაკს „სქოლიოების“ ჯგუფში, რათა გახსნათ დიალოგური ფანჯარა „სქოლიო და ბოლო შენიშვნა“.
შემდეგ დააჭირეთ ღილაკს "კონვერტირება".
შემდეგ აირჩიეთ "ყველა სქოლიოს კონვერტაცია ბოლო შენიშვნებში".
და დააჭირეთ "OK".
ბოლოს დახურეთ ყუთი „სქოლიო და ბოლო შენიშვნა“.

აქ არის ეფექტი:

მეთოდი 2: გადააკეთეთ ყველა ბოლო ჩანაწერი სქოლიოებად ერთ დოკუმენტში ხელით

ბოლო შენიშვნების სქოლიოებად გადაქცევა თითქმის იგივეა.

გაიმეორეთ ნაბიჯები 1 და 2 მეთოდში 1.
ამჯერად აირჩიეთ "ყველა ბოლო ჩანაწერის სქოლიოებად გადაქცევა" ვარიანტი.
და მაინც, გაიმეორეთ ნაბიჯი 4 და 5 მეთოდი 1-ში.

შეამოწმეთ შემდეგი შედეგი:

მეთოდი 3: ყველა სქოლიო გადაიყვანეთ ბოლო შენიშვნებში ერთ დოკუმენტში VBA-ის საშუალებით

უპირველეს ყოვლისა, დააჭირეთ "Alt+ F11", რათა გახსნათ VBA რედაქტორი Word-ში.
შემდეგ დააჭირეთ "ნორმალური".
დააჭირეთ "ჩასმა" ჩანართს.
და აირჩიეთ "მოდული" ჩამოსაშლელ მენიუში.
შემდეგ ორჯერ დააწკაპუნეთ მოდულზე მის გასახსნელად.
ჩასვით იქ შემდეგი კოდები:

Sub ConvertFootnotesToEndnotes()

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

დაბოლოს, დააჭირეთ ღილაკს "Run".

მეთოდი 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

როგორ მოვაგვაროთ Word-ის პრობლემები

სიტყვა შეიძლება ჩავარდეს ნიშნის გარეშე. თუმცა შეიძლება ფიქრობთ, რომ დაუჯერებელია, რომ ასეთმა ბედმა გიპოვოთ, თქვენ სხვა გზა არ გაქვთ, გარდა კვალიფიციურ სარემონტო ხელსაწყოს მიმართოთ გამოსასწორებლად. კორუმპირებული დოქ.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული Excel მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად