Hur man tar bort formateringen av inklistrade texter med makro och VBA i ditt ord

Den här artikeln visar hur du tar bort formateringen av inklistrad text med makro och VBA i ditt ord.

Det händer mycket när du kopierar en text online och du tycker att texten är i rik formatering. Till exempel finns det upprepade ord, tomma rader, fliktecken osv. Ändå kan sådan formatering vara ganska irriterande, särskilt ibland du inte behöver. Naturligtvis skulle du ta bort formateringen manuellt var för sig. Men vad händer om texten är riktigt lång? Då blir metoden ovan mindre effektiv.

I själva verket finns det ett sätt att använda makro för att ta bort all textformatering en gång för alla. Här är mer:

Steg för att spela in en makro i Word

  1. Först öppnar du ditt Word.
  2. Och se till att du först har lagt till fliken "Utvecklare" på menyfliksområdet. För detaljerade instruktioner för hur du lägger till "Utvecklare", läs artikeln: Hur man infogar bakgrundsmusik i ditt Word-dokument
  3. När fliken "Utvecklare" är tillgänglig klickar du på den.
  4. Klicka sedan på "Spela in makro" i gruppen "Kod".Klicka på "Utvecklare" -> Klicka på "Spela in makro"
  5. Nu kommer en dialogruta "Spela in makro" att dyka upp. Skriv först makronamnet, till exempel ”copytext” här.
  6. Välj sedan antingen "Knapp" eller "Tangentbord" i delen "Tilldela makro till". Här kommer vi att gå "Knapp".
  7. Klicka sedan på “OK”.Namnge makroen -> Välj antingen "Knapp" eller "Tangentbord" för "Tilldela makro till" -> Klicka på "OK"
  8. Och nu ser du fönstret "Wordalternativ". Klicka på "Anpassa menyfliksområdet".
  9. Hitta sedan en plats för makrot på höger sida. Här klickar vi på "Ny grupp" för att ställa in en ny för makrot.
  10. Ingen fortsätter att välja "Makron" i rullgardinsmenyn "Välj kommandon från".
  11. Klicka sedan på det makro du precis skapar.
  12. Klicka sedan på "Lägg till" mitt i fönstret.
  13. Nu placeras makrot i den nya gruppen. Högerklicka bara på makrot.
  14. Och välj alternativet "Byt namn".Klicka på "Anpassa menyfliksområdet" -> Välj en plats för makroen -> Välj "Makron" i "Välj kommandon från" -> Klicka på makroen -> klicka på "Lägg till" -> Högerklicka på makroen -> Välj "Byt namn"
  15. Välj en symbol för ditt makro i dialogrutan "Byt namn".
  16. Skriv sedan visningsnamnet.
  17. Klicka på "OK".Välj en symbol -> Skriv visningsnamn -> Klicka på "OK"
  18. Gå nu tillbaka till fönstret "Wordalternativ" och klicka på "OK" där. Makroen starinspelning från nu.Klicka på "OK" i "Word-alternativ"Ord Starting Inspelning av makro

Klistra in text som oformaterad text

  1. Kopiera först en del av en lång text.
  2. Klicka sedan på fliken "Hem".
  3. Klicka på "Klistra in".
  4. Välj sedan "Klistra in special".Klicka på "Hem" -> Klicka på "Klistra in" -> Klicka på "Klistra in special"
  5. Och välj "Oformaterad text" i dialogrutan "Klistra in special".
  6. Klicka sedan på “OK”. Du kan få en text med formatering som nedan:Välj "Oformaterad text" -> Klicka på "OK"Text klistrad in som oformaterad text

Ta bort upprepande ord

  1. Nästa starrensa formateringen till vänster. Tryck på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
  2. Och skriv "Pil" i "Hitta vad" textrutan.
  3. Klicka sedan på "Ersätt alla".Skriv det upprepade ordet i "Hitta vad" textrutan -> Klicka på "Ersätt alla"

Ta bort tabbtecken

  1. Först trycker du på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
  2. Skriv sedan ”^ t” i textrutan ”Hitta vad”.
  3. Klicka sedan på "Ersätt alla" för att ta bort alla fliktecken.Skriv "^ t" i "Hitta vad" Textruta -> Klicka på "Ersätt alla"

Ta bort extra ämnen

  1. Tryck fortfarande på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
  2. Tryck på den tomma tangenten två gånger i textrutan "Hitta vad".
  3. Klicka sedan på "Ersätt alla" -knappen.Tryck på Tom knapp två gånger i "Hitta vad" textruta -> Klicka på "Ersätt alla"

Ta bort tomma linjer och extra ämnen tillsammans

Ibland, när du använder "Sök och ersätt" -funktionen för att ta bort formateringen, måste du justera lite för att möta ditt eget behov. Om du till exempel inte tar bort alla extra tomma ämnen när du använder ovanstående steg kan du använda stegen nedan för att ta bort dem tillsammans med tomma rader.

  1. På samma sätt trycker du på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
  2. Nästa i textrutan "Hitta vad", tryck först på en tom knapp.
  3. Skriv sedan “^ p”.
  4. Skriv ”^ p” i textrutan ”Ersätt med”.
  5. Klicka på "Ersätt alla".Tryck först på den tomma knappen -> Skriv "^ p" i "Hitta vad" Textruta -> Skriv "^ p" i "Ersätt med" Textruta -> Klicka på "Ersätt alla"
  6. Öppna igen dialogrutan "Sök och ersätt".
  7. Och i textrutan "Hitta vad" skriver du först "^ p".
  8. Tryck sedan på den tomma knappen en gång.
  9. Skriv sedan ”^ p” i ”Byt ut med” textrutan.
  10. Klicka äntligen på knappen "Ersätt alla".Skriv "^ p" Först -> Tryck på Tom knapp en gång i "Hitta vad" Textruta -> Skriv "^ p" i "Ersätt med" Textruta -> Klicka på "Ersätt alla"

Ta bort de vänstra tomma linjerna om det behövs

Om det fortfarande är tomma rader kan du försöka följa stegen:

  1. Tryck på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
  2. nästa typ “^ p ^ p” i “Hitta vad” textrutan.
  3. Och skriv ”^ p” i ”Byt ut med” textrutan.
  4. Slutligen klickar du på knappen "Ersätt alla".Skriv "^ p ^ p" i "Hitta vad" Textruta -> Skriv "^ p" i "Ersätt med" Textruta -> Klicka på "Ersätt alla"

Nu kan du få resultat enligt nedan:Effekt av att använda "Ersätt" -funktionen för att ta bort formatering

Vi föreslår här att du tar ovanstående ordning för att ta bort textformateringen så att du i allmänhet kan radera formateringen. Och som vi har nämnt måste du ibland rensa andra typer av formatering, så ska du använda funktionen "Sök och ersätt" på egen hand. För fler sätt att ta bort formatering kan du besöka den här artikeln: 3 sätt att ta bort oönskade element från dina Word-dokument direkt

Du kan kontrollera följande video för att se demonstrationen:

Sluta spela in makro

  1. När du har tagit bort textformateringen klickar du på fliken "Utvecklare".
  2. Klicka sedan på "Stoppa inspelning". Nu sparas makrot.Klicka på "Utvecklare" -> Klicka på "Stoppa inspelning"

Hur man kör ett makro

  1. Kopiera texten med formatering online, säg.
  2. Öppna Word nästa.
  3. Klicka sedan på fliken "Utvecklare".
  4. Klicka på makroikonen så visas texten i dokumentet utan ytterligare formatering.Klicka på "Utvecklare" -> Klicka på just inspelad makroEffekt av att använda makro för att ta bort formatering

Obs! För nybörjaren kan du bara ta stegen ovan för att skapa och köra ett makro. Att köra ett makro hjälper dig att bli av med den irriterande formateringen i stort, vilket räcker.

VBA-koderna för experten

Först finns det sätt att se VBA-koder.

  1. Klicka först på fliken "Utvecklare".
  2. Klicka sedan på “Visual Basic” i gruppen “Kod”.Klicka på "Utvecklare" -> Klicka på "Visual Basic"
  3. I "Microsoft Visual Basic for Applications" -redigeraren klickar du först på "Normal" till vänster.
  4. Klicka sedan på “Modules”.
  5. Därefter dubbelklickar du på “NewMacros” så kommer du att kunna se koden på höger sida.Klicka på "Normal" -> Klicka på "Moduler" -> Dubbelklicka på "NewMacros"

I det här fallet är koderna som nedan:

 

Sub copytext ()

'

'copytext Makro

'

'

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

        wdInLine, DisplayAsIcon: = Falskt

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “Pil”

        .Replacement.Text = ""

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ t”

        .Replacement.Text = ""

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = ”“

        .Replacement.Text = ""

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = ”^ p”

        .Replacement.Text = “^ p”

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ p”

        .Replacement.Text = “^ p”

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Med Selection.Find

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        Framåt = Sant

        .Wrap = wdFindContinue

        .Format = falskt

        .MatchCase = False

        .MatchWholeWord = Falskt

        .MatchWildcards = False

        .MatchSoundsLike = Falskt

        .MatchAllWordForms = Falskt

    Sluta med

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

På tal om experter och avancerade användare som är bekanta med VBA, kan du helt justera koder för att uppfylla dina krav, vilket blir mer bekvämt och exakt.

Säkra dina filer

Användare av Word över hela världen brukar utnyttja det på bästa sätt. Det är en fantastisk och också en farlig idé, eftersom det ökar risken för att kollapsa Word med fel operationer. Därför bör du alltid hitta sätt att säkra dina filer. Bland de tillgängliga alternativen, få en doc reparation verktyg i förväg låter inte dåligt.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-återhämtning och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com

Kommentera uppropet

E-postadressen publiceras inte. Obligatoriska fält är markerade *