Sådan fjernes formateringen af ​​indsatte tekster med makro og VBA i dit ord

Word-løsninger September 28, 2025

Denne artikel viser dig, hvordan du fjerner formateringen af ​​indsat tekst med makro og VBA i dit ord.

Det sker meget, når du kopierer en tekst online, og du finder teksten i rig formatering. For eksempel er der gentagne ord, blanke linjer, fanebladstegn osv. Alligevel kan sådan formatering være ret irriterende, især til tider du ikke har brug for. Naturligvis fjerner du formateringen manuelt hver efter hver. Men hvad nu hvis teksten er rigtig lang? Derefter vil ovenstående metode være mindre effektiv.

Faktisk er der en måde at bruge makro til at fjerne al tekstformatering en gang for alle. Her er mere:

Trin til at optage en makro i Word

  1. For det første skal du åbne dit Word.
  2. Og sørg for, at du først har tilføjet fanen "Udvikler" på båndet. For detaljerede instruktioner til tilføjelse af "Developer", bedes du læse artiklen: Sådan indsættes baggrundsmusik i dit Word-dokument
  3. Når fanen "Udvikler" er tilgængelig, skal du klikke på den.
  4. Klik derefter på "Optag makro" i gruppen "Kode".Klik på "Udvikler" -> Klik på "Optag makro"
  5. Nu vises en dialogboks "Record Macro". Indtast først makronavnet, f.eks. “Copytext” her.
  6. Vælg derefter enten "Knap" eller "Tastatur" i "Tildel makro til" -delen. Her går vi "Knap".
  7. Klik derefter på “OK”.Navngiv makroen -> Vælg enten "Knap" eller "Tastatur" for "Tildel makro til" -> Klik på "OK"
  8. Og nu vil du se "Word Options" -vinduet. Klik på "Tilpas bånd".
  9. Find derefter en placering til makroen på højre side. Her vil vi klikke på "Ny gruppe" for at indstille en ny til makroen.
  10. Ingen fortsætter med at vælge "Makroer" fra rullelisten med "Vælg kommandoer fra".
  11. Klik derefter på den makro, du lige opretter.
  12. Klik derefter på "Tilføj" i midten af ​​vinduet.
  13. Nu placeres makroen i den nye gruppe. Højreklik bare på makroen.
  14. Og vælg "Omdøb" mulighed.Klik på "Tilpas bånd" -> Vælg et sted til makroen -> Vælg "Makroer" i "Vælg kommandoer fra" -> Klik på makroen -> klik på "Tilføj" -> Højreklik på makroen -> Vælg "Omdøb"
  15. I dialogboksen "Omdøb" skal du vælge et symbol til din makro.
  16. Indtast derefter skærmnavnet.
  17. Klik på "OK".Vælg et symbol -> Skriv visningsnavn -> Klik på "OK"
  18. Gå nu tilbage til vinduet "Word-indstillinger", og klik på "OK" der. Makroen starter optagelsen fra nu af.Klik på "OK" i "Word-indstillinger"Word starter optagelse af en makro

Indsæt tekst som uformateret tekst

  1. Kopier først en del af en lang tekst.
  2. Klik derefter på fanen "Hjem".
  3. Klik på "Indsæt".
  4. Vælg derefter "Indsæt speciel".Klik på "Hjem" -> Klik på "Indsæt" -> Klik på "Indsæt specielt"
  5. Og vælg "Uformateret tekst" i dialogboksen "Indsæt speciel".
  6. Klik derefter på “OK”. Du kan få en tekst med formatering som nedenfor:Vælg "Uformateret tekst" -> Klik på "OK"Tekst indsat som uformateret tekst

Fjern gentagne ord

  1. Begynd derefter at rydde formateringen til venstre. Tryk på "Ctrl+H" for at åbne dialogboksen "Søg og erstat".
  2. Og skriv "Pil" i "Find hvad" tekstfelt.
  3. Klik derefter på "Erstat alle".Skriv det gentagne ord i "Find hvad" tekstfelt -> Klik på "Erstat alle"

Fjern fanetegn

  1. For det første skal du trykke på "Ctrl + H" for at åbne dialogboksen "Find og erstat".
  2. Skriv derefter “^ t” i “Find hvad” tekstfeltet.
  3. Klik derefter på "Erstat alle" for at fjerne alle fanebladetegn.Skriv "^ t" i "Find hvad" Tekstfelt -> Klik på "Erstat alle"

Fjern ekstra emner

  1. Tryk stadig på "Ctrl + H" for at åbne dialogboksen "Find og erstat".
  2. I tekstfeltet "Find hvad" skal du trykke to gange på den tomme tast.
  3. Klik derefter på knappen "Erstat alle".Tryk på tom tast to gange i "Find hvad" tekstfelt -> Klik på "Erstat alle"

Fjern blanke linjer og ekstra blanke sammen

Nogle gange, når du bruger "Find og erstat" -funktionen til at fjerne formateringen, skal du justere lidt for at imødekomme dit eget behov. For eksempel, hvis du ikke fjerner alle ekstra emner, når du anvender ovenstående trin, kan du bruge nedenstående trin til at slette dem sammen med tomme linjer.

  1. På samme måde skal du trykke på "Ctrl + H" for at åbne dialogboksen "Find og erstat".
  2. Derefter i tekstfeltet "Find hvad" skal du først trykke på en tom tast.
  3. Skriv derefter “^ p”.
  4. Skriv "^ p" i tekstfeltet "Erstat med".
  5. Klik på "Erstat alle".Tryk på blank tast først -> Skriv "^ p" i "Find hvad" Tekstboks -> Skriv "^ p" i "Erstat med" Tekstboks -> Klik på "Udskift alle"
  6. Åbn igen dialogboksen "Find og erstat".
  7. Og i tekstfeltet "Find hvad" skal du først skrive "^ p".
  8. Tryk derefter på blank tast en gang.
  9. Skriv derefter “^ p” i “Erstat med” tekstfelt.
  10. Klik til sidst på “Erstat alle” -knappen.Skriv "^ p" Først -> Tryk på blank tast en gang i "Find hvad" Tekstboks -> Skriv "^ p" i "Erstat med" Tekstboks -> Klik på "Erstat alle"

Fjern de venstre tomme linier, hvis det er nødvendigt

Hvis der stadig er tomme linjer tilbage, skal du prøve at følge trinene:

  1. Tryk på "Ctrl + H" for at åbne dialogboksen "Find og erstat".
  2. næste type “^ p ^ p” i “Find hvad” tekstfelt.
  3. Og skriv "^ p" i "Erstat med" tekstfelt.
  4. Klik til sidst på “Erstat alle” -knappen.Skriv "^ p ^ p" i "Find hvad" Tekstboks -> Skriv "^ p" i "Erstat med" Tekstboks -> Klik på "Erstat alle"

Nu kan du muligvis få resultatet som nedenfor:Effekten af ​​at bruge "Erstat" -funktionen til at fjerne formatering

Vi foreslår her, at du tager ovenstående rækkefølge for at fjerne tekstformateringen, så du generelt kan slette formateringen. Og som vi har nævnt, er du undertiden nødt til at rydde andre former for formatering, så skal du bruge funktionen "Find og erstat" alene. For flere måder at fjerne formatering kan du besøge denne artikel: 3 måder at fjerne uønskede elementer fra dine Word-dokumenter med det samme

Du kan tjekke følgende video for at se demonstrationen:

Stop optagelse af makro

  1. Når du er færdig med at fjerne tekstformateringen, skal du klikke på fanen "Udvikler".
  2. Klik derefter på "Stop optagelse". Nu gemmes makroen.Klik på "Udvikler" -> Klik på "Stop optagelse"

Sådan kører du en makro

  1. Kopier teksten med formatering online, sig.
  2. Åbn Word næste.
  3. Klik derefter på fanen "Udvikler".
  4. Klik på makroikonet, så vises teksten på dokumentet uden yderligere formatering.Klik på "Udvikler" -> Klik på den netop optagede makroEffekt af at bruge makro til at fjerne formatering

Bemærk: For nybegyndere kan du bare tage ovenstående trin for at oprette og køre en makro. At køre en makro hjælper dig med at slippe af med den irriterende formatering som helhed, hvilket er nok.

VBA-koder for eksperten

Først er der en måde at se VBA-koder på.

  1. Klik først på fanen "Udvikler".
  2. Klik derefter på “Visual Basic” i gruppen “Kode”.Klik på "Udvikler" -> Klik på "Visual Basic"
  3. I "Microsoft Visual Basic for Applications" -editoren skal du først klikke på "Normal" i venstre side.
  4. Klik derefter på “Moduler”.
  5. Dobbeltklik derefter på “NewMacros”, og du vil kunne se koden i højre side.Klik på "Normal" -> Klik på "Moduler" -> Dobbeltklik på "NewMacros"

I dette tilfælde er koderne som nedenfor:

 

Undertekst ()

'

'copytext Makro

'

'

    Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placering: = _

        wdInLine, DisplayAsIcon: = Falsk

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “Pil”

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ t”

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = ”“

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Tekst = ”^ p”

        .Replacement.Text = “^ p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ p”

        .Replacement.Text = “^ p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Slut med

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Når vi taler om eksperter og avancerede brugere, der er fortrolige med VBA, kan du helt justere koderne for at tilfredsstille dine krav, hvilket vil være mere praktisk og præcist.

Sikre dine filer

Brugere af Word overalt i verden har tendens til at udnytte det bedst muligt. Det er en stor og også en farlig idé, da det øger risikoen for at kollapse Word med forkerte handlinger. Derfor skal du altid finde måder at sikre dine filer på. Blandt de tilgængelige muligheder får du en doc reparation værktøj på forhånd lyder ikke dårligt.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder excel opsving og pdf produkter til reparation af software. For mere information besøg www.datanumen.com

Kommentarer er lukket.