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
- Först öppnar du ditt Word.
- 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
- När fliken "Utvecklare" är tillgänglig klickar du på den.
- Klicka sedan på "Spela in makro" i gruppen "Kod".
- Nu kommer en dialogruta "Spela in makro" att dyka upp. Skriv först makronamnet, till exempel ”copytext” här.
- Välj sedan antingen "Knapp" eller "Tangentbord" i delen "Tilldela makro till". Här kommer vi att gå "Knapp".
- Klicka sedan på “OK”.
- Och nu ser du fönstret "Wordalternativ". Klicka på "Anpassa menyfliksområdet".
- 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.
- Ingen fortsätter att välja "Makron" i rullgardinsmenyn "Välj kommandon från".
- Klicka sedan på det makro du precis skapar.
- Klicka sedan på "Lägg till" mitt i fönstret.
- Nu placeras makrot i den nya gruppen. Högerklicka bara på makrot.
- Och välj alternativet "Byt namn".
- Välj en symbol för ditt makro i dialogrutan "Byt namn".
- Skriv sedan visningsnamnet.
- Klicka på "OK".
- Gå nu tillbaka till fönstret "Wordalternativ" och klicka på "OK" där. Makroen starinspelning från nu.
Klistra in text som oformaterad text
- Kopiera först en del av en lång text.
- Klicka sedan på fliken "Hem".
- Klicka på "Klistra in".
- Välj sedan "Klistra in special".
- Och välj "Oformaterad text" i dialogrutan "Klistra in special".
- Klicka sedan på “OK”. Du kan få en text med formatering som nedan:
Ta bort upprepande ord
- Nästa starrensa formateringen till vänster. Tryck på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
- Och skriv "Pil" i "Hitta vad" textrutan.
- Klicka sedan på "Ersätt alla".
Ta bort tabbtecken
- Först trycker du på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
- Skriv sedan ”^ t” i textrutan ”Hitta vad”.
- Klicka sedan på "Ersätt alla" för att ta bort alla fliktecken.
Ta bort extra ämnen
- Tryck fortfarande på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
- Tryck på den tomma tangenten två gånger i textrutan "Hitta vad".
- Klicka sedan på "Ersätt alla" -knappen.
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.
- På samma sätt trycker du på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
- Nästa i textrutan "Hitta vad", tryck först på en tom knapp.
- Skriv sedan “^ p”.
- Skriv ”^ p” i textrutan ”Ersätt med”.
- Klicka på "Ersätt alla".
- Öppna igen dialogrutan "Sök och ersätt".
- Och i textrutan "Hitta vad" skriver du först "^ p".
- Tryck sedan på den tomma knappen en gång.
- Skriv sedan ”^ p” i ”Byt ut med” textrutan.
- Klicka äntligen på knappen "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:
- Tryck på "Ctrl + H" för att öppna dialogrutan "Sök och ersätt".
- nästa typ “^ p ^ p” i “Hitta vad” textrutan.
- Och skriv ”^ p” i ”Byt ut med” textrutan.
- Slutligen klickar du på knappen "Ersätt alla".
Nu kan du få resultat enligt nedan:
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
- När du har tagit bort textformateringen klickar du på fliken "Utvecklare".
- Klicka sedan på "Stoppa inspelning". Nu sparas makrot.
Hur man kör ett makro
- Kopiera texten med formatering online, säg.
- Öppna Word nästa.
- Klicka sedan på fliken "Utvecklare".
- Klicka på makroikonen så visas texten i dokumentet utan ytterligare 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.
- Klicka först på fliken "Utvecklare".
- Klicka sedan på “Visual Basic” i gruppen “Kod”.
- I "Microsoft Visual Basic for Applications" -redigeraren klickar du först på "Normal" till vänster.
- Klicka sedan på “Modules”.
- Därefter dubbelklickar du på “NewMacros” så kommer du att kunna se koden på höger sida.
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