< návrat zpět

MS Excel


Téma: makro-word rss

Zaslal/a 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 20x)
Zaslat odpověď >

#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 Sub
citovat
#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 24x)
citovat
#046625
avatar
Veď skúšaj meniť....

.MoveLeft Count:=19, Extend:=wdExtend
citovat
#046626
kabaka

marjankaj napsal/a:

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

.MoveLeft Count:=19, Extend:=wdExtend


Ok, vyskúšala, som, tu funguje 18.citovat
#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 19x)
46628_sluzba-a-prisluzba.png
citovat
#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
#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

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

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52