Pomoc s úpravami souborů .doc a .docx

**masar** · Založen: Dec 03, 2005 Příspěvky: 12557

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.

DukeNuke · Založen: Apr 02, 2018 Příspěvky: 965

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.

**masar** · Založen: Dec 03, 2005 Příspěvky: 12557

Umí to, kupodivu, i docx, navzdory syntaxi.
Skript je velmi jednoduchý a nikomu nebráním v jeho zdokonalení.
Wink

DukeNuke · Založen: Apr 02, 2018 Příspěvky: 965

**EKKAR**

DukeNuke · Založen: Apr 02, 2018 Příspěvky: 965

V pohodě. Každej má životní cestu jinou. Pokud ti to pomůže budu rád. A kdybychom se náhodou potkali, můžeš mi koupit pivo Smile

**EKKAR**

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 ...

DukeNuke · Založen: Apr 02, 2018 Příspěvky: 965

Zůstává tam otevřený objekt word. Tím se zaplní paměť - moje chyba.
Doplň si do kódu 41 řádek - objWord.Quit.

**EKKAR**

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.

**EKKAR**

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.

**tomasjedno** · Založen: Oct 11, 2008 Příspěvky: 6122 Bydliště: ZZ9 Plural Z Alpha

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? Very Happy

**masar** · Založen: Dec 03, 2005 Příspěvky: 12557

Bez Wordu chtít otevírat Word asi nepůjde. Ale to "rozjebání" určitě nehrozí.
Wink

**tomasjedno** · Založen: Oct 11, 2008 Příspěvky: 6122 Bydliště: ZZ9 Plural Z Alpha

DukeNuke · Založen: Apr 02, 2018 Příspěvky: 965

@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á Smile

**masar** · Založen: Dec 03, 2005 Příspěvky: 12557

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.
Wink

--------
edit: Ještě jsem opravil některé chyby a doplnil o vobu řezu písma.


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. PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license. Čas potřebný ke zpracování stránky 0.16 sekund