Как сделать сайт:
  HTML
  JavaScript
  PHP
  CMS
Microsoft Office:
  Word
  Excel
  VBA
Просто о сложном
Список форумов on-line-teaching.com on-line-teaching.com
Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Как задать формат в макросе, копирующем из Excel в Word?

 
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы
Предыдущая тема :: Следующая тема  
Автор Сообщение
Onex1983
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 06.05.2009
Сообщения: 1

СообщениеДобавлено: Ср Май 06, 2009 7:37 am    Заголовок сообщения: Как задать формат в макросе, копирующем из Excel в Word? Ответить с цитатой

Подскажите, что надо изменить в теле макроса, чтобы при копировании в Word сохранялся формат ячеек, которые копируются. Т.е. если в ячейке A1 написан текст и его формат "выравнивание по середине, Times, размер 16", а в ячейке A2 написан текст и его формат "выравнивание по правому краю, Times, размер 12", то и в Word они должны переноситься с таким же форматом (т.е. выравниваться по середине и правому краю и размер 16 и 12).

Sub main()
FillData
TransferToWord
End Sub
Sub CopyToWord(SelectedObject As Object)
SelectedObject.Copy
WordApp.Selection.PasteAndFormat 0
WordApp.Selection.TypeParagraph
End Sub

Sub TransferToWord()
Set WordApp = CreateObject("Word.Application")

WordApp.Visible = True

WordApp.Documents.Add


WordApp.Selection.TypeText Text:=Range("A1").Value
WordApp.Selection.TypeParagraph

WordApp.Selection.TypeText Text:=Range("A2").Value
WordApp.Selection.TypeParagraph

WordApp.Selection.TypeText Text:=Range("A3").Value
WordApp.Selection.TypeParagraph

' WordApp.Quit
Set WordApp = Nothing
End Sub
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Русская поддержка phpBB