Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Wstawienie tabeli z excela do Worda

gravitation · ExcelSpec **Pomógł:** 33 razy Posty: 121

Witam!!!
Jak zmodyfikować poniższe makro aby wstawiało tabele z excela do
czwartego wiersza w Wordzie.

Kod:

Sub czytaj_dane_excel()
Dim plik_doc, plik_doc1, path, komorka
Dim dc
Dim w
plik_doc = "Marketing-wzór.doc"
plik_doc1 = Sheets("email").Range("C2").Value
path = ActiveWorkbook.path
ChDrive (Mid(path, 1, 1))
ChDir (path)

Set dc = CreateObject("Word.Application")
dc.Application.Visible = False
'dc.Application.Visible = True

dc.Application.Documents.Open path & "\Zalacznik\" & plik_doc

Debug.Print "___________________________________________"

Call zaznacz_komorki_excel

dc.Application.Selection.Paste False, False, False
dc.Application.ActiveDocument.SaveAs (path & "\zalacznik\" & plik_doc1)

dc.Application.ActiveDocument.Close
dc.Application.Quit
Set dc = Nothing
End Sub

Pozdrawiam gravitation!!!

Tajan · **Pomógł:** 5252 razy Posty: 11450

Nie jestem fachowcem od Worda, wle wydaje mi się, że wskazanie akurat 4 wiersza nie jest zbyt łatwe. Chyba, pisząc o wierszach, masz na myśli akapity. Wtedy nie ma problemu. Natomiast, w celu odszukania czwartej linii trzeba, moim zdaniem, poszukać w tekscie 3 znaku końca wiersza i za nim wkleić zawartość schowka. Ale tego jedną instrukcja zrobić się tego nie da :-)

gravitation · ExcelSpec **Pomógł:** 33 razy Posty: 121

Witam!!!
Trudno.
Poradziłem sobie w ten sposób, że zwiększyłem obszar
kopiowany i w tych komórkach wpisałem dane tekstowe.
Na razie tak musi być.
Pozdrawiam gravitation!!!