Vanligvis kan vi fjerne alle venstre innrykk i Word ved hjelp av Format-kommandoen. Og her er den detaljerte beskrivelsen for deg å raskt fjerne alle venstre innrykk
Trinn 1: Marker punkt (e) du ønsker å fjerne venstre innrykk, og høyreklikk på den, deretter velger du Avsnitt kommandoelementet
Trinn 2: i avsnitt dialogboksen angi venstre muligheten til å "0cm", Høyre muligheten til å "0cm", og angi Special alternativ til "None" i innrykk sectionin innrykket avsnitt
Trinn 3: Klikk på OK for å fjerne alle venstre innrykk
Merk:. denne metoden kan ikke fjerne de første linje innrykk ved hjelp av mellomrom eller tabulatortegn å rykke
Fjern alle innrykk med VBA
Hvis du god på makro, er VBA-kode også tilgjengelig for deg å fjerne alle innrykk
Trinn 1:. Trykk Alt + F11 for å åpne VBA vinduet i Word,
Trinn 2: Klikk Modul i kategorien Sett inn, og sett inn VBA-kode i modul vinduet;
Trinn 3: Klikk på Kjør-knappen for å bruke VBA-kode (eller trykk F5);
VBA-kode for å fjerne alle innrykk: for å fjerne alle innrykk, kan Format funksjonen ikke fjerne de første linje innrykk som bruker plass eller tabulatortegn å rykke , mens VBA er for komplisert. Nå anbefaler deg den mest praktiske metoden - å bruke Kutool for Word. Med Kutool for Word. Bare ett klikk kan du fjerne alle innrykk Kutools for Word, en hendig add-in, omfatter grupper av verktøy for å lette arbeidet ditt og forbedre din evne til behandling Word-dokument. Gratis prøveversjon i 45 dager! Få det nå Klikk Kutools > Klikk Fjern innrykk i Avsnitt-gruppen > Velg Fjern alle innrykk For mer detaljert informasjon om Fjern alle innrykk av Kutools for Word, vennligst besøk:.. Fjern innrykk beskrivelse
Sub remove_indents ()
Med Selection.ParagraphFormat
.CharacterUnitLeftIndent = 0
. CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LeftIndent = CentimetersToPoints (0)
.RightIndent = CentimetersToPoints (0)
.FirstLineIndent = CentimetersToPoints ( 0)
End Med
End Sub
Sub remove_all_the_first_line_indent_spaces ()
Dim i As Avsnitt, n så lenge
Application. ScreenUpdating = False 'nær skjermen og oppdatere
for hver i i ActiveDocument.Paragraphs' sykling i pragraphs av det aktive dokumentet
for n = 1 til i.Range.Characters.Count
Hvis i.Range.Characters (1) .text = "" Eller i.Range.Characters (1) .text = "" Eller i.Range.Characters (1) .text = Chr (9) Deretter
i.Range.Characters (1) .Delete
Else: Exit For
End If
Neste n
Neste
Application.ScreenUpdating = True 'gjenopprette skjermen og oppdatere
End Sub
Sub remove_all_indents ()
remove_indents
remove_all_the_first_line_indent_spaces
< em> End Sub
Fjern alle innrykk med Kutool for Word