Страницы: 1
RSS
Сохранение листа как docx
 
Ребят, есть документ в Excel сохраненный, как можно этот лист теперь сохранить в word? интересует также, как это можно сделать через vba?
 
например:
Код
Sub q()
ActiveSheet.UsedRange.Copy
With CreateObject("word.application")
    With .Documents.Add
    .Range(Start:=0, End:=1).PasteExcelTable False, False, False
    .SaveAs "1.docx"
    .Close
    End With
    .Quit
End With
End Sub
Живи и дай жить..
 
Спасибо большое, практически работает, единственно вставляет текст с другим шрифтом. Если я просто беру все выделяю и копирую в ручную, потом вставляю в ворд, то все нормально... не могу понять как такой же Paste программно сделать...

И ещё маленький вопросик, как открываемому вордовскому файлу присвоить маленькие поля? PageSetup top margin, у меня ошибку выдает, типа нет такого метода...
 
у меня все тем шрифтом, что в икселе(ведь так и указано в параметрах вставки)

и topmargin тоже работает..
Код
Sub q()
ActiveSheet.UsedRange.Copy
With CreateObject("word.application")
    .Visible = True
    With .Documents.Add
    .Range(Start:=0, End:=1).PasteExcelTable False, False, False
    .PageSetup.TopMargin = 10
    .SaveAs "1.docx"
    .Close
    End With
    .Quit
End With
End Sub
Живи и дай жить..
 
TopMargin тоже стало работать, все здорово! Но шрифт так и не могу побороть... если копирую вручную, то все здорово, если с помощью этого кода, то подставляется колибри шрифт и половина форматирования слетает...
 
может надо в ворде поставить требуемый шрифт по умолчанию?  
 
да проблема в том, что не только шрифт, но и интервал междустрочный допустим тоже меняется
Страницы: 1
Наверх