• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vložení obsahu buňky do dokumentu Word

Zaslal/a jakubfilip 28.12.2016 10:47

Dobrý den. Snažím se pomocí VBA vložit do dokumentu Word textový obsah buňky. Výsledkem v dokumentu Word není prostý text, ale celý list z Excelu.

V excelu mám v buňce J2 text "Jana Nováková". Ve Wordu mám ukazatel {jméno}. Pomocí VBA vyhledám ve Wordu ukazatel, celý ho vyberu, smažu a místo něj vložím ze schránky text zkopírovaný z buňky.

Zkrácený výpis kódu:

objWord.Selection.Delete
Sheets("VstupniData").Range("J2").Copy
objWord.Selection.Paste

Nevíte prosím někdo, jakým způsobem nahradit ve Wordu text jiným textem z buňky?

Díky.

Příloha: 34067_img2.png (53kB, staženo 50x)

Zaslat odpověď >

---

MePExG(29.12.2016 19:24)#034090

Skúste hromadnú korešpodenciu vo Worde a ako zdroj údajov použite tabuľku (aj textov) z Excelu.citovat

Jeza.m(2.1.2017 14:32)#034131

Sice s wordem nedělám, ale záznamem makra se toho taky člověk dost dozví :-).

Je to jen neotestovaná teorie, ale ...

objword už v excelu máš očividně nadefinovaný, takže i soubor máš nejspíš spuštěný.
Pokud objword je dokument, tak pak by mělo stačit něco jako objword.Select 'Vybere vše
a pak už lze použít následující kód ze záznamníku makra, kdy slovo Selection bude nahrazeno objword.Selection. Místo {pole} si dosadíš co potřebuješ a místo "něco" dáš odkaz na buňku.

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "{pole}"
.Replacement.Text = "něco"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Ale jinak hromadná korespondence je elegantní řešení :-).
M@citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse