Conas téacs a roghnú nó a scriosadh idir dhá leabharmharc i Word doiciméad?

An bhfuil a fhios agat conas an t-ábhar idir dhá leabharmharc a roghnú nó a scriosadh in a Word doiciméad? Taispeánfaidh an t-alt seo modhanna duit chun déileáil leis.

Roghnaigh / scrios téacs idir dhá leabharmharc le VBA

Roghnaigh / scrios téacs idir dhá leabharmharc le VBA

Má cheaptar go bhfuil dhá leabharmharc i do dhoiciméad mar a thaispeántar thíos, is féidir leat gach ábhar idir an dá leabharmharc seo a roghnú nó a scriosadh leis an gcód VBA seo a leanas.

1. Sa doiciméad, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos an cód isteach i bhfuinneog an Mhodúil.

Chun téacsanna a roghnú nó a scriosadh idir dhá leabharmharc, bain úsáid as an gcód seo:

Cód VBA: Roghnaigh téacs idir dhá leabharmharc sonraithe i 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

Cód VBA: Scrios téacs idir dhá leabharmharc sonraithe i 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. Brúigh an F5 eochair chun an cód a rith.

4. Sa chéad cheann Kutools for Word bosca dialóige, cuir isteach an t-ainm leabharmharc tosaigh sa bhosca téacs agus cliceáil OK.

5. Sa dara ceann Kutools for Word bosca dialóige, iontráil an leabharmharc deiridh agus cliceáil OK. Féach an pictiúr:

nótaí: Mura bhfuil an t-ainm leabharmharc a d'iontráil tú sa doiciméad, ceann eile Kutools for Word beidh an bosca dialóige aníos chun an ceann ceart a chur i gcuimhne duit.

Ansin roghnaítear nó scriostar gach ábhar idir na leabharmharcanna sonraithe láithreach. Féach screenshots.

Roghnaigh téacsanna idir dhá leabharmharc:

Scrios téacsanna idir dhá leabharmharc.

molta Word Uirlisí Táirgiúlachta

lámhaigh kutools word kutools cluaisín 1180x121

lámhaigh kutools word kutools Táibléad móide 1180x120

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...

Leigh Nios mo Íosluchtaigh Anois Ceannach