In dit artikel wordt uitgelegd hoe u de opmaak van geplakte tekst met macro en VBA in uw woord verwijdert.
Het gebeurt vaak wanneer u een tekst online kopieert en u merkt dat de tekst een opmaak heeft. Er zijn bijvoorbeeld herhalende woorden, blanco regels, tab-tekens, enz. Toch kan een dergelijke opmaak behoorlijk vervelend zijn, vooral op momenten dat je het niet nodig hebt. Uiteraard zou u de opmaak elk handmatig verwijderen. Maar wat als de tekst erg lang is? Dan is bovenstaande methode minder efficiënt.
In feite is er een manier om macro te gebruiken om alle tekstopmaak voor eens en altijd te verwijderen. Hier is meer:
Stappen om een macro in Word op te nemen
- Open eerst uw Woord.
- En zorg ervoor dat u eerst het tabblad "Ontwikkelaar" op het lint hebt toegevoegd. Lees het artikel voor gedetailleerde instructies om "Developer" toe te voegen: Achtergrondmuziek invoegen in uw Word-document
- Zodra het tabblad "Ontwikkelaar" beschikbaar is, klikt u erop.
- Klik vervolgens op "Macro opnemen" in de groep "Code".
- Nu zal een "Record Macro" dialoogvenster verschijnen. Typ hier eerst de macronaam, zoals "copytext".
- Kies vervolgens in het gedeelte "Macro toewijzen aan" de optie "Knop" of "Toetsenbord". Hier gaan we "Button".
- Klik vervolgens op "OK".
- En nu ziet u het venster "Opties voor Word". Klik op "Lint aanpassen".
- Zoek vervolgens aan de rechterkant een locatie voor de macro. Hier klikken we op “Nieuwe groep” om een nieuwe in te stellen voor de macro.
- Noe ga door met het kiezen van "Macro's" in de vervolgkeuzelijst met "Kies opdrachten uit".
- Klik vervolgens op de macro die u zojuist hebt gemaakt.
- Klik vervolgens op "Toevoegen" in het midden van het venster.
- Nu wordt de macro in de nieuwe groep geplaatst. Klik met de rechtermuisknop op de macro.
- En kies de optie "Hernoemen".
- Kies in het dialoogvenster "Naam wijzigen" een symbool voor uw macro.
- Typ vervolgens de weergavenaam.
- Klik OK".
- Ga nu terug naar het venster "Opties voor Word" en klik daar op "OK". De macro starts opname vanaf nu.
Plak tekst als niet-opgemaakte tekst
- Kopieer eerst een deel van een lange tekst.
- Klik vervolgens op het tabblad "Home".
- Klik op "Plakken".
- Kies vervolgens "Plakken speciaal".
- En kies "Niet-opgemaakte tekst" in het dialoogvenster "Plakken speciaal".
- Klik vervolgens op "OK". Mogelijk krijgt u een tekst met opmaak zoals hieronder:
Verwijder herhalende woorden
- Volgende start de resterende opmaak wissen. Druk op "Ctrl + H" om het dialoogvenster "Zoeken en vervangen" te openen.
- En typ "Pijl" in het tekstvak "Zoeken naar".
- Klik vervolgens op "Alles vervangen".
Tabtekens verwijderen
- Druk eerst op "Ctrl + H" om het dialoogvenster "Zoeken en vervangen" te openen.
- Typ vervolgens "^ t" in het tekstvak "Zoeken naar".
- Klik vervolgens op "Alles vervangen" om alle tabtekens te verwijderen.
Verwijder extra lege plekken
- Druk nog steeds op "Ctrl + H" om het dialoogvenster "Zoeken en vervangen" te openen.
- Druk in het tekstvak "Zoeken naar" tweemaal op de blanco toets.
- Klik vervolgens op de knop "Alles vervangen".
Verwijder lege regels en extra lege plekken samen
Soms, wanneer u de functie "Zoeken en vervangen" gebruikt om de opmaak te verwijderen, moet u een beetje aanpassen om aan uw eigen behoefte te voldoen. Als u bijvoorbeeld niet alle extra spaties verwijdert tijdens het toepassen van de bovenstaande stappen, kunt u de onderstaande stappen gebruiken om ze samen met blanco regels te verwijderen.
- Druk op dezelfde manier op "Ctrl + H" om het dialoogvenster "Zoeken en vervangen" te openen.
- Druk vervolgens in het tekstvak "Zoeken naar" eerst op een lege toets.
- Typ vervolgens "^ p".
- Typ in het tekstvak "Vervangen door" "^ p".
- Klik op "Alles vervangen".
- Open opnieuw het dialoogvenster "Zoeken en vervangen".
- En typ in het tekstvak "Zoeken naar" eerst "^ p".
- Druk vervolgens eenmaal op de blanco toets.
- Typ vervolgens "^ p" in het tekstvak "Vervangen door".
- Klik ten slotte op de knop "Alles vervangen".
Verwijder indien nodig de linker lege regels
Probeer de volgende stappen als er nog lege regels over zijn:
- Druk op "Ctrl + H" om het dialoogvenster "Zoeken en vervangen" te openen.
- typ vervolgens "^ p ^ p" in het tekstvak "Zoeken naar".
- En typ "^ p" in het tekstvak "Vervangen door".
- Klik ten slotte op de knop "Alles vervangen".
Inmiddels kunt u het onderstaande resultaat krijgen:
We raden u hier aan de bovenstaande volgorde te nemen om de tekstopmaak te verwijderen, zodat u de opmaak in het algemeen kunt wissen. En zoals we al zeiden, moet u soms andere soorten opmaak wissen, dan moet u de functie "Zoeken en vervangen" zelf gebruiken. Voor meer manieren om opmaak te verwijderen, kunt u dit artikel bezoeken: 3 manieren om ongewenste elementen onmiddellijk uit uw Word-documenten te verwijderen
U kunt de volgende video bekijken om de demonstratie te zien:
Stop met het opnemen van macro
- Als u klaar bent met het verwijderen van de tekstopmaak, klikt u op het tabblad "Ontwikkelaar".
- Klik vervolgens op "Opname stoppen". Nu wordt de macro opgeslagen.
Een macro uitvoeren
- Kopieer de tekst met opmaak online, bijvoorbeeld.
- Open vervolgens Word.
- Klik vervolgens op het tabblad "Ontwikkelaar".
- Klik op het macropictogram en u ziet de tekst op het document zonder extra opmaak.
Opmerking: voor beginners kunt u de bovenstaande stappen volgen om een macro te maken en uit te voeren. Als u een macro uitvoert, kunt u de irritante opmaak in het algemeen verwijderen, wat voldoende is.
De VBA-codes voor de expert
Ten eerste is er de manier om de VBA-codes te bekijken.
- Klik eerst op het tabblad "Ontwikkelaar".
- Klik vervolgens op "Visual Basic" in de groep "Code".
- Klik in de "Microsoft Visual Basic for Applications" -editor eerst op "Normaal" aan de linkerkant.
- Klik vervolgens op "Modules".
- Dubbelklik vervolgens op “NewMacros” en u zult de code aan de rechterkant kunnen zien.
In dit geval zijn de codes als volgt:
Sub copytext ()
'
'copytext Macro
'
'
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _
wdInLine, DisplayAsIcon: = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = "Pijl"
.Replacement.Text = ""
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = "^ t"
.Replacement.Text = ""
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = "^ p"
.Replacement.Text = "^ p"
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = "^ p"
.Replacement.Text = "^ p"
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = "^ p ^ p"
.Replacement.Text = "^ p"
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.Text = "^ p ^ p"
.Replacement.Text = "^ p"
.Forward = Waar
.Wrap = wdFindVerdergaan
.Formaat = False
.MatchCase = False
.MatchWholeWord = Onwaar
.MatchWildcards = False
.MatchSoundsLike = Onwaar
.MatchAllWordForms = Onwaar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Over experts en gevorderde gebruikers gesproken die bekend zijn met VBA, u kunt de codes volledig aanpassen aan uw vereisten, wat handiger en nauwkeuriger zal zijn.
Beveilig uw bestanden
Wereldwijd maken gebruikers van Word er het beste gebruik van. Het is een geweldig en ook een gevaarlijk idee, omdat het het risico vergroot dat Word met verkeerde bewerkingen instort. Daarom moet u altijd manieren vinden om uw bestanden te beveiligen. Onder de beschikbare opties is het verkrijgen van een doc reparatie tool vooraf klinkt niet slecht.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder excel herstel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com