Conas leathanaigh shonracha iolracha a scriosadh i ndoiciméad Word?

I ndoiciméad Word, is féidir leat ábhar reatha an leathanaigh a roghnú, agus ansin brúigh Delete key chun an leathanach reatha a scriosadh go héasca. Ach, más gá duit leathanaigh iolracha a bhaint de chomhad mór Word, conas a d’fhéadfá é a réiteach go tapa?

Scrios réimse leathanach i ndoiciméad Word le gné Go To

Scrios leathanaigh shonracha iolracha i ndoiciméad Word le cód VBA

Scrios réimse leathanach i ndoiciméad Word le gné Go To

Más mian leat raon leathanaigh as a chéile a scriosadh as doiciméad Word, is féidir leis an ngné Téigh Chun Fabhar a dhéanamh duit.

1. Seoladh an doiciméad Word a theastaíonn uait leathanaigh a scriosadh.

2. Ansin brúigh F5 eochair chun an Aimsigh agus Ionadaigh bosca dialóige, faoin Téigh go tab, cliceáil Leathanach sa Téigh go dtí cad bosca liosta, agus ansin iontráil uimhir an leathanaigh tosaigh a theastaíonn uait a scriosadh as, agus brúigh Iontráil eochair le dul go dtí an leathanach sonrach, féach an scáileán:

2. Ansin, dún é seo Aimsigh agus Ionadaigh bosca dialóige, agus brúigh F8 a chasadh ar an Modh a leathnú.

3. Téigh ar aghaidh ag brú F5 eochair chun an Aimsigh agus Ionadaigh dialóg, an uair seo, iontráil uimhir an leathanaigh deiridh a theastaíonn uait a scriosadh, agus ansin brúigh Iontráil eochair. Roghnaíodh gach leathanach ó 15 go 20 ag an am céanna. Féach an pictiúr:

4. Faoi dheireadh, brúigh Scrios eochair go díreach chun na leathanaigh seo a scriosadh ag an am céanna.

Scrios leathanaigh shonracha iolracha i ndoiciméad Word le cód VBA

Chun leathanaigh shonracha iolracha a scriosadh i gcomhad Word nach bhfuil i ndiaidh a chéile, is féidir leis an gcód VBA seo a leanas cabhrú leat.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: Scrios leathanaigh shonracha iolracha i gcomhad Word:

Sub DeletePagesInDoc()
    Dim xRange As Range
    Dim xPage As String
    Dim xDoc As Document
    Dim xArr
    Dim I, xSplitCount As Long
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "KuTools for Word", "")
    xArr = Split(xPage, ",")
    xPageCount = UBound(xArr)
    For I = xPageCount To 0 Step -1
        Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
        xDoc.Bookmarks("\Page").Range.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Ansin, brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach le cur i gcuimhne duit na huimhreacha leathanaigh a theastaíonn uait a scriosadh a iontráil, déan uimhreacha na leathanach a scaradh le camóg le do thoil, féach an scáileán:

4. Agus ansin, cliceáil OK cnaipe, scriosadh na leathanaigh uile a shonraigh tú ag an am céanna.

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools for Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!

Léim isteach sna gnéithe aibhsithe thíos nó cliceáil anseo chun cumhacht iomlán na Kutools for Word.

📘 Máistreacht Doiciméad: Leathanaigh Scoilte  /  Cumaisc Doiciméid  /  Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/XLSX)  /  Baisc a thiontú go PDF  /  Easpórtáil Leathanaigh mar Íomhánna  /  Priontáil Comhaid Il ag an am céanna ...

✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il   /  Athraigh Méid Gach Pictiúr   /  Trasnaigh Rónna Tábla agus Colúin  /  Tiontaigh Tábla go Téacs ...

🧹 Effortless Glan: Sguab as Spásanna Breise  /  Sosanna Alt  /   Gach Ceanntásca  /  Boscaí Téacs  /  Hipearnasc  /  Le haghaidh tuilleadh uirlisí a bhaint, téigh chuig ár Bain Grúpa

➕ Ionsáigh Cruthaitheach: Ionsáigh Míle Deighilteoir  /  Boscaí Seiceála  /  Cnaipí Raidió  /  Cód QR  /  barcode  /  Tábla Líne Trasnánach  /  Fotheideal Cothromóid  /  Fotheideal Íomhá  /  Fotheideal Tábla  /  Pictiúir Il  /  Faigh amach níos mó inár Insert Group

🔍 Roghanna Beachtais: Pinpoint leathanaigh ar leith  /  táblaí  /  cruthanna  /  míreanna ceannteideal  /  Déan nascleanúint gan stró ag baint úsáide as ár Roghghrúpa

⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair  /  cuir isteach téacs athchleachtach go huathoibríoch  /  scoránaigh gan uaim idir fuinneoga doiciméad  /  11 Uirlisí Tiontaithe ...

Trasfhoirmigh do thascanna Word le Kutools. 👉 Íoslódáil le triail 30 lá Anois 🚀.

Leigh Nios mo       Free Download      Ceannach