İ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

Word sənədində dipnot / endnote ayırıcı xəttini necə çıxarmaq olar?

Word sənədində dipnotları və sonnotları daxil edərkən, həmişə dipnotun və ya sonuncu mətnlərin üstündə üfüqi bir ayırıcı xətt olduğunu görürsünüz. Bu ayırıcı xəttlərdən qurtarmaq istəyirsinizsə, bu məqalədə üsulları cəhd edin.

Word'də dipnot / endnote ayırma xəttini çıxarın

Dipnot / endnote ayırıcı xəttini VBA kodu ilə çıxarın


Word'də dipnot / endnote ayırma xəttini çıxarın

Word-də dipnot və ya endnote ayırma xəttini aşağıdakı kimi silin.

1. Sənəddə onun dipnotunu və ya sonuncu ayırma xəttini çıxaracaqsınız, klikləyin baxış > Layihə.

2. Sonra basın References > Show Qeydlər Aşağıdakı kimi ekran görüntüsü göstərilir.

3. Sənədinizdə həm dipnot, həm də son sənəd varsa, a Show Qeydlər informasiya qutusu açılacaq, lazım olduğunuz bir seçim seçin və sonra basın OK düyməsini basın. Burada seçirəm Dipnot bax sahəsi.

QeydSənədinizdə yalnız dipnot və ya endnote varsa, bu addımı görməyin və 4 addımına keçin.

4. İndi Qeydlər bölmənin sənədin sonunda göründüyü, xahiş edirik seçin Dipnot ayırıcı ci Dəyişikliklər açılan siyahıdan ayırıcı xəttini seçin və sonra basın Sil silmək üçün düyməni basın. Ekran görüntüsünə baxın:

5. Şagirdlərə keçid Çap Düzeni sənədin görünüşü.

Sonra dipnotun ayırıcı xəttini sənəddən dərhal çıxarırsınız.

QeydSonuncu ayırıcı xəttini çıxartmaq üçün, yoxlamaq lazımdır Endnote bax yuxarıdakı sahə Show Qeydlər dialoq seçin və seçin Endnote Separator ci Son məlumatlar açılan siyahı.


Dipnot / endnote ayırıcı xəttləri VBA kodu ilə çıxarın

Əgər yuxarıdakı üsul sizin üçün əlverişsizdirsə, dipnotun və ya hər iki dipnotun və endnotun bütün ayırıcı xəttlərini tezliklə aradan qaldırmaq üçün aşağıdakı VBA kodlarını sına bilərsiniz.

1. Sənəddə dipnotun ayırıcı xəttini çıxaracaqsınız 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 > Modules. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: dipnot ayırma xəttini sənəddə çıxarın

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Sonra bütün dipnotların ayırıcı xətləri sənəddən dərhal çıxarılır.

QeydDipnot və endnote bütün ayırıcı xətləri aradan qaldırılması istəyirsinizsə, aşağıdakı VBA kodu kömək edə bilər.

VBA kodu: sənəddə dipnot və endnote ayırıcı xəttləri silin

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub


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.