< návrat zpět

MS Excel


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

Zaslal/a 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: png34067_img2.png (53kB, staženo 49x)
34067_img2.png
Zaslat odpověď >

#034090
MePExG
Skúste hromadnú korešpodenciu vo Worde a ako zdroj údajov použite tabuľku (aj textov) z Excelu.citovat
#034131
Jeza.m
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)
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

Excel - zápatí

masox22 • 28.2. 10:55

Současné rozplánování více projektů v Excelu -4

exceleda • 28.2. 10:04

Současné rozplánování více projektů v Excelu -4

elninoslov • 27.2. 22:52

konsolidace II.

pmiki • 27.2. 20:58

Současné rozplánování více projektů v Excelu -4

exceleda • 27.2. 18:36

Současné rozplánování více projektů v Excelu -4

elninoslov • 27.2. 14:30

Soubor bez přípony

elninoslov • 27.2. 14:26