Computerra премахване на излишни интервали в думата

Две прости макро ще спаси от рутинните ръчни дейности, които, уви, неизбежно, когато редактирате всяка дума документи, особено когато търсят допълнителни интервали в текста.

Първо, отворете който и да е документ, който възнамерявате да провери или да се създаде такъв документ, умишлено добавяне на текстови излишните интервали между думите и препинателни знаци преди. Първо ще създадете макрос, който ще премахнете излишните интервали между думите.

1. Отидете в менюто "Инструменти" (Tools), изберете "Макро" (Macro) от списъка, който се появява, щракнете върху "Старт на записване" (Record New Macro). А се появява диалогов прозорец, в който искате да присвоите макро име (нека DeleteSpace) и кликнете върху бутона с изображение на чук за присвояване на бутона макро. Ако не искате да се показва бутона макро в лентата с инструменти, и искате да използвате клавишни комбинации, можете да кликнете върху бутона с изображение на клавиатурата:

2. Отваря се диалогов прозорец, в който можете да отидете до средната раздела "команди" и плъзнете от дясно поле към лентата с инструменти на вашия нов макрос на име Normal.NewMacros.DeleteSpace. Между другото, по-късно или сега можете да промените стила на бутон, да редактирате текста, или да посочи всеки подходящ бутон на изображението.

3. Затворете прозореца. След това, операционната прозореца на документа ще бъде контакт с контролни бутони за запис на макроси (вж. Снимка).

4. Сега, бъдете внимателни, защото макроса вече е писано. Натиснете клавишната комбинация "CTRL + H". диалогов прозорец ще се отвори "за намиране и замяна". За достъп до параметрите на търсенето, "Още" бутон, щракнете ако се представя в диалоговия обобщена форма.

5. Премахване на всичко, което е в полето "Намери" в "Замяна". Щракнете върху "Премахване на форматирането", ако бутона е активен. Премахнете отметката от всички видове от групата "Разширено търсене", но оставя и отбележете "заместващи символи". От падащия списък, посоката на "Навсякъде".

6. Изберете целия текст на документа, като натиснете клавишната комбинация "CTRL + A".

7. Въведете в "намери" празно и след това въведете следния израз:

Тук, в скоби сложи номер 2, и веднага след нея и запетая. Този израз означава, че търсенето се извършва два или повече последователни разположени появявания на знака, който стои пред скоба за откриване. В нашия случай, търсенето се извършва два или повече пространства.

8. Отидете на "Замести с" и въведете един интервал.

9. Натиснете бутона "Замени всички". Така, ако се установи, повече от един ред с интервал, те се заместват с един интервал.

10. След търсенето и диалогов прозорец замени, затворете "за намиране и замяна". Отмяна на избора на текста, като кликнете върху клавишите със стрелки клавиатурата.

11. Щракнете върху бутона с квадратна в контролния панел, за да спрете записа.

Под DeleteSpace ()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Формат = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
завършва с
Selection.Find.Execute Сменете: = wdReplaceAll
Selection.MoveRight звено: = wdCharacter граф: = 1

На второ място, ние ще създадете макрос, за да намерите и премахнете всички излишни интервали преди препинателни знаци. Повторете стъпки от 1 до 6 включително. Дайте име на макроса как DeleteSpacePunctuationMark. Следващи стъпки:

1. Тип на "Намери" първо място и след това въведете следния израз:

Този израз буквално означава, че търсенето се осъществява един или повече места в един ред разположени с лице всяка посочена в скоби пунктуацията.

2. Отидете в "Замести с" и след това тип \ 1 (по-нататък, мерната единица е серийния номер на изрази, оградена в скоби).

3. Кликнете върху "Замени всички".

4. Когато приключите, затворете Търсене и Замяна на диалогов прозорец "Търсене и заместване". Отмяна на избора на текста, като щракнете върху стрелките на клавиша на клавиатурата.

5. Щракнете върху бутона с квадратна в контролния панел, за да спрете записа.

Под DelSpacePunktMark ()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = "([. \ \ !?])"
.Replacement.Text = "\ 1"
.Forward = True
.Увийте = wdFindContinue
.Формат = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
завършва с
Selection.Find.Execute Сменете: = wdReplaceAll
Selection.MoveLeft звено: = wdCharacter граф: = 1
End Sub

Така че можете да се отървете от рутинните ръчни дейности, които, уви, неизбежно, когато редактирате всяка дума документи, особено когато търсят допълнителни интервали в текста.