Копирование данных из Excell to Word - VBA

Узнай цену своей работы

Формулировка задачи:

Привет. Помогите подправить код, пожалуйста. Нужно, чтобы в документ Word копировались данные не из консолидированной ячейки А20, а из массива А1:А19, и чтобы при этом пустые ячейки не копировались (через объявление Dim LastRow?). И еще хотелось бы иметь варианты кода для копирования в уже имеющийся\путь документ Word с предварительной очисткой содержимого этого документа, и еще вариант кода для копирования в новый документ Word с одновременным форматированием этого нового документа под 3 колонки.

Решение задачи: «Копирование данных из Excell to Word»

textual
Листинг программы
Sub PersonalToWord()
Dim WordApp As Object, x, s
  Set WordApp = CreateObject("Word.Application")
  With WordApp
    .Visible = True
    .Documents.Add
    With .Selection
      .Font.Size = 14
      .TypeText Text:="Changed Text " + vbCrLf
      For Each x In Range("A1:A19").Value
        If Len(x) Then s = s & " " & x
      Next
      .TypeText Mid$(s, 2) & " Примеч."
    End With
  End With
  Set WordApp = Nothing
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.556 из 5