Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Вставить текст из textbox в word
 
#1
12.10.2012 15:42:22
Добрый день! Подскажите, пожалуйста, как вставить текст из textbox в word.  
Уже написал создание ворда, а вот про вставку почему-то не могу найти в инете.  
Private Sub CommandButton4_Click()  
Dim WordApp, DocWord  
 
Set WordApp = New Word.Application  
WordApp.Visible = True  
Set DocWord = WordApp.Documents.Add  
DocWord.Activate  
 
End Sub
 
 
 
#2
12.10.2012 15:53:21
Например  
 
WordApp.Selection.InsertAfter TextBox1  
 
Можете "спросить" у макрорекордера Ворда :)
 
 
 
#3
12.10.2012 16:11:00
Спасибо! Мне казалось макрорекодер здесь не запустится.
 
 
 
#4
12.10.2012 16:28:28
А как сохранить открытый после вышеописанной процедуры word в указаной папке не подскажете. Это рекордером не выходит.
 
 
 
#5
12.10.2012 16:51:29
> Это рекордером не выходит  
 
Выходит. Только макрос, ессно, надо записывать не в том документе, который сохраняется, а в другом. И необязательно в этом, программно созданном экземпляре Ворда. Короче,  
 
DocWord.SaveAs FileName:="test.docx", FileFormat:= wdFormatXMLDocument 'и др. параметры  
 
Не забудьте WordApp.Quit, иначе приложение останется в памяти, см. диспетчер задач.
 
 
 
#6
12.10.2012 17:10:14
Такой вариант я уже находил, но не могу понять как прописать папку куда сохранить...
 
 
 
#7
12.10.2012 17:45:20
Private Sub CommandButton4_Click()  
   Dim WordApp As Object, DocWord As Object  
   Set WordApp = CreateObject("Word.Application")  
   WordApp.Visible = True  
   Set DocWord = WordApp.Documents.Add  
   DocWord.Activate  
   WordApp.Selection.InsertAfter TextBox1  
   DocWord.SaveAs Filename:="C:\test.docx", FileFormat:=wdFormatXMLDocument  
   DocWord.Close (0)  
   WordApp.Quit: Set WordApp = Nothing  
End Sub  
 
Тут вписываете папку Filename:="C:\...."
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#8
15.10.2012 14:48:52
Спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх