Uirlis iontach chun gach fleasc a bhaint as doiciméad Word gan ach cliceáil amháin!

Leis an Bain gach fleasc gné de Kutools le haghaidh Word, is féidir leat gach cineál fleasc a bhaint go héasca as an doiciméad Word iomlán nó rogha áirithe gan ach cliceáil amháin, lena n-áirítear na fleasc chéad líne ginte ag spásanna nó carachtair cluaisíní nach féidir a bhaint de réir leagan amach i Word.

De ghnáth is féidir linn gach fleasc clé i Word a bhaint trí úsáid a bhaint as an mír gné. Agus seo an cur síos mionsonraithe duit chun gach fleasc chlé a bhaint go tapa

Tabhair faoi deara: Ní féidir leis an modh seo na fleasc chéadlíne a dhéanann spásanna nó carachtair cluaisíní a bhaint. VBA agus uirlis áisiúil in ann iad a bhaint.

1. Roghnaigh na míreanna ar mhaith leat fleasc a bhaint, cliceáil ar dheis, agus roghnaigh mír ón roghchlár comhthéacs. Féach an pictiúr:

2. Sa bhosca dialóige Mír, clóscríobh le do thoil 0 isteach sa dá Clé agus Ceart boscaí, roghnaigh (Níl aon cheann) ó na speisialta liosta anuas, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

Anois baintear gach fleasc (seachas na fleasc chéadlíne a dhéanann spásanna nó carachtair cluaisíní) ag an am céanna.

Má tá Macra go maith agat, tá an cód VBA ar fáil duit gach fleasc a bhaint den roghnú nó an doiciméad Word iomlán go héasca.

1. Roghnaigh na míreanna nó an doiciméad iomlán as a mbainfidh tú gach fleasc.

2. Brúigh Alt + F11 eochracha le chéile chun an fhuinneog VBA a oscailt, cliceáil Ionsáigh > Modúil chun fuinneog nua Modúl a chruthú, agus ansin an cód thíos a ghreamú isteach san fhuinneog:

VBA: Bain gach fleasc den roghnú nó den doiciméad iomlán i Word

Sub remove_indents()
With Selection.ParagraphFormat
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(0)
End With
End Sub
Sub remove_all_the_first_line_indent_spaces()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False 'close screen and refresh
For Each i In ActiveDocument.Paragraphs 'cycling in the pragraphs of the active document
For n = 1 To i.Range.Characters.Count
If i.Range.Characters(1).Text = " " Or i.Range.Characters(1).Text = "　" Or i.Range.Characters(1).Text = Chr(9) Then
i.Range.Characters(1).Delete
Else: Exit For
End If
Next n
Next
Application.ScreenUpdating = True 'restore screen and refresh
End Sub
Sub remove_all_indents()
remove_indents
remove_all_the_first_line_indent_spaces
End Sub

3. Cliceáil Rith cnaipe nó Brúigh F5 eochair chun an cód VBA a chur i bhfeidhm.

Chun gach fleasc a bhaint, ní féidir leis an bhfeidhm Formáid na fleasca céadlíne atá ag baint úsáide as an spás nó na carachtair cluaisín a bhaint chun fleasc, cé go bhfuil an VBA ró-chasta. Anois mol an modh is áisiúla duit - ag úsáid Kutools for Word. Le Kutools for Word. Ní cheadaíonn ach cliceáil amháin duit gach fleasc a bhaint

Cliceáil Just Kutools> Fleascáin > Bain gach fleasc, agus baintear gach cineál fleasc den doiciméad iomlán láithreach.
Más gá duit gach fleasc a bhaint de rogha áirithe, roghnaigh an t-ábhar ar dtús, agus ansin cliceáil Kutools> Fleascáin > Bain gach fleasc.

Kutools for Word's Bain fleasc Tacaíonn gné freisin le gach spás / fleasc cluaisín a bhaint, gach fleasc céadlíne a bhaint, gach fleasc chlé a bhaint, gach fleasc ceart a bhaint le cliceáil amháin.