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

Sut i ddewis yr holl baragraffau pennawd yn Word?

Weithiau mae angen i ni ddileu neu olygu pob paragraff pennawd. Y cam cyntaf yw dewis pob paragraff pennawd. Bydd y tiwtorial hwn yn eich dysgu gan ddilyn dulliau ar sut i ddewis yr holl baragraffau pennawd.

Dewiswch yr holl baragraffau pennawd gyda'r Darganfod ac Amnewid

Dewiswch yr holl baragraffau pennawd gyda'r VBA

Dewiswch yr holl baragraffau pennawd gyda'r Kutool for Word


swigen dde glas saethDewiswch yr holl baragraffau pennawd gyda'r Darganfod ac Amnewid

poeth
Rhyfeddol! Defnyddiwch Tabiau Effeithlon yn Word (Office) fel Chrome, Firefox a New Internet Explorer!

Darllen mwy Lawrlwythiad Am Ddim

Y swyddogaeth Dod o Hyd ac Amnewid mewn gair yw'r ffordd amlaf i ddewis yr holl baragraffau pennawd.

Cam 1: Cliciwch Hafan >Dod o hyd i a dewiswch y Dod o Hyd i Ymlaen Llaw nodi

Cam 2: Cliciwch Mwy botwm i fagu mwy o Opsiynau Chwilio;

doc-dewis-pennawd-paragraffau-1

Cam 3: Cliciwch fformat marciwch opsiynau naidlen isod.

doc-dewis-pennawd-paragraffau-2

Cam 4: Cliciwch y arddull i ddewis y arddull pennawd rydych chi wedi'i ddefnyddio yn Dod o hyd i arddull deialog blwch.

doc-dewis-pennawd-paragraffau-3

Nodyn: dim ond un paragraff pennawd y gall y dull hwn ei ddewis bob tro. Mae'n cymryd llawer o amser i olygu'r holl baragraffau pennawd.


swigen dde glas saethDewiswch yr holl baragraffau pennawd gyda'r VBA

Fel arall gallwn ddefnyddio'r VBA i ddewis pob paragraff pennawd.

Cam 1: Gwasgwch “Alt-F11” i agor ffenestr Microsoft Visual Basic for Application;

Cam 2: Cliciwch Modiwlau ar y Mewnosod tabio, copïo a gludo'r cod VBA canlynol i mewn i ffenestr y Modiwl;

Cam 3: Yna cliciwch Rundoc-reverse-arwydd-6 botwm i gymhwyso'r VBA.

Y cod VBA i ddewis yr holl baragraffau pennawd:

Is-SelectHeadingParagraphs ()
Dim tempTable Fel Paragraff
Application.ScreenUpdating = Anghywir
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Ar gyfer Pob tempTable Yn ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Os tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Yna
'Debug.Print "aaa"
tempTable.Range.Editors.Ychwanegu wdEditorEveryone
Gorffennwch Os
Digwyddiadau
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = Gwir
Is-End

Nodyn: mae'r dull hwn yn cymryd Pennawd2 fel enghraifft. Gall Pennawd2 newid i arddulliau pennawd arall.


swigen dde glas saethDewiswch yr holl baragraffau pennawd gyda'r Kutool for Word

A oes ffordd haws o ddewis yr holl baragraffau pennawd? Kutool for Word yw eich dewis gorau. Ar ôl i chi osod y Kutool for Word, gallwch ddewis pob pennawd (paragraffau pennawd) gydag un clic.

Kutools am Word, ychwanegiad defnyddiol, yn cynnwys grwpiau o offer i leddfu'ch gwaith a gwella'ch gallu i brosesu dogfen eiriau. Treial Am Ddim am 45 diwrnod! Get It Now!

Cliciwch Kutools >Dewis Paragraff ar y grŵp Paragraff Select. Gweler y screenshot

doc-dewis-pennawd-paragraffau-4

Am wybodaeth fanylach am Dewiswch Paragraffau Pennawd o Kutools for Word, ewch i: Dewis Paragraff disgrifiad nodwedd



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 (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, mae hyn yn ddefnyddiol iawn. Roeddwn i eisiau dewis pob enghraifft o Heading1 a Heading2 ar unwaith, felly newidiais linell 7 i hyn: Os (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Neu (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Yna
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Thanks, this is very useful. I wanted to select all instances of all Headings at once, so I changed line 7 to this:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir