Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս Microsoft Word- ում մեկնաբանությունները վերածել տողատակի կամ տողատակի:

Ենթադրելով, որ ձեր Word փաստաթղթում կան բազմաթիվ մեկնաբանություններ, ինչպե՞ս կարող եք այս բոլոր մեկնաբանությունները միաժամանակ վերածել տողատակի կամ տողատակի: Այս հոդվածը տալիս է VBA մեթոդներ դրան հասնելու համար:

Մեկնաբանությունները վերափոխեք տողատակի կամ վերջաբանի VBA կոդով


Մեկնաբանությունները վերափոխեք տողատակի կամ վերջաբանի VBA կոդով

Ստորև ներկայացված VBA կոդերը կօգնեն ձեզ արագ վերափոխել ընթացիկ փաստաթղթի բոլոր մեկնաբանությունները տողատակեր կամ տողատակի: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բացեք փաստաթուղթը պարունակում է մեկնաբանություններ, որոնք կվերածեք տողատակի կամ տողատակի, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ. Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Մեկնաբանությունները վերափոխիր տողատակի:

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

VBA կոդ. Մեկնաբանությունները վերափոխեք վերջաբանի.

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար:

Այնուհետև ընթացիկ փաստաթղթի բոլոր մեկնաբանությունները անմիջապես վերածվում են տողատակի կամ վերջաբանի `հիմնվելով ձեր կիրառած VBA կոդի վրա:


Առնչվող հոդվածներ քանակը:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    James · 1 years ago
    This is amazing. Thanks so much!!! really useful.