< návrat zpět

MS Excel


Téma: Excel word - propojení rss

Zaslal/a 13.11.2015 10:33

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ší »
icon #028024
eLCHa
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
#028026
elninoslov
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
icon #028027
eLCHa
@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
#028028
avatar
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
icon #028029
eLCHa
Pokud vím, nepletete se. Ale kódem by to určitě šlo.citovat
#028033
elninoslov
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
#028034
avatar
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
#028036
elninoslov
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. 7citovat
#028037
avatar
@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
#028046
avatar
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ší »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09