آموزش

آموزش حذف خط پاورقی در ورد

در حالت عادی وقتی پاورقی به صفحه Word اضافه می کنید، خطی ➖ در بالای آن قرار می‌گیرد. شما می توانید این خط را حذف کنید. در این مطلب از لینک 2 دانلودبه آموزش حذف خط پاورقی در ورد میپردازیم.

تنظیمات خط پاورقی در ورد

?How to Remove Footnote Line in Word

وقتی پاورقی به صفحه ورد خود اضافه می کنید، در بالای آن خطی قرار می گیرد که این بخش را از بخش بالایی جدا می کند. این خط به سادگی حذف می شود. در این مطلب از لینک 2 دانلودنحوه حذف خط پاورقی را آموزش می دهیم. با ادامه این مطلب ما را همراهی کنید.

حذف و تغییر خط پاورقی در ورد

برای تغییر تنظیمات پاورقی در ورد و حذف آن روی View > Draft کلیک کنید.

روش حذف خط پاورقی در ورد

حال متن شما در حالت Draft نمایش داده می‌شود.

روش حذف خط پاورقی در ورد

سپس روی References > Show Notes کلیک کنید.

روش حذف خط پاورقی در ورد

اگر در متن شما هم پاورقی و هم انتهانویسی وجود دارد، پنجره Show Notes باز خواهد شد. گزینه View footnote area را انتخاب کنید. روی OK بزنید.

روش حذف خط پاورقی در ورد

حال در پایین صفحه گزینه Footnote Separator را برای Footnotes انتخاب کنید. سپس روی خط نمایان شده کلیک کنید و Delete را انتخاب کنید.

روش حذف خط پاورقی در ورد

در مواردی که تنها پاورقی وجود دارد، گزینه Footnotes در پایین صفحه نمایان می شود که گزینه All Footnotes انتخاب شده است.

روش حذف خط پاورقی در ورد

سپس روی فلش جلوی Footnotes کلیک کنید.

آموزش حذف خط پاورقی در ورد

Footnote Separator را انتخاب کنید.

آموزش حذف خط پاورقی در ورد

حال خط پاورقی نمایان می شود. خط را به همراه هر گونه فضای اضافی زیر آن، انتخاب کنید.

آموزش حذف خط پاورقی در ورد

حال روی Delete بزنید.

آموزش حذف خط پاورقی در ورد

سپس به View بروید و Print Layout را انتخاب کنید.

آموزش حذف خط پاورقی در ورد

همان طور که می بینید، خط حذف شده است.

آموزش حذف خط پاورقی در ورد

انتقال خط پاورقی در ورد و حذف آن با کد VBA

روش دیگر این است که از VBA برای حذف خط پاورقی استفاده کنید. برای این کار فایل ورد را باز کنید. Alt + F11 را فشار دهید تا Microsoft Visual Basic for Applications باز شود. در این بخش روی Insert > Module کلیک کنید. سپس کد زیر را کپی و در پنجره Module پیست کنید.

انتقال خط پاورقی در ورد

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

F5 را فشار دهید تا کد اجرا شود. حال تمامی خطوط حذف خواهند شد.

اگر می‌خواهید هم خط پاورقی و هم خط انتهانویسی فایل را حذف کنید، از کد زیر استفاده کنید:

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

برای یادگیری اصول پاورقی نویسی، مطلب آموزش قدم به قدم و تصویری ایجاد و نوشتن پاورقی در ورد را مطالعه کنید.

نظرات و پیشنهادات شما؟

در این مطلب از لینک 2 دانلودروش حذف خط پاورقی در ورد را آموزش دادیم. آیا موفق به حذف این خط شدید؟ لطفاً نظرات و تجربیات خود را در بخش دیدگاه با ما در میان بگذارید.

نوشته های مشابه

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد.

دکمه بازگشت به بالا