MS Excel

Ahoj, zajímalo by mne, zda lze provést toto:
Mám excel, v 1.sl mám dlouhý seznam slov, ve 2.sl. mám ta samá slova, ale zformátovaná (barva, velikost, font, tučnost, podtržení..) Píšu dokument word a když v něm napíšu slovo, které je v 1.sl excelu, tak bych si přál, aby se změnil formát slova na ten uvedený v 2.sl excelu. Mohlo by to být nějaké makro, které bych občas pustil a text ve wordu zformátoval (vybraná slova). Hodilo by se mít možnost nastavit rozsah stran pro makro, aby se neprovádělo na celý dokumnet, ale jen vybrané stránky. Dal by to někdo dohromady? Se to může myslím hodit, když se píše nějaký obsáhlejší text a je v něm hafo slov pro zvýraznění různým způsobem.

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

elninoslov(14.11.2015 13:39)#028055

@Alfons: Ospravedlnenie za zahltenie Vašej témy mojim prípadom. Končím s OT. Ako vraví marjankaj, pridajte prílohu.

@marjankaj: Žiadna príloha k môjmu prípadu neexistuje, viď @xlnc

@xlnc: Načo to potrebuje Alfons neviem. Poviem, len načo som to potreboval ja. Deti si píšu písmenká/čísla na klávesnici, a sú nadšené keď je každé písmenko inej farby, hneď pri jeho písaní. Dokážu sa aj hodinu zabaviť písaním a mazaním najskôr malej abecedy, potom veľkej, potom čísel, a keď sú farebné, tak sú nadšené, a neotravujú neustále s prefarbovaním, ktoré je pre nich nesmierne "dôležité", ale pre mňa nesmierne otravné. Nejde, nejde. Uvidíme keď príde najbližšia invázia detí, či ma ešte donútia o tom niečo zisťovať. Majú také obdobia, že to chcú aj týždeň v kuse, spievajú si pri tom o písmenkách, robia ich z plastelíny, no proste je od nich pokoj

Ak by niekto náhodou vedel pomôcť s mojim "problémom", prosím neodbočovať od zadávateľovej témy, ale písnuť mi vzkaz. Zakladať tému, kvôli tomu zatiaľ nebudem. Inak sa venujme téme zadávateľa.citovat

eLCHa(14.11.2015 18:04)#028069

@elninoslov
Já bych to s tím dodržováním tématu zase tak neřešil. Samozřejmě nezahlcovat kravinama,to jo, ale tohle si myslím nevadí.
V každém případě, když jde jen o psaní a barvení písmenek pro děti a nepovedlo se Vám to ve Wordu nepovedlo, tak proč to nezkusíte někde, kde to půjde ;)citovat

elninoslov(14.11.2015 18:20)#028070

OT: Eeej, ale teraz sa ako hanbím!

To ma nenapadlo. Veď na to si dokážem napísať v Delphi malú apku (stačí TRichEdit, ten vie formátovanie). Dokonca by som to asi zvládol aj v CorelDraw (má VBA), a "pouvažujem" aj nad Excelom

Keďže teraz ste mi už rozsvietil, že sa to dá inde, tak sa asi nechám od detí nabudúce nalomiť.citovat

Alfons(15.11.2015 6:52)#028075

Zdravím ve spolek po ránu. Jak kouám, tak jste tu možná pomohli vyřešit jinou věc s barevnýma písmeny. Kdyby nic, tak ta diskuse pomohla někomu jinému. Trochu jsem pátral a dostal se až k tomuto odkazu.
http://www.mrexcel.com/articles/excel-to-word-macro.php
Je to starší ročník, ale principielně snad uchopitelný. Mně to bohužel selhává na té řádce Dim appWD As Word.Application ....
Poradil by někdo?citovat

elninoslov(15.11.2015 9:26)#028077

To preto, že ste neurobil to čo sa píše v prvej vete v kóde. Musíte pridať do Excelovského VBA
Microsoft Word 8.0 - to je ale dosť starý názov
V novších verziách, napr v mojej 2013 sa to volá
Microsoft Word 15.0 Object Librarycitovat

eLCHa(15.11.2015 10:24)#028079

Jsem na tabletu a ten kód jsem nestudoval...

Vykašete se na reference
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")

Pokud tam budou nějaké konstanty z wordu - začínají malým wd a potřebují ty reference - otevřete si word, stiskněte Alt+F11 a do immediate window vložte ?wdněco a stiskněte enter. Získáte hodnotu, kteru nahradíte konstantu.citovat

Alfons(15.11.2015 13:23)#028080

Tak tedy nevím. Otevřel jsem si VBA editor excelu, V tools/reference mám zatrženo Microsoft Word 11.0 Object Library (office 2003), chová se to stejně tj. user-defined type not defined. Co je teda špatnně? Vám ten kod běží?citovat

elninoslov(15.11.2015 14:39)#028082

Urobte to, čo Vám radí eLCHa.
riadok
Dim appWD As Word.Application
nahradte
Dim appWD As Object

a riadok
Set appWD = CreateObject("Word.Application.8")
nahradte
Set appWD = CreateObject("Word.Application")

Mne to normálne funguje aj bez referencie.citovat

Alfons(15.11.2015 16:11)#028085

Děkuju. Běží. Hmm, no na tom by se snad už dalo postavit nějak to makro, o kterém jsem psal v úvodu. Formát textu z excelu se přenáší do wordu v pořádku (velikost, barva, tučnost, podtržení).
Takhle, jak to je, tak se to spouští z excelu na nový soubor a uloží to pokaždé nový doc. soubor. Z mého pohledu by bylo lepší to makro spustit z wordu a data číst z konkrétního xls souboru. Věděl byste někdo, jak to takhle překopat?citovat

Alfons(15.11.2015 17:16)#028087

Tak jsem hledal a našel tohle. Máto nahrazovat text, ale končí mi to chybou Eror, přitom ten soubor test.doc mám pod D:\

Option Explicit
Sub ReplaceWordText()
Dim Wapp As Object, STRtoFind As String, Sourcefile As String
Dim STRtoReplace As String, Cnt As Integer
'find K6:10
'replace L6:10
Sourcefile = "D:\test.doc" 'adjust to suit
On Error GoTo Erfix
Set Wapp = CreateObject("Word.Application")
Wapp.Documents.Open Filename:=Sourcefile, ReadOnly:=False
For Cnt = 6 To 10 'adjust for rows
'adjust K & L for sheets/columns
STRtoFind = CStr(Sheets("sheet1").Range("K" & Cnt).Value)
STRtoReplace = CStr(Sheets("sheet1").Range("L" & Cnt).Value)
Wapp.ActiveDocument.Select
With Wapp.Selection.Find
.Text = STRtoFind
.Forward = True
.MatchWholeWord = True
.Replacement.Text = STRtoReplace
.Execute , , , , , , , , , , 2 'wdReplaceAll
End With
Next Cnt
Wapp.ActiveDocument.Close savechanges:=True
Wapp.Quit
Set Wapp = Nothing
Exit Sub

Erfix:
On Error GoTo 0
MsgBox "Error"
Wapp.Quit
Set Wapp = Nothing
End Subcitovat

Strana: « předchozí 1 2 3 další »

Téma: Excel word - propojení

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje