cześć wszystkim
Próbuję wysłać dane z arkusza programu Excel do dokumentu programu Word.
Dane idą idealnie, jedyny problem polega na tym, że kiedy wysyłam dane do słowa, dokument żywnościowy w słowie zostaje pomieszany.
Proszę o pomoc w moim głównym problemie z wyrównaniem.
Podziękowania
Szozib
To jest kod, którego używam.
Private Sub CommandButton2_Click ()
Przyciemnij objSłowo jako obiekt
Ustaw objWord = CreateObject("Word.Application")
Arkusz1.Range("F1:Q72").Kopiuj
Z objWordem
.Dokumenty.Dodaj
.Zaznaczenie.Wklej
.Widoczny = Prawda
Kończyć z
Ustaw objWord = Nic
End Sub
Próbuję wysłać dane z arkusza programu Excel do dokumentu programu Word.
Dane idą idealnie, jedyny problem polega na tym, że kiedy wysyłam dane do słowa, dokument żywnościowy w słowie zostaje pomieszany.
Proszę o pomoc w moim głównym problemie z wyrównaniem.
Podziękowania
Szozib
To jest kod, którego używam.
Private Sub CommandButton2_Click ()
Przyciemnij objSłowo jako obiekt
Ustaw objWord = CreateObject("Word.Application")
Arkusz1.Range("F1:Q72").Kopiuj
Z objWordem
.Dokumenty.Dodaj
.Zaznaczenie.Wklej
.Widoczny = Prawda
Kończyć z
Ustaw objWord = Nic
End Sub