Jinou možností je VBA skript, který přikládám (přejmenujte příponu na .bas).
Postup je celkem jednoduchý:
1. Umístěte všechny soubory .doc do jedné (libovolné) složky na disku.
2. Otevřete nový (prázdný) dokument Word
3. Otevřete okno VBA (Alt+F11) a v něm klikněte na "File/Import File..." a nahrejte modul Fonty.bas.
4. Otevřete modul a editujte v něm název fontu, na který si přejete změnit použité fonty v dokumentech.
5. Spusťte skript (F5)
Otevře se okno exploreru, ve kterém vyberete složku s dokumenty. Ve všech souborech bude provedena změna všech fontů na font určený ve skriptu. Fonty v automatických tvarech zůstanou nedotčeny. Mění se pouze fonty, nemění se jejich velikost a formátování.
Celý postup jsem nahrál na krátké video.
Podle krátkého shlédnutí to umí jen .doc. Pro .docx bys to musel upravit.
Použil jsi "On Error Resume Next" bez zachytávání chyby. V takovém případě je lépe nechat skript zhavarovat, než nechat běžet bez kontroly, zda proběhl v pořádku.
Založen: Mar 16, 2005 Příspěvky: 32499 Bydliště: Česká Třebová, JN89FW21
Zaslal: čt květen 16 2024, 15:08 Předmět:
DukeNuke napsal(a):
Není zač. A nejsem ajťák. Zajímám se o počítače ještě z dob, kdy se programovalo ve strojáku a skriptovací jazyk VisualBasicScript je tu od Win98. Nepotřeboval jsem to k práci, jen mě baví zkoušet co to umí. Asi stejně tak jsem na tom s excelem, ale tam jsem na tom hůř. A pravděpodobně budu starší než ty - to jen tak naokraj. Psát se mi to moc nechtělo, ale proč to nezkusit
...
Ano - to je to důležitý - děláš v tom X let a začínal jsi, když ti bylo -náct, měl jsi k tomu přístup myšleno fyzicky přístup - a bavilo tě to. Mne ve stejným věku bavilo něco jinýho a jak už jsem tady mockrát zmínil, k počítači jsem poprvé přičuchnul až na vojně - a to ještě jen jako klasickej "BFU" navíc s hrozbou postihu "nešahej na nic co neumíš, běda jestli to poyebeš!" - na nějaký zkoušení "co to udělá" moc prostoru nebylo. Svůj vlastní komp, na kterým si můžu vyvádět co skutečně JÁ chci, jsem si poprvé kupoval až když mi bylo skoro 40 - a prostě jsem ho doma potřeboval pro činnosti související se zaměstnáním. Ale ani tak mě programování nikdy neživilo a dej Pámbu ani živit nebude ... _________________ Nasliněný prst na svorkovnici domovního rozvaděče: Jó, paninko, máte tam ty Voltíky všecky...
Založen: Mar 16, 2005 Příspěvky: 32499 Bydliště: Česká Třebová, JN89FW21
Zaslal: pá květen 17 2024, 2:27 Předmět:
Tak vyzkoušeno, funguje to, akorát se musí dělat po menších dávkách, neumí to po sobě průběžně uvolňovat RAMku a při větším počtu konvertovanejch fajlů padne komp z důvodu nedostatku paměti ... _________________ Nasliněný prst na svorkovnici domovního rozvaděče: Jó, paninko, máte tam ty Voltíky všecky...
Založen: Mar 16, 2005 Příspěvky: 32499 Bydliště: Česká Třebová, JN89FW21
Zaslal: so květen 18 2024, 21:41 Předmět:
Jo, teď jsem to sem chtěl dopsat jako upozornění pro případný další zájemce o použití, že se to musí spouštět jen po menších dávkách, řádově po 20-30 fajlech doc/docx - protože mám 16GB RAMky a "půltero" SSD na 64b systém, procík Ryzen 5 1600 Six-Core na 3,2GHz časování - neboli to není jen takový vořezávátko - a pokus hromadně upravit cca 300ks adresář doců/docxů mi doslova shodil systém. Je to jasný, skládals to narychlo, ale funkční to je - to je nejdůležitější. Na vychytání blech je čas pozdějc. Jdu to doplnit a testnout. _________________ Nasliněný prst na svorkovnici domovního rozvaděče: Jó, paninko, máte tam ty Voltíky všecky...
Založen: Mar 16, 2005 Příspěvky: 32499 Bydliště: Česká Třebová, JN89FW21
Zaslal: ne květen 19 2024, 21:36 Předmět:
A ještě jedno malý mínus jsem zjistil - když běží tenhle script, nelze na stejným kompu používat Word, ten script ho vždycky zavře, když končí úpravu jinýho souboru. Prostě zavírá Word jako celek, ne jen to "svoje" otevřený podokno. Ale to už je jen muška jenom zlatá, s tím se dá žít. Určitě by se to ještě dalo upravit, ALE NENÍ TO NUTNĚ POTŘEBA. _________________ Nasliněný prst na svorkovnici domovního rozvaděče: Jó, paninko, máte tam ty Voltíky všecky...
Založen: Oct 11, 2008 Příspěvky: 6205 Bydliště: ZZ9 Plural Z Alpha
Zaslal: ne květen 19 2024, 22:32 Předmět:
Zkusil jsem to pustit a vůbec to nefunguje! Ještě že jsem si před tím odinstaloval Word, jinak by mi ho to rozjebalo. A navíc mi teď celý večer nějaký zatracený generál Failure pořád čte disk - neznáte ho někdo?
@ekkar: s tím se budeš muset smířit. Uzavření wordu dělá metoda .Quit, bohužel ukončí všechny instance objektu word.
Když nechám jeden objekt pro celou práci, tak to nefunguje korektně - ponechává to v adresáři soubory ~$filename, což považuji za větší zlo (tento soubor vznikne, když ve wordu otevřeš filename.doc).
Případně zkus AI, ať to předělá
Pro příští zájemce jsem upravil skript VBA a obohatil o interaktivní GUI, stačí otevřít přiložený soubor .doc ve Wordu a povolit zpracování maker.
Pracuje výrazně rychleji než zmíněný soubor .vbs a nemá jeho nectnosti.
Vyzkoušeno na Word 2003 a Word 2007. Nefunguje v LibreOffice.
--------
edit: Ještě jsem opravil některé chyby a doplnil o vobu řezu písma.
Časy uváděny v GMT + 1 hodina Jdi na stránku Předchozí1, 2
Strana 2 z 2
Nemůžete odesílat nové téma do tohoto fóra. Nemůžete odpovídat na témata v tomto fóru. Nemůžete upravovat své příspěvky v tomto fóru. Nemůžete mazat své příspěvky v tomto fóru. Nemůžete hlasovat v tomto fóru. Nemůžete připojovat soubory k příspěvkům Můžete stahovat a prohlížet přiložené soubory
Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.