» Poradna » Programy

Word makra - vložení obrázku

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 4/4
 |   |  Microsoft Windows 7 Chrome 27.0.1453.93  |  [81.201.60.---]

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  |  [81.201.60.---]

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  |  [81.201.60.---]

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



Aktuální číslo časopisu Computer

26 procesorů v důkladném testu

Zhodnotili jsme 18 bezdrátových reproduktorů

Jak fungují cash back služby?

Pohlídejte své děti na internetu