Sut i ddewis neu ddileu testun rhwng dau nod tudalen yn nogfen Word?

Awdur: Siluvia Wedi'i Addasu Diwethaf: 2024-08-29

Ydych chi'n gwybod sut i ddewis neu ddileu'r cynnwys rhwng dau nod tudalen mewn dogfen Word? Bydd yr erthygl hon yn dangos dulliau i chi ddelio ag ef.

Dewis / dileu testun rhwng dau nod tudalen gyda VBA

Dewis / dileu testun rhwng dau nod tudalen gyda VBA

Gan dybio bod dau nod tudalen yn eich dogfen fel y dangosir isod y llun, gallwch ddewis neu ddileu'r holl gynnwys rhwng y ddau nod tudalen hyn gyda'r cod VBA canlynol.

Cynnwys diaplaying geiriau rhwng dau nod tudalen

1. Yn y ddogfen, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch y cod isod i mewn i ffenestr y Modiwl.

Ar gyfer dewis neu ddileu testunau rhwng dau nod tudalen, defnyddiwch y codau isod:

Cod VBA: Dewiswch destun rhwng dau nod tudalen penodol yn Word:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

Cod VBA: Dileu testun rhwng dau nod tudalen penodol yn Word:

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod.

4. Yn y cyntaf Kutools am Word blwch deialog, rhowch yr enw nod tudalen cychwyn yn y blwch testun a chlicio OK.

Blwch deialog ar gyfer nodi'r enw nod tudalen cychwyn

5. Yn yr ail Kutools am Word blwch deialog, nodwch y nod tudalen diwedd a chlicio OK. Gweler y screenshot:

Blwch deialog ar gyfer nodi'r enw nod tudalen diwedd

Nodyn: Os nad yw'r enw nod tudalen a roesoch yn bodoli yn y ddogfen, bydd blwch deialog Kutools for Word arall yn ymddangos i'ch atgoffa o fynd i mewn i'r un cywir.

Yna mae'r holl gynnwys rhwng y nodau tudalen penodedig yn cael ei ddewis neu ei ddileu ar unwaith. Gweler sgrinluniau.

Dewiswch destunau rhwng dau nod tudalen:

Dewisir cynnwys rhwng y nodau tudalen penodedig

Dileu testunau rhwng dau nod tudalen.

Mae cynnwys rhwng y nodau tudalen penodedig yn cael eu dileu

Tab Office: Yn dod â rhyngwynebau tabiau i Word, Excel, PowerPoint ...

Llywiwch trwy ddogfennau gan ddefnyddio Office Tab

Gwella'ch llif gwaith nawr. Dysgwch fwy am Office Tab Lawrlwythiad Am Ddim

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

Tabiau Kutools a Kutools Plus ar y Word Ribbon

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools ar gyfer Word

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools