< návrat zpět

MS Excel

Téma: makro-word rss

Zaslal/a kabaka 15.5.2020 9:02

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

Příloha: zip46619_word-makro.zip (38kB, staženo 21x)
Zaslat odpověď >
marjankaj(15.5.2020 17:37)#046623
avatar
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
kabaka

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: zip46624_word-makro.zip (39kB, staženo 25x)
citovat
marjankaj(15.5.2020 20:00)#046625
avatar
Veď skúšaj meniť....

.MoveLeft Count:=19, Extend:=wdExtendcitovat
kabaka(15.5.2020 20:02)#046626
kabaka

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
kabaka
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: png46628_sluzba-a-prisluzba.png (12kB, staženo 20x)
46628_sluzba-a-prisluzba.png
citovat
marjankaj(17.5.2020 0:01)#046629
avatar

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
kabaka

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

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje