Κυριακή, 03 Ιουνίου 2018
  0 Απαντήσεις
  3.3K Επισκέψεις
0
Ψηφοφορίες
Αναίρεση
γεια σε όλους
Προσπαθώ να στείλω δεδομένα από φύλλο excel σε έγγραφο word.
Τα δεδομένα πηγαίνουν τέλεια, το μόνο πρόβλημα είναι όταν στέλνω τα δεδομένα στο word το aliment στο έγγραφο του word μπλέκεται.
Παρακαλώ βοηθήστε με το βασικό μου πρόβλημα της ευθυγράμμισης.

Ευχαριστώ
Ο Σοζίμπ

Αυτός είναι ο κώδικας που χρησιμοποιώ.

Private Sub CommandButton2_Click ()
Dim ObjWord ως αντικείμενο
Ορισμός objWord = CreateObject ("Word.Application")

Sheet1.Range("F1:Q72").Αντιγραφή
Με το objWord
.Έγγραφα.Προσθήκη
.Επιλογή.Επικόλληση
.Ορατό = Αληθινό
Τέλος με

Ορισμός objWord = Τίποτα

Sub End
Δεν υπάρχουν ακόμη απαντήσεις για αυτήν την ανάρτηση.