Ошибка при переходе на следующую строку при переносе значений из excel в word

@Lilze · Регистрация: 04.08.2016

Author24 — интернет-сервис помощи студентам

Приветствую знатоки vba.. Суть проблемы есть таблица ексель с цифрами и таблица word с объединенными ячейками в которую по закладке переносяться цифры макросом ,но суть проблемы в том что при переходе на следующую строку программа ломаеться.Переход на новую строку таблицы начинаетья с начала таблицы, туда где боковина(выделено красным)... помогите справиться с этим недоразумением.)

@Казанский · 18.04.2018, 19:12

Lilze,

Visual Basic

Sub macr()
Dim objWord As Word.Application
Dim objDoc As Word.Document, r As Word.Range
  Set objWord = CreateObject("word.application")
  objWord.Visible = True
  Set objDoc = objWord.Documents.Open(ActiveWorkbook.Path & "\blank.docx")
  objWord.Selection.GoTo Name:="zak1"
  For i = 1 To 14
    Set r = objWord.Selection.Range
    For j = 14 To 26
      objWord.Selection.TypeText Text:=CStr(Cells(i, j))
      If i <> 14 Or j <> 26 Then objWord.Selection.MoveRight unit:=wdCell
    Next j
    r.Select
    objWord.Selection.MoveDown ' unit:=wdCell
  Next i
End Sub

@Lilze · 19.04.2018, 09:55 **[ТС]**

спасибо огромное Казанский все работает))

@Lilze 0 / 0 / 0 Регистрация: 04.08.2016 Сообщений: 107
	19.04.2018, 09:55 [ТС]	3
	спасибо огромное Казанский все работает)) 0