İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Microsoft Word-də dipnotların və sonunların şərhlərinə necə çevrilir?

Word sənədinizdə bir neçə şərh var, ehtimal ki, bütün bu şərhləri dipnotlara və ya sonnotlara eyni zamanda necə çevirə bilərsiniz? Bu məqalə onu əldə etmək üçün VBA üsullarını təmin edir.

Şərhləri dipnotlara və ya sonnotlara VBA kodu ilə çevirmək


Şərhləri dipnotlara və ya sonnotlara VBA kodu ilə çevirmək

Aşağıdakı VBA kodları dipnotlara və ya sonnotlara bu sənəddə olan bütün şərhləri tez bir zamanda çevirməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Sənədi açın dipnotlara və ya sonnotlara çevirəcəyiniz şərhləri ehtiva edir, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modul. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: Şərhləri dipnotlara çevir:

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 kodu: sonuncu qeydlərə yazın:

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Sonra mövcud sənəddə olan bütün şərhlər dərhal tətbiq etdiyiniz VBA koduna əsasən dipnotlara və ya sonnotlara çevrilir.


Related articles:



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.