Страницы: 1
RSS
как через макрос копировать в новый документ ворд
 
У меня есть таблица в эксель. есть макрос который заканчавается так:    
 
Selection.SpecialCells (xlVisible)    
Selection.Copy    
 
далее мне надо создать новый документ ворд вставить скопированное выделение и  
вернуться в эксель    
условие приложение ворд не обязательно будет открыто заранее  
 
по форуму искал. не разобрался.
 
Плохо искали http://yandex.ru/sitesearch?text=%EE%F2%EA%F0%FB%F2%FC+word&searchid=84804&web=0&lr=22
 
http://www.programmersforum.ru/showpost.php?p=274493&postcount=2  
 
 
Sub main()  
   Set wa = CreateObject("Word.Application")  
   wa.Visible = True: Set wd = wa.Documents.Add  
   wd.PageSetup.Orientation = 1  
   Selection.Copy  
   wd.Range.PasteExcelTable False, False, False  
   Application.CutCopyMode = False  
End Sub
 
Отлично!!!  
А как еще при этом сохранить сохранить исходное форматирование?
Страницы: 1
Читают тему
Наверх
Loading...