Сохранить как исходное форматирование (и)

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Сохранить как исходное форматирование (и) (Макросы/Sub)

Asretyq

Дата: Пятница, 27.10.2017, 14:55 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток, нигде не могу найти информацию о том, как мне сохранить из екселя в ворд при переносе данных как исходное форматирование (и). Скидывается формат при программной вставке.
[vba]

Код

wdApp.Selection.PasteAndFormat (wdFormatDocument = 16)

[/vba]

Ответить

Asretyq

Дата: Пятница, 27.10.2017, 14:56 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add

    Range("N13:W19").Copy
    wdApp.Visible = True
    wdApp.Documents.Add
    wdApp.Selection.PasteAndFormat (wdFormatDocument = 16)

[/vba]
Вот полный код

Ответить

Asretyq

Дата: Пятница, 27.10.2017, 15:26 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Народ помогите плиз

Ответить

Asretyq

Дата: Пятница, 27.10.2017, 15:43 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Ну там конечно много чего лишнего

К сообщению приложен файл: 8059180.xlsm (32.6 Kb)

Ответить

buchlotnik

Дата: Пятница, 27.10.2017, 16:12 | Сообщение № 5

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Два варианта - или подключайте библиотеку Word-а, либо пишите так:[vba]

Код

With CreateObject("Word.Application")
    Range("N13:W19").Copy
    .Visible = True
    .Documents.Add
    .Selection.PasteAndFormat (wdFormatDocument = 16)
End with

[/vba]