Ձեր Word փաստաթղթում բոլոր տողատակում ծանոթագրությունների և հակառակը փոխելու 6 եղանակ

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այս հոդվածում մենք ձեզ կներկայացնենք 6 եղանակ՝ ձեր Word փաստաթղթում բոլոր տողատակերը վերափոխելու ավարտական ​​նշումների և հակառակը:

Բոլորին հայտնի է, որ լռելյայնորեն տողատակերի տեքստերը դասավորված են առանձին էջերի ներքևում, իսկ վերջնագրերը` փաստաթղթի վերջում: Այնուամենայնիվ, նման լռելյայն կարգավորումները չեն կարող մշտապես բավարարել մարդկանց: Նույնիսկ Word-ն ունի ներկառուցված հրամաններ օգտվողների համար՝ տողատակերը վերափոխելու վերջի նշումների և հակառակը: Հետևաբար, մենք ստեղծում ենք 6 մեթոդ, որպեսզի դուք կարողանաք վերցնել:Փոխարկել բոլոր տողատակերը վերջի նշումների և հակառակը

Մեթոդ 1. Բոլոր տողատակերը մեկ փաստաթղթում ձեռքով փոխակերպեք վերջի նշումների

Ահա, որտեղ սովորաբար մնում են ծանոթագրությունները և վերջնագրերը.Լռելյայն նշումների կարգավորումների նմուշ

  1. Սկսելու համար սեղմեք «Հղումներ» ներդիրը, այնուհետև սեղմեք «Ծանոթագրություններ» խմբում գտնվող սլաքի կոճակը, որպեսզի բացվի «Ծանոթագրություն և ավարտական ​​նշում» երկխոսության տուփը:
  2. Հաջորդը սեղմեք «Փոխակերպել» կոճակը:
  3. Այնուհետև ընտրեք «Փոխակերպել բոլոր տողատակերը վերջի նշումների» տարբերակը:
  4. Եվ կտտացրեք «Լավ»:
  5. Վերջում փակեք «Ծանոթագրություն և ավարտական ​​նշում» վանդակը:Կտտացրեք «Հղումներ» ->Սեղմեք սլաքի կոճակը->Սեղմեք «Փոխակերպել» ->Ընտրեք «Փոխարկեք բոլոր տողատակերը վերջի նշումներին» ->Սեղմեք «OK» ->Փակեք երկխոսության տուփը:

Ահա ազդեցությունը.Վերափոխեք ծանոթագրությունները վերջի նշումների

Մեթոդ 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
  1. Ի վերջո, կտտացրեք «Գործարկել» կոճակին:Տեղադրել մակրո-> Սեղմեք «Գործարկել»

Մեթոդ 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

Մուտքագրեք պանակի ուղի-> Սեղմեք «OK»Մեթոդ 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

Ինչպես շտկել բառի խնդիրները

Խոսքը կարող է ձախողվել առանց որևէ նշանի: Թեև դուք կարող եք անհավանական թվալ, որ նման դժբախտություն կգտնի ձեզ, դուք այլ ելք չունեք, քան դիմել որակավորված վերանորոգման գործիքին՝ շտկելու համար: կոռումպացված դոկտ.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վնասված Excel- ը և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: