Hi everyone I am trying to send data from excel sheet to word document. The data is going perfectly, the only problem is when I send the data to word the aliment in word document gets messed. Please help with my main problem of alignment. Thanks Shozib This is the code which I am using. Private Sub CommandButton2_Click() Dim objWord As Object Set objWord = CreateObject("Word.Application") Sheet1.Range("F1:Q72").Copy With objWord .Documents.Add .Selection.Paste .Visible = True End With Set objWord = Nothing End Sub

Nowości

Przesyłanie danych z programu Excel do problemu wyrównania tekstu

przewyższać

Szozib

Niedziela, 03 czerwca 2018

0 Odpowiedzi

3.3 tys. Wizyt

Głosów

odpiąć

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

Nie ma jeszcze odpowiedzi na ten post.

Zaloguj się, aby opublikować odpowiedź

Musisz być zalogowany, aby móc wysłać odpowiedź. Zaloguj się za pomocą formularza po prawej stronie lub zarejestruj konto, jeśli jesteś tutaj nowy. Rejestracja tutaj "