< 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

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46

vrácené hodnoty

Anonym • 22.5. 15:45