Sut i ddewis neu ddileu testun rhwng dau nod tudalen yn nogfen Word?
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.
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 cod hwn:
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.
5. Yn yr ail Kutools am Word blwch deialog, nodwch y nod tudalen diwedd a chlicio OK. Gweler y screenshot:
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:
Dileu testunau rhwng dau nod tudalen.
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF / Allforio Tudalennau fel Delweddau / Argraffu Ffeiliau Lluosog ar unwaith...
✏ Golygu Cynnwys: Swp Dod o Hyd i 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 / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Tabl Llinell Lletraws / Pennawd Hafaliad / Capsiwn Delwedd / Pennawd Tabl / Lluniau Lluosog / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...