 |
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/23 11:02
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 |  |
|
|
Evo ono što sam do sada uradio, pa pošto moram da jurim napolje možda neko nastavi (kod je za konverziju iz latinice u ćirilicu):
| Code: |
tell application "Pages"
set FromList to {"DŽ", "Dž", "dž", "NJ", "Nj",
"nj", "LJ", "Lj", "lj", "DJ", "Dj", "dj",
"a", "b", "v", "g", "d", "đ", "e", "ž",
"z", "i", "j", "k", "l", "m", "n", "o",
"p", "r", "s", "t",
"ć", "u", "f", "h", "c", "č", "š", "A",
"B", "V", "G", "D", "Đ", "E", "Ž", "Z",
"I", "J", "K", "L",
"M", "N", "O", "P", "R", "S", "T",
"Ć", "U", "F", "H", "C", "Č", "Š"}
set ToList to {"Џ", "Џ", "џ", "Њ", "Њ", "њ",
"Љ", "Љ", "љ", "Ђ",
"Ђ", "ђ", "а", "б",
"в", "г", "д", "ђ", "е",
"ж", "з", "и", "j",
"к", "л", "м", "н", "о", "п",
"р", "с", "т", "ћ", "у",
"ф", "х", "ц", "ч", "ш",
"А", "Б", "В", "Г", "Д",
"Ђ", "Е", "Ж", "З", "И",
"J", "К", "Л", "М",
"Н", "О", "П", "Р",
"С", "Т", "Ћ", "У",
"Ф", "Х", "Ц", "Ч", "Ш"}
set x to contents of selection
set rezultat to ""
set n to count characters of x
repeat with i from 1 to n
set m to character i of x
repeat with j from 1 to count of FromList
set FromChar to item j of FromList
set FromLength to length of FromChar
if FromLength is equal to 1 then
if FromChar is equal to m then
set itemIndex to j
set m to item itemIndex of ToList
exit repeat
end if
else
if i is less than n then
set dvokarakterni to m & character (i + 1) of x
if FromChar is equal to dvokarakterni then
set itemIndex to j
set m to item itemIndex of ToList
set i to i + 1
exit repeat
end if
end if
end if
end repeat
set rezultat to rezultat & m
end repeat
end tell
|
Ono što nedostaje je da se sadržaj selekcije zameni promenljivom rezultat, što još nisam provalio kako se radi iz Pagesovog Dictionary, tj. tačno ispred end tell bi trebalo da dođe nešto kao:
| Code: |
set contents of selection to rezultat
|
ali to ne radi, javlja grešku.
Post edited by: madamov, at: 2010/09/23 19:34
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/23 19:30
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
Što jednostavno, kad može komplikovano. Samo umesto
| Code: |
set contents of selection to rezultat
|
treba
| Code: |
set selection to rezultat
|
Samo još da ispravim bagove i biće gotovo uskoro.
Post edited by: madamov, at: 2010/09/23 19:32
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
 |
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/23 21:56
|
By: drdra
|
Status: User
|
|
|
|
|
Xserve
| Posts: 1834 |  |
|
|
Bravo Miki, ja sam još u Grčci, sutra putujemo pa ću u nedelju malo da testiram 
Ja hoću da pomognem, ali ništa ne znam/sve znam+nemam vremena, pritom imam pare, ali ne znam ni koga bih platio tim parama, ali me ova situacija u kojoj apsolutno ništa ne radim jako vređa, na egzistencijalnom nivou, jer ni vi ostali ništa ne radite, pogotovu ne za mene
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/24 13:55
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
drdra wrote:
Bravo Miki, ja sam još u Grčci, sutra putujemo pa ću u nedelju malo da testiram
Makroi se nalaze ovde:
http://www.macserbia.org/macserbiafiles/Pagesmakroi.zip
pa testiraj (testirajte), inicijalne testove prolazi, a "davi" ga sa nečim većim da vidimo brzinu. Uradio sam latinicu u ćirilicu i obrnuto, ako nekom treba da uradim YUSCII varijantu ili ne (nemam baš previše vremena, pa zato pitam)?
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
 |
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/24 17:41
|
By: iJova
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 477 | |
|
|
Miki, svaka čast, karma za ove makroe
Post edited by: iJova, at: 2010/09/24 17:42
iPhone 1st gen 8GB
iMac early 2009 20 inch
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu i Pagesu (beta)
|
|
Date: 2010/09/28 15:58
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
Iztestiraste ih li? da stavljam linak za download u prvu poruku ako valja.
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
 |
|
Re:Makroi za konverziju u Wordu i Pagesu (beta)
|
|
Date: 2010/09/28 17:17
|
By: ivan90bg
|
Status: User
|
|
|
|
|
Xserve
| Posts: 193 | |
|
|
A po kom kodnom rasporedu su ti kodovi za ćirilicu? Zar nisu mogla samo da se otkucaju ćirična slova u skriptu (kao što su i naša latinična)?
A i plaši me malo ovo "J" u listi za ćirilicu što nije kod, nego slovo.
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu i Pagesu (beta)
|
|
Date: 2010/09/28 19:47
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
To je Mambo konvertovao, tj. Simpleboard, skini skriptove pa pogledaj.  Inače je za listu karaktera radio copy&paste iz ovih skriptova za Word koji rade već dve godine i niko se nije bunio.
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu i Pagesu (beta)
|
|
Date: 2010/09/28 21:26
|
By: ivan90bg
|
Status: User
|
|
|
|
|
Xserve
| Posts: 193 | |
|
|
Pa ovo radi super. Brže je MS-ov dodataka za Office na Windows-u, a od skripte za Office 2008 (bar ove koju imam) je brža 10-ak puta.
Gospodine Adamove hvala vam puno. Mogli biste ovo da postavite i Benchmark forum, ako ima ko da zakači.
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu i Pagesu (beta)
|
|
Date: 2010/09/29 08:34
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
Vidiš, mogao bih da probam da modifikujem one Wordove istim algoritmom, možda bi i oni bili brži. Naime, tamo se koristi Wordov Find&Replace, samo kroz AppleScript, dok sam god Pagesa, pošto nije bilo komanda kojom bi se iz AppleScripta upotrebio baš Pagesov Find&Replace, išao redom po selekciji i upoređivao karakter po karakter da li se nalazi u listi karaktera koji se menjaju. Tako da bi neko ko ima InDesing mogao poigrati tako što će u Script Editoru liniju
| Code: |
tell application "Pages"
|
da promeni u
| Code: |
tell application "InDesign"
|
i da proba ove poslednje skriptove, možda će da rade.
Što se postovanja na Benchmark tiče, slobodno ostavite link ka fajlu direktno, pa i na one za Word, samo da sačekamo da još drdra kaže da li je sve ok.
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
 |
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 22:15
|
By: mkozlovic
|
Status: User
|
|
|
|
|
Xserve
| Posts: 97 | |
|
|
Rade i u MS Office 2011. Super.
Misa
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 22:45
|
By: drdra
|
Status: User
|
|
|
|
|
Xserve
| Posts: 1834 | |
|
|
IJAO ja se čekam! Ne radi to sebi crni Milane
saću odma izvini ne čitamq!!!
Ja hoću da pomognem, ali ništa ne znam/sve znam+nemam vremena, pritom imam pare, ali ne znam ni koga bih platio tim parama, ali me ova situacija u kojoj apsolutno ništa ne radim jako vređa, na egzistencijalnom nivou, jer ni vi ostali ništa ne radite, pogotovu ne za mene
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 22:59
|
By: drdra
|
Status: User
|
|
|
|
|
Xserve
| Posts: 1834 | |
|
|
Evo, testirao sam.
Ako ja to dobro radim, selektujem tekst u Pagesu, otvorim macro, pokrene se ScriptEditor, kažem Trči.
Na onom tvom primer dokumentu radi svakako.
Moj dokument je sav u tabelama. Ako selektujem tekst iz jednog polja, sve ok, to polje se promeni. Ali ja ne znam kako da selektujem tekst u celoj koloni - to je verovatno zato što sam ja tanak sa text procesorima, a možda zaista i ne može 
Gora stvar se desi kad kad kažem A i dam mu da trči - sve nestane!
Evo vam moj dokument što sam pravio za vetrovitih dana na Tasošu pa probajte. Može nekom i da koristi
http://cl.ly/2c54
Post edited by: drdra, at: 2012/01/07 22:54
Ja hoću da pomognem, ali ništa ne znam/sve znam+nemam vremena, pritom imam pare, ali ne znam ni koga bih platio tim parama, ali me ova situacija u kojoj apsolutno ništa ne radim jako vređa, na egzistencijalnom nivou, jer ni vi ostali ništa ne radite, pogotovu ne za mene
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 23:16
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
mkozlovic wrote:
Rade i u MS Office 2011. Super.
Koje si probao, one AppleScript varijante ili one prve VBA? Pitam pošto kažu da su vratili VBA u novi Office, pa da vidimo koji makroi brže rade.
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 23:22
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
drdra wrote:
Evo, testira8.
Ako ja to dobro radim, selektujem tekst u Pagesu, otvorim macro, pokrene se ScriptEditor, kažem Trči.
Mogao bi da aktiviraš skript meni i onda da u ~/Library/Scripts/ napraviš folder Pages pa u njega iskopiraš skriptove koje bi onda pozivao iz ovog menija.
Na onom tvom primer dokumentu radi svakako.
Moj dokument je sav u tabelama. Ako selektujem tekst iz jednog polja, sve ok, to polje se promeni. Ali ja ne znam kako da selektujem tekst u celoj koloni - to je verovatno zato što sam ja tanak sa text procesorima, a možda zaista i ne može
Uh, pretpostavio sam da ovde neće da radi, a kako provaliti da li ima tabela u selekciji ili ne, ne znam, to bih morao detaljnije da se bavim Pagesovim Dictionaryjem. Ne obećavam ništa, ali će da vidimo, za početak skinuh ovaj tvoj fajl da imam sa čim da probam.
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 23:48
|
By: mkozlovic
|
Status: User
|
|
|
|
|
Xserve
| Posts: 97 | |
|
|
Scriptove, nisam probao VBA, nešto mi se neda da koristim to. Dosta mi je brljalo pod winom, ali probaću i to pa javljam.
Misa
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/09/30 23:54
|
By: mkozlovic
|
Status: User
|
|
|
|
|
Xserve
| Posts: 97 | |
|
|
Radi i VBA i to ko munja. Zadržaću i njih pa će da vidimo.
Misa
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/10/01 00:12
|
By: drdra
|
Status: User
|
|
|
|
|
Xserve
| Posts: 1834 | |
|
|
Evo, stavio sam ga u menu bar, i da izvineš, malo sam ti editovao programče, izbacio zadnju liniju... 
neverovatno je da sve nestane čak i kad selektujem samo dva polja i kažem convert!
e da - kako bi mogao da se napravi keyboard shortcut za script?
Post edited by: drdra, at: 2012/01/07 22:57
Ja hoću da pomognem, ali ništa ne znam/sve znam+nemam vremena, pritom imam pare, ali ne znam ni koga bih platio tim parama, ali me ova situacija u kojoj apsolutno ništa ne radim jako vređa, na egzistencijalnom nivou, jer ni vi ostali ništa ne radite, pogotovu ne za mene
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/10/01 10:23
|
By: madamov
|
Status: Admin
|
|
|
|
|
Admin
| Posts: 6475 | |
|
|
mkozlovic wrote:
Radi i VBA i to ko munja. Zadržaću i njih pa će da vidimo.
Znači VBA verzije rade brže od AppleScript verzija?
ACSP 10.8 - ACSP 10.7 - ACSA 10.6
|
|
|
| | The administrator has disabled public write access. |
|
|
|
|
Re:Makroi za konverziju u Wordu
|
|
Date: 2010/10/18 13:56
|
By: mkozlovic
|
Status: User
|
|
|
|
|
Xserve
| Posts: 97 | |
|
|
Kod mene da i to drastično brže (vidi se golim okom razlika).
Misa
|
|
|
| | The administrator has disabled public write access. |
|
|
Forum
