MS Word 2003 - uklanjanje dvostrukih razmaka

-ovisi o načinu kako je napravljen razmak.. jer može biti sama opcija (prored) std 1, 1.5, 2 ili je netko lupao enter pišući kao na pisačoj mašini (poneki čak i lupaju space za porihtavanje..)

-ako utipkan text, može ga se zamiejniti search-replaceom, može se napraviti macro za to. Svejedno dali se mjenja slovo a za b ili razmak, enter..

-btw uključi prikaz skrivenih oznaka-formatiranja 'Pi', bit će ti lakše vidjeti kako je napravljeno pa znati rješenje.

Znači ti klikneš jednom i onda ode 1 ,a izgleda kao da si 2 puta kliknuo?

-uključi 'skriveni text' Pi. Tako vidiš što je, jer može biti i takav format. Formatiranje, stilovi itd. se drugačije podešavaju, tj dovoljno je recimo promjeniti u 'normal'.

Ako je dva puta razmaknica (space) tad je dovoljno napraviti replace ''--'' s ''-''. (dva spacera s jednim), ali pošto je spec znak, možda moraš kroz makro. Probaj.

Za makro, pokreni rekorder, napravi replace npr A za B, editiraj makro i zamjeni string-karakter, space je (nagađam) CHR$(32) i (160) ili ga napišeš u navodnicima "  " i replace s " ".

Za probu bi blio zgodno natipkati u wordu nešto kao ''AAaaaaaAAAAAAAAaa  aaaAAAAAAA aaAAA AA aa AAA ..'' i mijenjati s B pa odmah vidiš rezultat.

macro (makro) .. nema na hrv. nit je potrebno...

evo coda:

-edit, malo uređenjiji kod..

Sub ReplaceSpace_X2_X1()
'
' ReplaceSpace_X2_X1 Macro
' Macro recorded 26.02.2012 by Hush
'
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "  "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

-to je OK kod, radi. Ako ima više od jednog razmaka, samo ponoviti makro.

-možda ti je makro diseblan (zaštita), potraži u opcijama i omogući.

Kako sam glup. Pa treba samo zamijeniti "točka" sa "točka i razmak"..

A kako bi recimo u riječi "otorinolaringolog" izolirao rino, ali na način kada ideš na ctrl+h da promijeniš "rino" u "riža", ali samo ako "rino" stoji kao zasebna riječ, a ne unutar neke druge, npr. "otorinolaringolog"?

Malo mi je teško za objasniti, ali mislim da ćeš skužiti.

-za uspoređivanje se može koristiti 'cijela riječ' kao jedan od kriterija, vidi u običnom search/replace meniju... jednako kao opcija match case. (pročitaj pažljivo macro, red ' MatchWholeWord = False  je upravo to.)

programski je moguće izvući neki string tj prevjeriti dali je ispred-iza prazno (space) što također može biti u searchu. Tako je dovoljno u kriterij upisati ' rino ' umjesto 'rino' za konkretan primjer. Jednako kao što je bila zamjena  dva spacea jednim.

-ali to nije neka funkcija koja bi se trebala koristitit u wordu, bar ne nešto što treba programirati. Običan search ili replace je OK za normalnu upotrebu. (osim ako je ovo primjer za učenje).

Provjeri koje sve naredbe podržava VBA, u macrou je to najjednostavnije za vidjeti i testirati. Sigurno se može se ubaciti neki if-then... samo treba vidjeti kako se može pojedina riječ izvuči (ne select jer se odnosi na dio texta koji se searcha, ovo je za konkretnu riječ koja se uspoređuje).

-ako se ne varam, autocomplete,  sintax check i F1 na ključnoj riječi postoje u svim verzijama. Iskoristi ih za otkrivanje takvih specifičnih potreba, jer se malo tko konkretno sretao s tim potrebama. Jednostavno sjedneš i kuckaš kod, rješenje se mora pojaviti za pola sata. Ako si početnik u programiranju, tad je ovo pogrešan put za učenje, tj trebaš učiti konkretan jezik, samo ponekad iskoristiti VBA i sl., dok samo učenje programiranja u officeu nema nekog dubljeg (Montyjevskog) smisla. To se radi usput, kao quick fix.

Pokušao sam sa ovim, ali nikako mi ne uspijeva..

Uglavnom, poanta je da bih htio više od 4 razmaka zamijeniti sa ^t (tabom). Znači ne mogu ići na ^w jer će mi onda svaku prazninu zamijeniti sa tabom.

Kao neki range od 4 do beskonačno razmaka = TAB

Ne mogu naći u makrou znak za space (razmak).

Htio sam postaviti range za razmak, od 4 do beskonačno, ali jednostavno ne funkcionira..Onda bih jednostavno taj range zamijenio sa ^t i gotovo.

Iz nekog razloga ne funkcionira..

Thx, ma ne znam se dobro izraziti, u tome je problem. Znam što hoću, ali ne znam kako to napisati.

Tab uglavnom koristim kao uvlaku, a ako je tab uvijek 1,5 (npr.) onda običan space ne može biti toliko precizan pa je bolje onda sve uvlake napravljene sa spaceom zamijeniti sa tabom koji je uvijek 1,5. Rekao sam brojku od 4 razmaka onako, to može biti i 10 ili 15 jel.

Naći ću ja već nešto na internetu.

Hvala na trudu.