Denne artikkelen vil vise deg hvordan du fjerner formateringen av limt tekst med makro og VBA i ordet.
Det skjer mye når du kopierer en tekst på nettet, og du finner ut at teksten er i rik formatering. For eksempel er det repeterende ord, tomme linjer, tabulatortegn osv. Likevel kan slik formatering være ganske irriterende, spesielt til tider du ikke trenger. Naturligvis vil du fjerne formateringen manuelt hver for hver. Men hva om teksten er veldig lang? Da vil metoden ovenfor være mindre effektiv.
Faktisk er det en måte å bruke makro for å fjerne all tekstformatering en gang for alle. Her er mer:
Trinn for å spille inn en makro i Word
- Først åpner du Word.
- Og sørg for at du har lagt til "Utvikler"-fanen på båndet først. For detaljerte instruksjoner for å legge til "Utvikler", vennligst les artikkelen: Slik setter du inn bakgrunnsmusikk i Word-dokumentet ditt
- Når "Utvikler"-fanen er tilgjengelig, klikker du på den.
- Klikk deretter på "Record Macro" i "Code"-gruppen.
- Nå vil en "Record Macro"-dialogboks dukke opp. Skriv først inn makronavnet, for eksempel "kopitekst" her.
- I "Tildel makro til"-delen velger du enten "Knapp" eller "Tastatur". Her går vi til "Knapp".
- Klikk deretter "OK".
- Og nå vil du se vinduet "Word Options". Klikk på "Tilpass bånd".
- Finn deretter en plassering for makroen på høyre side. Her klikker vi "Ny gruppe" for å angi en ny for makroen.
- Noe fortsett å velge "Makroer" fra rullegardinlisten over "Velg kommandoer fra".
- Klikk deretter på makroen du nettopp opprettet.
- Klikk deretter "Legg til" i midten av vinduet.
- Nå vil makroen bli plassert i den nye gruppen. Bare høyreklikk på makroen.
- Og velg alternativet "Gi nytt navn".
- I "Gi nytt navn"-dialogboksen velger du et symbol for makroen din.
- Skriv deretter inn visningsnavnet.
- Klikk på "OK".
- Gå nå tilbake til "Word Options"-vinduet, og klikk "OK" der. Makroen starts innspilling fra nå.
Lim inn tekst som uformatert tekst
- Først kopierer du en del av en lang tekst.
- Klikk deretter på "Hjem"-fanen.
- Klikk "Lim inn".
- Deretter velger du "Lim inn spesial".
- Og velg "Uformatert tekst" i dialogboksen "Lim inn spesial".
- Klikk deretter "OK". Du kan få en tekst med formatering som nedenfor:
Fjern repeterende ord
- Neste start slette formateringen til venstre. Trykk "Ctrl + H" for å åpne "Finn og erstatt" dialogboksen.
- Og skriv "Pil" i "Finn hva" tekstboksen.
- Klikk deretter på "Erstatt alle".
Fjern tabulatortegn
- Først trykker du på "Ctrl + H" for å åpne dialogboksen "Finn og erstatt".
- Skriv deretter "^t" i tekstboksen "Finn hva".
- Klikk deretter på "Erstatt alle" for å fjerne alle tabulatortegn.
Fjern ekstra blanke
- Fortsatt trykk "Ctrl + H" for å åpne "Finn og erstatt" dialogboksen.
- I "Finn hva"-tekstboksen trykker du på den tomme tasten to ganger.
- Klikk deretter på "Erstatt alle"-knappen.
Fjern tomme linjer og ekstra blanke sammen
Noen ganger, når du bruker "Finn og erstatt"-funksjonen for å fjerne formateringen, må du justere litt for å møte ditt eget behov. For eksempel, hvis du ikke klarer å fjerne alle ekstra tomme felter når du bruker trinnene ovenfor, kan du bruke trinnene nedenfor for å slette dem sammen med tomme linjer.
- På samme måte trykker du på "Ctrl + H" for å åpne dialogboksen "Finn og erstatt".
- Neste i "Finn hva"-tekstboksen, trykk først på en tom tast.
- Skriv deretter "^p".
- I tekstboksen "Erstatt med" skriver du inn "^p".
- Klikk "Erstatt alle".
- Åpne dialogboksen "Finn og erstatt" igjen.
- Og i tekstboksen "Finn hva", skriv først "^p".
- Trykk deretter på blank tast én gang.
- Skriv deretter "^p" i "Erstatt med" tekstboksen.
- Klikk til slutt på "Erstatt alle"-knappen.
Fjern de venstre tomme linjene om nødvendig
Likevel, hvis det er tomme linjer igjen, prøv følgende trinn:
- Trykk "Ctrl + H" for å åpne "Finn og erstatt" dialogboksen.
- skriv deretter «^p^p» i «Finn hva»-tekstboksen.
- Og skriv "^p" i "Erstatt med" tekstboksen.
- Til slutt klikker du på "Erstatt alle"-knappen.
Nå kan du få resultatet som nedenfor:
Vi foreslår her at du tar ordren ovenfor for å fjerne tekstformateringen slik at du generelt kan slette formateringen. Og som vi har nevnt, noen ganger må du fjerne andre typer formatering, da bør du bruke "Finn og erstatt"-funksjonen på egen hånd. For flere måter å fjerne formatering på, kan du besøke denne artikkelen: 3 måter å fjerne uønskede elementer fra Word-dokumentene dine umiddelbart
Du kan sjekke følgende video for å se demonstrasjonen:
Stopp opptak av makro
- Når du er ferdig med å fjerne tekstformateringen, klikker du på "Utvikler"-fanen.
- Klikk deretter "Stopp opptak". Nå vil makroen bli lagret.
Hvordan kjøre en makro
- Kopier teksten med formatering på nettet, for eksempel.
- Åpne Word neste.
- Klikk deretter på "Utvikler"-fanen.
- Klikk på makroikonet og du vil se teksten på dokumentet uten ytterligere formatering.
Merk: For nybegynnere kan du bare ta trinnene ovenfor for å opprette og kjøre en makro. Å kjøre en makro vil hjelpe deg å bli kvitt den irriterende formateringen for øvrig, noe som er nok.
VBA-kodene for eksperten
Først er det måten å se VBA-kodene på.
- Klikk først på "Utvikler"-fanen.
- Klikk deretter "Visual Basic" i "Kode"-gruppen.
- I "Microsoft Visual Basic for Applications"-redigering, klikk "Normal" på venstre side først.
- Klikk deretter "Moduler".
- Dobbeltklikk deretter "NewMacros" og du vil kunne se koden på høyre side.
I dette tilfellet er kodene som nedenfor:
Sub copytext()
'
' kopitekstmakro
'
'
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _
wdInLine, DisplayAsIcon: = Falsk
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = «Pil»
.Replacement.Text = ""
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = «^t»
.Replacement.Text = ""
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Tekst = " "
.Replacement.Text = ""
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Tekst = ” ^p”
.Replacement.Text = «^p»
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = "^p "
.Replacement.Text = «^p»
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = «^p^p»
.Replacement.Text = «^p»
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = «^p^p»
.Replacement.Text = «^p»
.Forover = Sant
.Wrap = wdFindContinue
.format=false
.MatchCase = Falsk
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Slutt med
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Når vi snakker om eksperter og avanserte brukere som er kjent med VBA, kan du justere kodene fullstendig for å tilfredsstille dine krav, noe som vil være mer praktisk og presist.
Sikre filene dine
Brukere av Word over hele verden har en tendens til å utnytte det best mulig. Det er en flott og også en farlig idé, siden det øker risikoen for å kollapse Word med feil operasjoner. Derfor bør du alltid finne måter å sikre filene dine på. Blant alternativene som er tilgjengelige, får du en doc reparasjon verktøyet på forhånd høres ikke dårlig ut.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert excel utvinning og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med
Legg igjen en kommentar