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: 1 2 3 další »

eLCHa(13.11.2015 10:53)#028024

To co píšete umí samotný word pomocí Automatických oprav. Nicméně by to fungovalo pro všechny dokumenty a při každém napsání slova. Šlo by si pomáhat zapínáním a vypínáním Autooprav.

Jsem si jistý, že to někdo dokáže vytvořit. Ale nejsem si vůbec jistý, že by se to mohlo hodit ještě někomu jinému než Vám.citovat

elninoslov(13.11.2015 11:01)#028026

Vo Worde nerobím takmer nič, ale dávnejšie som potreboval urobiť, aby mi po napísaní znaku (akéhokoľvek, teda stačí stlačenie klávesy) zmenilo farbu písma. Nič také som nedokázal vo Worde naprogramovať. A ani na nete som nepochodil. Vo Worde sú veci inak ako v Exceli. Pochybujem, že to bude zrovna jednoduché, keď vo VBA Wordu myslím nieje KeyPress (a ostatná Key rodina). Ak by niekto vedel, tiež ma to bude zaujímať.citovat

eLCHa(13.11.2015 12:35)#028027

@elninoslov

Musel byste více rozvést. Sice také z Wordem skoro nedělám, ale:
Word má podle mne velmi dobře propracovaný systém Stylů - co přesně znamená změnit barvu písma po stisku?
Také Automatické opravy se dají využít jinak - stejně je většina lidí vypíná.
No a pokud byste trval na PressKey, ten tam opravdu není, ale pokud byste si pohrál, určitě by šlo nějak využít API.citovat

Alfons(13.11.2015 12:36)#028028

eLCHa: To ano, ale (možná se pletu) - do těch autom.oprav to musím přidat, každé slovo, ne? Dávkově,naexportovat to nejde. A když se to opraví a třeba se rozhodnu to změnit, že něco chci mít jinak a něco z toho zůstane, tak jsem v ... :-)citovat

eLCHa(13.11.2015 12:38)#028029

Pokud vím, nepletete se. Ale kódem by to určitě šlo.citovat

elninoslov(13.11.2015 17:00)#028033

No to bolo tak, že som potreboval, aby sa písalo farebné písmo, a to tak, že každé písmenko bude mať inú farbu. Je šumák, či by bola v makre cez pseudonáhodnú fnc vyberaná z celej škály, alebo len z nejakej skupiny farieb. To je najmenej. Ale ako za letu, počas písania, vždy zmeniť farbu buď práve napísaného, a prednastaviť farbu pre budúce písmenko. Proste dôležité bolo, aby to menilo hneď pri písaní znaku, nie tak, že by som napísal text a použil nejaké formátovanie alebo makro na celý text hromadne. A bol som nahraný ako sane v lete.citovat

marjankaj(13.11.2015 17:39)#028034

Skús tieo makrá

Sub Makro1()
'červená
Call vyber(wdColorRed)
End Sub
Sub Makro2()
'zelená
Call vyber(wdColorGreen)
End Sub
Sub Makro3()
'hnedá
Call vyber(wdColorBrown)
End Sub
Sub vyber(farba As Long)
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Color = farba
End With
End Sub

Napíš si text nastav sa na pozíciu a spusti makro 1-3. Vyfarbí sa jeden znak.

Iné farby:
http://www.transcriber.ru/etudeseng/hlp_colors.htm

alebo ak chceš vyfarbiť vybrané slovo,
Tak

Sub vyber(farba As Long)
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
With Selection.Font
.Color = farba
End With
End Subcitovat

elninoslov(13.11.2015 18:54)#028036

To je zaujímavé makro, a dalo by sa asi použiť, ale stále ho nemám ako spustiť. Musí sa spúšťať samé po napísaní znaku. To som potreboval aj ja, aj Alfons.

citovat

marjankaj(13.11.2015 20:33)#028037

@elninoslov
Po napísaní akého znaku?
A nechci odo mňa, aby som vymýšľal prílohu. Obráť sa na zadávateľa problému.

Možno by sa dalo použiť aj CTRL+H. Je tam možnosť aj nahradiť format. Prečo by to muselo byť interaktívne makro?

Sub Makro()
Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorGreen
With Selection.Find
.Text = "ja"
.Replacement.Text = "ja"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Subcitovat

xlnc(14.11.2015 10:06)#028046

Jsem koukám sám, kdo se zeptá nejprve na to "proč to chcete"? Protože jediné co mě napadá, by bylo využití jinak prapodivného zadání třeba pro kytarové akordy.citovat

Strana: 1 2 3 další »

Téma: Excel word - propojení

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje