Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [office\vba] макрос вставки из excel в word


Автор: Shooroop 18.1.2009, 01:09
Доброго времени!
Нужен макрос который возьмет значение ячейки Excel откроет шаблон Word и вставит это значение. 

Вот такой простой макрос я втупляю написать уже 3часа, знаний в vba нет. smile 

Автор: Shooroop 18.1.2009, 02:12
Код

Sub macros1()

Dim s As String
'
    Interactive = False
    Range("C4").Select
    Range("C4").Copy
    Range("C5").PasteSpecial
    
    
    'запуск ворда
    'Application.ActivateMicrosoftApp xlMicrosoftWord
    Set Wrd = GetObject(, "Word.Application")
    Wrd.Documents.Open Filename:="test.dot", ReadOnly:=True
    'Wrd.Documents.Add.ActiveWindow.Activate
    If Len(Range("C4").Value) Then
    
    Wrd.ActiveWindow.Selection.TypeText (Range("C4"))
    End If
    
    ActiveCell.FormulaR1C1 = "ворд ворд ворд ворд ворд ворд "
    Range("C5").Select
    Interactive = True
    
End Sub


разобрался наконец-то. тема закрыта.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)