Asiakirjan puhdistusmakrojen kirjoittaminen Word 2016:ssa

Ennen lopullista tallennusta tai aina, kun työskentelet suuren asiakirjan parissa Word 2016:ssa, harkitse asiakirjan puhdistamista. Se on prosessi, joka sisältää roistohahmojen ja muun ongelmallisen tekstin etsimisen.

Asiakirjan puhdistusrutiini sisältää välilyöntien etsimisen kappaleiden lopusta, kaksoisvälilyöntejä, kaksoissarkainta ja kaksoissyöttönäppäimiä (tyhjät kappaleet). Näitä kaikkia tulee välttää, mutta ne päätyvät joka tapauksessa pitkiin asiakirjoihin.

Näiden ei-toivottujen elementtien poistamiseen kuuluu Etsi ja korvaa -valintaikkunan käyttäminen. Sinun on käytettävä Special-painiketta erikoismerkkien, kuten välilyönnin, sarkain ja Enter, syöttämiseen.

Asiakirjan puhdistamista varten luotu makro tallensi eri merkkien etsimiseen ja korvaamiseen käytetyt näppäinpainallukset. Sitten Visual Basic Editoria käytettiin poistamaan osa ylimääräisestä koodista. Tässä on tulos:

Sub document_cleanup()

'

' document_cleanup Makro

' Poista välilyönnit ja kaksoisvälilyönnit, sarkaimet ja Enter-näppäimet

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Poista kappaleen välilyönnit

Selection.Find-sovelluksella

.Text = "^w^v"

.Replacement.Text = "^v"

.Eteenpäin = tosi

Lopeta kanssa

Selection.Find.Execute Replace:=wdReplaceAll

' Poista kaksoisvälit

Kanssa Selection.Find

>.Text = " " .Replacement.Text =

" "

Lopeta

Selection.Find.Execute Replace:=wdReplaceAll

' Poista kaksoisvälilehdet

Kanssa Selection.Find

.Text = "^t^t"

.Replacement.Text = " ^t"

Lopeta

Selection.Find.Execute Replace:=wdReplaceAll

Poista kaksois Enter-näppäimet (tyhjät kappaleet)

Kanssa Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Lopeta kanssa

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Ensimmäinen etsi ja korvaa -toiminto poistaa välilyönnit. Hakuteksti on ^w^v, joka etsii välilyöntejä (^w) ennen Enter-näppäintä (^v). Nämä välilyönnit - välilyönti, sarkain ja niin edelleen - korvataan Enter-näppäimellä, joka poistaa välilyönnit.

Toinen etsi ja korvaa -toiminto poistaa kaksinkertaiset välilyönnit. paina välilyöntiä kahdesti etsiäksesi tekstiä ja paina välilyöntiä kerran korvataksesi tekstin.

Kolmas haku ja korvaa poistaa kaksoisvälilehdet. ^t edustaa sarkainmerkkejä Etsi ja korvaa -valintaikkunassa.

Viimeinen haku ja korvaaminen poistaa tyhjät kappaleet. ^v-merkit edustavat Enter-näppäintä, joten ^v^v:n korvaaminen ^v:llä poistaa kaikki tyhjät kappaleet.

Tämä makro toimii hyvin, mutta se voisi olla parempi. Se ei esimerkiksi käsittele kolmoisvälilyöntejä tai kolminkertaisia ​​sarkaimia. Sinun on suoritettava makro toisen kerran sitä varten. Jos annat ohjelmointitaidot, makron koodi voi ratkaista nämä ongelmat.