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

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 y gwnaethoch chi ei nodi yn bodoli mewn dogfen, bydd blwch deialog Kutools for Word arall yn ymddangos i'ch atgoffa o nodi'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 Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir