Note: The other languages of the website are Google-translated. Back to English
English English

จะลบบรรทัดตัวคั่นเชิงอรรถ / อ้างอิงท้ายเรื่องในเอกสาร Word ได้อย่างไร?

เมื่อใส่เชิงอรรถหรืออ้างอิงท้ายเรื่องในเอกสาร Word คุณจะพบว่ามีเส้นคั่นแนวนอนเหนือข้อความเชิงอรรถหรืออ้างอิงท้ายเรื่องเสมอ หากคุณต้องการกำจัดเส้นคั่นเหล่านี้โปรดลองใช้วิธีการในบทความนี้

ลบบรรทัดตัวคั่นเชิงอรรถ / อ้างอิงท้ายเรื่องใน Word

ลบบรรทัดตัวคั่นเชิงอรรถ / อ้างอิงท้ายเรื่องด้วยรหัส VBA


ลบบรรทัดตัวคั่นเชิงอรรถ / อ้างอิงท้ายเรื่องใน Word

คุณสามารถลบเชิงอรรถหรือเส้นคั่นอ้างอิงท้ายเรื่องใน Word ได้ดังนี้

1. ในเอกสารคุณจะลบบรรทัดเชิงอรรถหรืออ้างอิงท้ายเรื่องให้คลิก รายละเอียด > แบบร่าง.

2 จากนั้นคลิก อ้างอิง > แสดงหมายเหตุ ดังภาพด้านล่างที่แสดง

3. หากมีทั้งเชิงอรรถและอ้างอิงท้ายเรื่องในเอกสารของคุณก แสดงหมายเหตุ กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกตัวเลือกตามที่คุณต้องการจากนั้นคลิกที่ไฟล์ OK ปุ่ม. ที่นี่ฉันเลือก ดูเชิงอรรถ พื้นที่

หมายเหตุ: หากมีเพียงเชิงอรรถหรืออ้างอิงท้ายเรื่องในเอกสารของคุณให้ละเว้นขั้นตอนนี้และย้ายไปยังขั้นตอนที่ 4

4. ตอนนี้ หมายเหตุ กำลังแสดงส่วนท้ายของเอกสารโปรดเลือก ตัวคั่นเชิงอรรถ ใน เชิงอรรถ รายการแบบหล่นลงเลือกเส้นคั่นจากนั้นกดปุ่ม ลบ กุญแจสำคัญในการลบ ดูภาพหน้าจอ:

5. เลื่อนไปที่ไฟล์ รูปแบบการพิมพ์ มุมมองของเอกสาร

จากนั้นคุณจะเห็นเส้นคั่นของเชิงอรรถถูกลบออกจากเอกสารทันที

หมายเหตุ: ในการลบบรรทัดตัวคั่นอ้างอิงท้ายเรื่องคุณต้องตรวจสอบ ดูอ้างอิงท้ายเรื่อง พื้นที่ด้านบน แสดงหมายเหตุ แล้วเลือก ตัวคั่นอ้างอิงท้ายเรื่อง ใน เชิงอรรถ รายการแบบหล่นลง


ลบเส้นคั่นเชิงอรรถ / อ้างอิงท้ายเรื่องด้วยรหัส VBA

หากวิธีการข้างต้นไม่สะดวกสำหรับคุณคุณสามารถลองใช้รหัส VBA ต่อไปนี้เพื่อลบเส้นคั่นของเชิงอรรถหรือทั้งเชิงอรรถและอ้างอิงท้ายเรื่องออกจากเอกสารได้อย่างรวดเร็ว

1. ในเอกสารคุณจะลบเส้นคั่นของเชิงอรรถให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: ลบบรรทัดตัวคั่นเชิงอรรถในเอกสาร

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 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นเส้นคั่นเชิงอรรถทั้งหมดจะถูกลบออกจากเอกสารทันที

หมายเหตุ: หากคุณต้องการลบเส้นคั่นของเชิงอรรถและอ้างอิงท้ายเรื่องทั้งหมดรหัส VBA ด้านล่างสามารถช่วยได้

รหัส VBA: ลบเชิงอรรถและเส้นคั่นอ้างอิงท้ายเรื่องในเอกสาร

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

เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ!
ทำงานให้ฉัน :-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หากคุณมีเชิงอรรถมากกว่าหนึ่งหน้า คุณจะต้องลบ "ตัวคั่นความต่อเนื่องของเชิงอรรถ" ด้วย พวกเขาทำให้มันยากที่จะหา; เมื่อการดับเบิลคลิกอาจนำคุณไปสู่มัน สิ่งนี้ช่วยฉันได้เช่นกัน BTW
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากที่คุณช่วยฉันจากเจ้านายของฉัน เขาเป็นเหมือนได้โปรดทำทุกอย่างที่ฉันต้องการให้นำเสนอที่ดีและเชิงอรรถนี้เป็นเหมือนอึ ขอบคุณคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉลาดหลักแหลม! ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
si funciona, me ayudo para mi tesis, มากัส กราเซียส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้แก้ไขปัญหาของฉันได้! ขอขอบคุณ!
ได้รับคะแนน 5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ