MS Excel

word 2007

Potrebujem použiť makro vo worde.

Predtým sa makro používalo v exceli, ale došlo k zmene spracovávaniu dát.

Teraz ho potrebujem zjednodušiť a aplikovať vo worde.

Tabuľka sa vytvorí klasickým kopírovaním a vložením.

Potrebujem podľa premennej DODATOK,SLUžBA, PRíSLUžBA A NEOP. podfarbiť celý riadok.

Pri premennej PREKLAD len bunku.
Všetky ostatné poznámky v bunke formátovať kurzívou.

Sály orámovať tučne.
(Samozrejme, že počet čísel na sále, môže byť rôzny)

Riadok medzi sálami je už vytvorený na serveri.
Ale potrebujem aby jeho výška bola 0,5

Font písma na serveri je Arial (ponecháva sa)
Mení sa len veľkosť na 9.

Ak je to na word komplikované, budeme si musieť poradiť inak.

DOPLNENIE
Zatiaľ som si dokázala nahrať makro a hromadne podfarbiť text v stĺpci PoznámkaCOS cez funkcia "ĎALEKOHĽAD" - nájsť a nahradiť formát.

Ale potrebujem farbu aplikovať na celý riadok.

Zaslat odpověď >

marjankaj(15.5.2020 17:37)#046623

Sub Makro3()
With Selection.Find
.ClearFormatting
.Text = "dodatok"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Execute
End With

With Selection
.MoveLeft Count:=21, Extend:=wdExtend
.Font.Color = wdColorBlue
.Font.Bold = True
.MoveDown Unit:=wdLine, Count:=1
End With
End Subcitovat

kabaka(15.5.2020 18:16)#046624

marjankaj napsal/a:

Sub Makro3()

Aplikovala som makro.
Funguje, ale keď som si do nej pridala ostatné premenné, tak už nevyfarbuje tak ako má.

Prišla som na to, že ich musím mať osobitne

Ale aj tak NEOP mi nefunguje.
Dodatok, služba, príslužba, aj preklad fungujú.
(preklad sa bude podfarbovať sivou, tiež celý riadok, nie ako v zadaní)

Pri neop sa vyfarbujú 3 riadky.

Příloha: zip

46624_word-makro.zip (39kB, staženo 24x)

citovat

marjankaj(15.5.2020 20:00)#046625

Veď skúšaj meniť....

.MoveLeft Count:=19, Extend:=wdExtendcitovat

kabaka(15.5.2020 20:02)#046626

marjankaj napsal/a:

Veď skúšaj meniť....

.MoveLeft Count:=19, Extend:=wdExtend

Ok, vyskúšala, som, tu funguje 18.citovat

kabaka(16.5.2020 23:00)#046628

Pri týchto samostatných makrách som narazila na menší zádrhel pri službe a príslužbe.
Ide o to, že vlastne text SLUŽBA sa nachádza v texte príSLUŽBA.

A ak sa nachádzajú poznámky služba a príslužba pod sebou, tak to PRÍ ignoruje.

Pri kliknutí príslužba to dofarbí.

Příloha: png

46628_sluzba-a-prisluzba.png (12kB, staženo 19x)

citovat

marjankaj(17.5.2020 0:01)#046629

kabaka napsal/a:

Pri týchto samostatných makrách som narazila na menší zádrhel pri službe a príslužbe.
Ide o to, že vlastne text SLUŽBA sa nachádza v texte príSLUŽBA.

A ak sa nachádzajú poznámky služba a príslužba pod sebou, tak to PRÍ ignoruje.

Pri kliknutí príslužba to dofarbí.Příloha: 46628_sluzba-a-prisluzba.png (12kB, staženo 2x)

Lebo si vyhodila riadok resp. tam nemáš.
.MatchWholeWord = Truecitovat

kabaka(17.5.2020 9:42)#046630

marjankaj napsal/a:

kabaka napsal/a:
Lebo si vyhodila riadok resp. tam nemáš.
.MatchWholeWord = True

Ok, nič som nevyhodila.
Kopírovala som originál Tvoje makro.
Nebolo to tam.

Doplnila som, funguje.citovat

Téma: makro-word

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Uspořádání dat do tabulky

QR kód

Uspořádání dat do tabulky

Uspořádání dat do tabulky

Uspořádání dat do tabulky

Uspořádání dat do tabulky

hláška