Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Из Excel в Word
 
#1
18.03.2010 17:17:52
в колонке А1 (строки с 1-250) с помошью формул получен текст, который надо перевести в Word, подскажите пожалуйста как это сделать? желательно чтобы форматирование текста осталось такимже как в Excel
 
 
 
#2
18.03.2010 17:21:48
Скопировать - вставить.
 
 
 
#3
18.03.2010 17:23:32
) хотелось бы автоматичаски, с помошь макросов)
 
 
 
#4
18.03.2010 17:24:53
Так и надо писать :-)
 
 
 
#5
18.03.2010 17:37:40
{quote}{login=(0_o)}{date=18.03.2010 05:17}{thema=Из Excel в Word}{post}в колонке А1 (строки с 1-250) с помошью формул получен текст, который надо перевести в Word, подскажите пожалуйста как это сделать? желательно чтобы форматирование текста осталось такимже как в Excel{/post}{/quote}  
одна строка - один абзац)
 
 
 
#6
18.03.2010 19:02:28
кто-нибудь знает как это сделать?
 
 
 
#7
18.03.2010 19:27:43
все знает макрорекордер  
попробуйте
 
 
 
#8
18.03.2010 19:32:13
{quote}{login=(0_o)}{date=18.03.2010 07:02}{thema=}{post}кто-нибудь знает как это сделать?{/post}{/quote}  
Варианты:  
1 - включить поиск по тексту "макросом из Excel в Word", и среди многого прочего найти, к примеру такое - "http://www.planetaexcel.ru/forum.php?thread_id=2813"...  
2 - заглянуть в "Приемы"...  
3 - открыть Xl и Word, записать копирование-вставку рекордером - проверить...  
3 - открыть Xl и Word, копировать - вставить сваязь...  
4 - ...  
Z.
 
 
 
#9
20.03.2010 13:00:05
Да,есть куча примеров, но не могу понять как перетащить текст из ячеек в Ворд...
 
 
 
#10
20.03.2010 16:35:47
Следующий макрос открывает Word и копирует выделенный диапазон с листа Excel. Если Word уже открыт, то данные вставляются в активный документ в место курсора.  
 
Код:  
 
Sub InWord()  
 
   Dim Wrd As Object  
   On Error Resume Next  
   Set Wrd = GetObject(, "Word.Application")  
   If Wrd Is Nothing Then  
       Set Wrd = GetObject("", "Word.Application")  
   End If  
   On Error GoTo 0  
   AppActivate "Microsoft Excel"  
   SendKeys "^{Insert}", True  
   AppActivate "Microsoft Word"  
   SendKeys "+{Insert}", True  
   Set Wrd = Nothing  
     
End Sub
 
 
 
#11
21.01.2011 16:52:38
А у меня этот макрос ничего не копирует в открытый сохраненный документ Word. Копирование происходит только в новый документ?
 
 
 
#12
17.02.2012 15:19:42
{quote}{login=Hugo}{date=20.03.2010 04:35}{thema=}{post}Следующий макрос открывает Word и копирует выделенный диапазон с листа Excel. Если Word уже открыт, то данные вставляются в активный документ в место курсора.  
............  
{/post}{/quote}  
А что нужно прописать в коде, чтобы копировался не выделенный диапазон а заданный, т.е. например 4R x 10D
 
 
 
Страницы: 1
Наверх