34067_img2.png
Skúste hromadnú korešpodenciu vo Worde a ako zdroj údajov použite tabuľku (aj textov) z Excelu.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vložení obsahu buňky do dokumentu Word
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.
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
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)
\n
\nMenu
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.
RSS nejnovější články