» Poradna » Programy

Word makra - vložení obrázku

 |   |  Microsoft Windows 7 Chrome 27.0.1453.93

Zdravím, potřeboval bych vložit obrázek podpisu do dokumentu word.Mám dopis ve wordu, který používá několik lidí a posílá se denně několik desítek dopisů.Dole v dopise je S pozdravem xxx nebo yyy. (xxx je jeden člověk yyy je druhý člověk a na každém dopise se to může lišit bud xxx nebo yyy)... v dokumentu je momentálně makro, na které se klikne a ze seznamu se vybere osoba do pozdravu se doplní jméno (xxx nebo yyy) a jeho funkce, popřípadě jiné info..Mě jde jen o to aby k tomuto makro které funguje jen na text se automaticky přiřazoval podpis správně k xxx a správně k yyy, nevíte jak na to?

Odpovědi na otázku

 |   |  Microsoft Windows XP Firefox 20.0

Zkopíruj sem to makro, co tam máš (jména můžeš změnit, pokud by jim to vadilo) a kouknem seco se s tím dá dělat...Případně (pokud se v tom aspoň trochu orientuješ, tak si do toho makra přidej příkaz na vložení obrázku (nemusíš ho psát, stačí zaznamenat do pomocného makra vložení obrázku) ale protože nevím, jak to tvoje makro vypadá, neporadím, jak zařídit ten výběr podle příjmení...Selection.InlineShapes.AddPicture FileName:= _ "C:\Documents and Settings\User\Dokumenty\Obrázky\podpis.gif", _ LinkToFile:=False, SaveWithDocument:=True

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 21.0

No a když si ty obrázky s podpisy nazveš stejnými jmény jako ty osoby (xxx.gif; yyy.gif), tak to máš lehce vyřešené - něco jako následující (v proměnné strName je jméno požadované osoby, tj. xxx či yyy):Selection.InlineShapes.AddPicture "C:\Documents and Settings\User\Dokumenty\Obrázky\" & strName & ".gif", False, True

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 29.0.1516.3

Public Sub PODPIS()If ActiveDocument.FormFields("UET_jmeno").Result = "xxxx xxxxx" Then ActiveDocument.FormFields("funkce").Result = "vedoucí odboru Prodej Call Centrum" ElseIf ActiveDocument.FormFields("UET_jmeno").Result = "yyyy yyyyy" Then ActiveDocument.FormFields("funkce").Result = "teamleader CC"End IfEnd Subtakto vypadá script.. je to rozevírací seznam vyberu osobu a přiřadí se xxx nebo yyy s funkcí.. a právě ke jménu potřebuju vložit podpis ale envím jak na to a aby to už bylo uložené v dokumentu protože soubor bude třeba na 20ti PC takže cesta bude vždy jiná k podpisu(obrázku).. v makrech se moc nevyznám :/

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 27.0.1453.94

poradí někdo?

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Člověk, Druhý člověk, Dopis




Určitě si přečtěte

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 28

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

** Čeští vědci pod vedením Tomáše Jungwirtha vyvíjí nový typ revolučního paměťového čipu ** Zatímco v současnosti elektronika pracuje s elektrony, v budoucnu to budou spiny elektronů ** Čipy budou moci být klidně i 1 000x rychlejší a úspornější

Karel Javůrek | 32

Nechcete platit za Total Commander? Těmito bezplatnými programy ho můžete nahradit

Nechcete platit za Total Commander? Těmito bezplatnými programy ho můžete nahradit

** Total Commander je na Windows takřka legendou ** Licence však stojí více než tisíc korun ** Našli jsme pro vás deset alternativ dostupných zdarma

Karel Kilián | 141

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

** Sonda LRO pořídila z oběžné dráhy Měsíce zajímavé snímky ** Jsou na nich vidět artefakty všech misí programu Apolla, které přistály na povrchu Měsíce ** Jde například o části lunárních modulů, rovery a dokonce i vlajky

Petr Kubala | 60

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

** Vědci spočítali, jak velká by musela být posádka pro vícegenerační let k nejbližší hvězdné soustavě ** Proxima Centauri se nachází 4,3 světelných let od nás ** Za současných technologií bychom k ní letěli 6300 let

Petr Kubala | 58


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji