Si të shkruani makro për pastrimin e dokumenteve në Word 2016

Përpara asaj ruajtjeje përfundimtare, ose çdo herë që jeni duke punuar në një dokument të madh në Word 2016, merrni parasysh të bëni një pastrim dokumenti. Është një proces që përfshin kërkimin e personazheve mashtrues dhe teksteve të tjera problematike.

Një rutinë e pastrimit të dokumenteve përfshin kërkimin e hapësirave pasuese në fund të paragrafëve, hapësirave të dyfishta, skedave të dyfishta dhe çelësave të dyfishtë Enter (paragrafë bosh). Të gjitha këto janë sende që duhen shmangur, por gjithsesi ato përfundojnë në dokumente të gjata.

Procesi i eliminimit të këtyre elementeve të padëshiruar përfshin përdorimin e kutisë së dialogut Find and Replace. Duhet të përdorni butonin Special për të futur karaktere speciale, si Space, Tab dhe Enter.

Makroja e krijuar për të kryer punën e pastrimit të dokumentit regjistroi goditjet e tasteve të përdorura për të kërkuar dhe zëvendësuar karaktere të ndryshme. Pastaj Redaktori Visual Basic u përdor për të hequr disa nga kodet e tepërta. Këtu është rezultati:

Sub document_cleanup()

'

' document_cleanup Macro

' Hiq hapësirat pasuese dhe hapësirat e dyfishta, skedat dhe çelësat Enter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Hiq hapësirat pasuese nga një paragraf

Me Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Përpara = e vërtetë

Fund Me

Selection.Find.Execute Replace:=wdReplaceAll

' Hiq hapësirat e dyfishta

Me Përzgjedhje.Gjeni

>.Text = " "

.Zëvendësim.Text = " "

Fundi me

Selection.Find.Execute Replace:=wdReplaceAll

' Hiq skedat e dyfishta

Me Selection.Find

.Text = "^t^t"

.Replacement.Text = "^t"

Fundi me

Selection.Find.Execute Replace:=wdReplaceAll

' Hiq çelësat e dyfishtë Enter (paragrafët bosh)

Me Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Fund Me

Selection.Find.Execute Replace:=wdReplaceAll

Fund Sub

Operacioni i parë i kërkimit dhe zëvendësimit heq hapësirat pasuese. Teksti i kërkimit është ^w^v, i cili kërkon çdo karakter të hapësirës së bardhë (^w) përpara tastit Enter (^v). Këto karaktere të hapësirës së bardhë - hapësira, skeda, e kështu me radhë - zëvendësohen me tastin Enter, i cili heq hapësirat pasuese.

Kërkimi dhe zëvendësimi i dytë heq hapësirat e dyfishta. shtypni dy herë shiritin e hapësirës për tekstin e kërkimit dhe shtypni shiritin e hapësirës një herë për tekstin zëvendësues.

Kërkimi dhe zëvendësimi i tretë heq skedat e dyfishta. ^t përfaqëson karakteret e skedës në kutinë e dialogut Find and Replace.

Kërkimi dhe zëvendësimi përfundimtar heq paragrafët bosh. Karakteret ^v përfaqësojnë tastin Enter, kështu që zëvendësimi i ^v^v me ^v heq çdo paragraf bosh.

Kjo makro funksionon mirë, por mund të jetë më mirë. Për shembull, nuk trajton hapësira të trefishta ose skeda të trefishta. Ju do të duhet të ekzekutoni makro për herë të dytë për këtë. Nëse ofroni talentin e programimit, kodi i makro mund t'i adresojë ato çështje.