Computerra eltávolítása felesleges szóközöket a szót

Két egyszerű makró fogja megmenteni a rutin manuális tevékenységek, amelyek, sajnos, elkerülhetetlen, ha szerkeszteni bármilyen Word dokumentumok, különösen, ha keres extra szóközöket a szövegben.

Először adott dokumentum megnyitásához hogy kíván ellenőrizni, vagy maguk hozzák létre az említett dokumentummal, szándékosan hozzátéve, hogy a szöveg extra szóközök szavak és írásjelek előtt. Először hozzunk létre egy makrót, amely eltávolítja a felesleges szóközöket a szavak között.

1. Menj a "Tools" menüben (Tools), válassza ki a "Macro" (Makró) a megjelenő listában, kattintson a "Start Recording" (Record New Macro). Egy párbeszédablak jelenik meg, amelyben meg kívánja rendelni a makró nevét (legyen DeleteSpace), és kattintson a gombra, a kép egy kalapáccsal rendelni a makró gomb. Ha nem szeretné megjeleníteni a makró gombra az eszköztáron, és szeretné használni gyorsbillentyűket, akkor kattintson a gombra a kép a billentyűzet:

2. Egy párbeszédablak jelenik meg, amelyben meg kell menni a középső lap „parancsok”, és húzza a jobb oldali mező az eszköztár az új hívott makrót Normal.NewMacros.DeleteSpace. By the way, később, vagy már meg lehet változtatni a gomb stílusát, szerkeszteni a szöveget, vagy hogy kijelölje bármilyen kép gomb.

3. Az ablak bezárása. Ezt követően, a működési ablakban a dokumentum lesz aljzat gombok rögzítésére makrók (lásd. A képet).

4. Most légy óvatos, mert a makró már meg van írva. Nyomja meg a billentyűkombináció „CTRL + H”. Egy párbeszédablak megnyílik a „Keresés és csere”. Ahhoz, hogy a keresési paramétereket, kattintson a „Tovább” gombra, ha bemutatott összefoglaló formájában párbeszéd.

5. Vegye ki mindent, ami a „Find” mezőbe a „Csere”. Kattintson a „Formázás eltávolítása”, ha a gomb aktív. Vegye ki a jelölést az összes módot a csoport „Részletes keresést”, de hagyja, vagy kullancs „karakterek”. A legördülő listából irányába „mindenütt”.

6. Válassza ki a teljes szöveget a dokumentumban, hogy lenyomja a „CTRL + A”.

7. Írja be a „Keresés” üres, és írja be a következő kifejezést:

Itt zárójelek fel a 2-es szám, és azonnal utána résztől. Ez a kifejezés azt jelenti, hogy a keresés végrehajtása két vagy több egymást követő elosztott előfordulása a jel, amely előtt áll a nyitó zárójel. A mi esetünkben, a keresés végrehajtása két vagy több szóköz.

8. Menj a „Csere”, és adja meg egy helyet.

9. Kattintson a „Összes cseréje”. Így, ha több mint egy sorban egy helyet találunk, ezek helyébe egyetlen helyet.

10. Miután a keresés és csere párbeszédablak, közel a „Keresés és csere”. Szüntessük meg a szöveget, kattintson a billentyűzet nyilakkal.

11. Kattintson a gombra, egy négyzet a vezérlőpulton a felvétel leállításához.

Sub DeleteSpace ()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
a Selection.Find
.Text = ""
.Replacement.Text = ""
.Előre = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
végződésű
Selection.Find.Execute csere: = wdReplaceAll
Selection.MoveRight Egység: = wdCharacter, Count: = 1

Második hozzunk létre egy makrót, hogy megtalálja, és távolítsa el az összes felesleges szóközöket előtt írásjelek. Ismételje meg a lépéseket 1-6 beleértve. Nevezze el a makrót hogyan DeleteSpacePunctuationMark. Következő lépések:

1. Írja be a „Find” első helyet, majd írja be a következő kifejezést:

Ez a kifejezés szó szerint azt jelenti, hogy a keresés végrehajtása egy vagy több egymás utáni szóközt szemben helyezkednek bármely felsorolt ​​zárójelben írásjelek.

2. Menj a „Csere”, majd írja \ 1 (a továbbiakban: az egység sorszámát kifejezést zárójelben).

3. Kattintson a „Összes cseréje”.

4. Ha elkészült, zárja be a Keresés és csere párbeszédpanel „Keresés és csere”. Szüntessük meg a szöveget, kattintson a nyilakat a billentyűzeten gombot.

5. Kattintson a gombra, egy négyzet a vezérlőpulton a felvétel leállításához.

Sub DelSpacePunktMark ()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
a Selection.Find
.Text = "([;. \ \ !?])"
.Replacement.Text = "\ 1"
.Előre = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
végződésű
Selection.Find.Execute csere: = wdReplaceAll
Selection.MoveLeft Egység: = wdCharacter, Count: = 1
End Sub

Így lehet megszabadulni a rutin manuális tevékenységek, amelyek, sajnos, elkerülhetetlen, ha szerkeszteni bármilyen Word dokumentumok, különösen, ha keres extra szóközöket a szövegben.