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.