Перенос данных из Excel в таблицу Word

[troyan90]

Имеется таблица в экселе: 2 столбца, несколько тысяч строк. Примерно такого вида:

Есть таблица в ворде, примерно такого вида:

Нужно значения из первого столбца (эксель) добавить к значению второго столбца (в ворде). Тоже самое 2 столбец в 4-й.
Вот так должно быть в итоге (в ворде):

Строк несколько тысяч, так что копировать вручную долго, может можно как-то ускорить?
п.с. Используется WinXP + MS Office 2007

[FiataliS]

Сообщение от troyan90

Имеется таблица в экселе: 2 столбца, несколько тысяч строк. Примерно такого вида:
Есть таблица в ворде, примерно такого вида:
Нужно значения из первого столбца (эксель) добавить к значению второго столбца (в ворде). Тоже самое 2 столбец в 4-й.
Вот так должно быть в итоге (в ворде):
Строк несколько тысяч, так что копировать вручную долго, может можно как-то ускорить?
п.с. Используется WinXP + MS Office 2007

Ты не померишь, у меня обсалютно такая же проблема, но данные немного другие, есть немного кода, я уже накидал, нужно чтоб в Word искал примечание и в ячейку после него вставлял значение, которое соответственно перед этим копируется из эксля, да вот чего то поиск не работает и не знаю как в ворде определить последующую строку после наеденой ячейки.

Sub CopyPrimechanie()
x = ActiveCell.Row
Prym = Range("E" & x).Value
urlSS = Range("m" & x).Value


Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Open(urlSS)
objWrdApp.Visible = False
End If
Set objWrdDoc = objWrdApp.Documents.Open(urlSS)
'Range("E" & x).copy
objWrdDoc.Select
With Selection.find
        .text = "Примечан" 'пробывал и так .text = Примечан непомогло.
        .Replacement.text = (Prym)  ' Это чтоб хотябы наеденое слово заменял, но и это не работает        
        .Forward = True
        .Wrap = wdFindContinue
        .format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
'objWrdDoc.Range(0).Paste
objWrdDoc.Close True
'True - с сохранением, False - без сохранения
objWrdApp.Quit
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
End Sub

[maksim_serg]

посмотрите тут:
http://programmersforum.ru/showthread.php?t=253768

[FiataliS]

Сообщение от maksim_serg

посмотрите тут:
http://programmersforum.ru/showthread.php?t=253768

Спасибо, помогло решить проблему