Computerra eliminarea spațiilor suplimentare în cuvântul

Două macro simplu va salva de la activități manuale de rutină, care, din păcate, inevitabil atunci când editați orice documente Word, în special atunci când se caută spații suplimentare în text.

În primul rând, deschide orice document pe care intenționați să verificați sau să se creeze un astfel de document, adăugând în mod deliberat la textul spații suplimentare între cuvinte și semne de punctuație înainte. În primul rând, vom crea un macro care va elimina spații suplimentare între cuvinte.

1. Accesați meniul "Tools" (Instrumente), selectați "Macro" (Macro) din lista care apare, faceți clic pe "Start Recording" (Înregistrare nouă Macro). O casetă de dialog apare în care doriți să alocați un nume de macro (să DeleteSpace) și faceți clic pe butonul cu imaginea unui ciocan pentru a atribui butonul macro. Dacă nu doriți să se afișeze butonul macro de pe bara de instrumente, și doriți să utilizați comenzile rapide de la tastatură, puteți face clic pe butonul cu imaginea tastaturii:

2. O casetă de dialog se deschide în care ar trebui să mergeți la fila de mijloc „Comenzi“ și trageți din câmpul din dreapta în bara de instrumente a noului macro numit Normal.NewMacros.DeleteSpace. Apropo, mai târziu sau acum puteți schimba stilul de buton, editați textul sau să desemneze orice buton adecvat de imagine.

3. Închideți fereastra. După aceea, fereastra de operare a documentului va fi soclu cu butoane de control pentru macro-uri de înregistrare (a se vedea. Screenshot).

4. Acum, fii atent, pentru că macro este deja scris. Apăsați combinația de taste „CTRL + H“. O casetă de dialog se va deschide „Find and Replace“. Pentru a accesa parametrii de căutare, faceți clic pe butonul „Mai mult“, dacă sunt prezentate în dialogul sub formă de rezumat.

5. Scoateți tot ce se află în câmpul „Find“ in „Replace“. Faceți clic pe „Eliminați formatarea“ dacă butonul este activ. Deselectați din toate modurile în grupul „Căutare avansată“, dar lăsați sau căpușe „wildcard“. Din lista verticală, direcția „Pretutindeni“.

6. Selectați întregul text al documentului prin apăsarea combinației de taste „CTRL + A“.

7. Tastați „Find“ gol, apoi tastați următoarea expresie:

Aici, în paranteze a pus numărul 2, și imediat după virgulă ei. Această expresie înseamnă că căutarea se realizează două sau mai multe apariții consecutive ale spațiate semnului, care stă în fața gulerului de deschidere. În cazul nostru, căutarea se realizează două sau mai multe spații.

8. Du-te la „Înlocuiți cu“ și să introduceți un singur spațiu.

9. Faceți clic pe "Replace All". Astfel, în cazul în care mai mult de un rând cu un spațiu este găsit, ele sunt înlocuite cu un singur spațiu.

10. După căutare și înlocuiți caseta de dialog, închideți "Find and Replace". Deselectați textul făcând clic pe tastele tastaturii săgeată.

11. Faceți clic pe butonul cu un pătrat în panoul de control pentru a opri înregistrarea.

DeleteSpace Sub ()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
cu Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = Adevărat
.Wrap = wdFindAsk
.Format = False
.MatchCase = false
.MatchWholeWord = false
.MatchAllWordForms = False
.MatchSoundsLike = false
.MatchWildcards = Adevărat
Cu End
Selection.Find.Execute Înlocuiți: = wdReplaceAll
Selection.MoveRight unitate: = wdCharacter Count: = 1

În al doilea rând, vom crea un macro pentru a găsi și elimina toate spații suplimentare înainte de semne de punctuație. Repetați pașii de la 1 la 6 inclusiv. Nume macro cum DeleteSpacePunctuationMark. Pașii următori:

1. Introduceți în „Find“ primul spațiu, apoi tastați următoarea expresie:

Această expresie literalmente înseamnă că percheziția se efectuează una sau mai multe spații într-un rând sunt dispuse orice enumerate în punctuație între paranteze.

2. Du-te la „Înlocuiți cu“ și apoi tastați \ 1 (denumită în continuare, unitatea este numărul de serie de expresii paranteze).

3. Faceți clic pe "Replace All".

4. Când ați terminat, închideți caseta de dialog Căutare și înlocuiește „Găsiți și înlocuiți“. Deselectați textul făcând clic pe săgețile de pe tastatură cheie.

5. Faceți clic pe butonul cu un pătrat în panoul de control pentru a opri înregistrarea.

Sub DelSpacePunktMark ()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
cu Selection.Find
.Text = "([;. \ \ !?])"
.Replacement.Text = "\ 1"
.Forward = Adevărat
.Înfășurați = wdFindContinue
.Format = False
.MatchCase = false
.MatchWholeWord = false
.MatchAllWordForms = False
.MatchSoundsLike = false
.MatchWildcards = Adevărat
Cu End
Selection.Find.Execute Înlocuiți: = wdReplaceAll
Selection.MoveLeft unitate: = wdCharacter Count: = 1
end Sub

Deci, te scapa de activități manuale de rutină, care, din păcate, inevitabil atunci când editați orice documente Word, în special atunci când se caută spații suplimentare în text.