PC Fórum

Excel-ből másolás word-be / objektum-ba makróval
50

2013-09-03T04:57+02:00
vakrepulo
vakrepuloPC Fórum
regisztrált tag
2013-09-03T04:57+02:00
Sziasztok!

Feladat: Excelben van egy objektumnként beágyazott word ('Munka1' munkalapon). A szükséges művelet: A word-öt megnyitni és az excel egy bizonyos tartományát belemásolni. (a tartomány legyen mondjuk a 'munka1' munkalap A1:B2 része).

Azt meg tudtam csinálni (lopással mástól), hogy egy új word-öt nyitok és abba rakom bele. Ez kb így néz ki:

Sub CopyWord()
Dim word As word.Application
Dim MelyikSheeten As String

Set word = New word.Application
word.Visible = True
With word
.Documents.Add
MelyikSheeten = "Munka1"
Worksheets(MelyikSheeten).Range("A1:B2").Select
Selection.Copy
.Selection.Paste
.Selection.Sections.Add
End with
End Sub

De nekem az objektumos word-öt kellene megnyitnom, mert speckó a fej és lábléce, pl képek vannak beillesztve benne.

Az is megy hogy megnyissam az objektumot:

Sheets("Munka1").Select
ActiveSheet.Shapes("Object 2").Select
Selection.Verb Verb:=xlPrimary

csak nem rakja be a másolandó részt, már a ".Documents.Add" résznél leakad.

Valmai olyat sejtek, hogy ezt a részt:

Dim word As word.Application
Set word = New word.Application

kellene átirni, mert itt nem új word van henem objektum, leeht szóba kell jönnie a createobject parancsank is a set mögött, de nem értek hozzá, amatőr vagyok csak mások excel makróit tudom összelopkodni.

Tudnátok segíteni?
Köszi
vakrep
Mutasd a teljes hozzászólást!
Excel-ből másolás word-be / objektum-ba makróval
2013-09-03T04:57+02:00
vakrepulo
vakrepuloPC Fórum
regisztrált tag
2013-09-03T04:57+02:00
2011-06-03T08:51+02:00
2011-06-03T08:51+02:00
Itt ugyan pont fordított a szitu, de ez a topic talán segít.
(Egyelőre én sem értem hogyan is működik, de most nincs időm kísérletezni vele.)
Mutasd a teljes hozzászólást!