Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранить как исходное форматирование (и) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Сохранить как исходное форматирование (и) (Макросы/Sub)
Сохранить как исходное форматирование (и)
Asretyq Дата: Пятница, 27.10.2017, 14:55 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, нигде не могу найти информацию о том, как мне сохранить из екселя в ворд при переносе данных как исходное форматирование (и). Скидывается формат при программной вставке.
[vba]
Код
    wdApp.Selection.PasteAndFormat (wdFormatDocument = 16)
[/vba]
 
Ответить
СообщениеДоброго времени суток, нигде не могу найти информацию о том, как мне сохранить из екселя в ворд при переносе данных как исходное форматирование (и). Скидывается формат при программной вставке.
[vba]
Код
    wdApp.Selection.PasteAndFormat (wdFormatDocument = 16)
[/vba]

Автор - Asretyq
Дата добавления - 27.10.2017 в 14:55
Asretyq Дата: Пятница, 27.10.2017, 14:56 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 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]
Вот полный код
 
Ответить
Сообщение[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 в 14:56
Asretyq Дата: Пятница, 27.10.2017, 15:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Народ помогите плиз
 
Ответить
СообщениеНарод помогите плиз

Автор - Asretyq
Дата добавления - 27.10.2017 в 15:26
Asretyq Дата: Пятница, 27.10.2017, 15:43 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Ну там конечно много чего лишнего
К сообщению приложен файл: 8059180.xlsm(32.6 Kb)
 
Ответить
СообщениеНу там конечно много чего лишнего

Автор - Asretyq
Дата добавления - 27.10.2017 в 15:43
buchlotnik Дата: Пятница, 27.10.2017, 16:12 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3443
Репутация: 924 ±
Замечаний: 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]
 
Ответить
СообщениеДва варианта - или подключайте библиотеку Word-а, либо пишите так:[vba]
Код
With CreateObject("Word.Application")
    Range("N13:W19").Copy
    .Visible = True
    .Documents.Add
    .Selection.PasteAndFormat (wdFormatDocument = 16)
End with
[/vba]

Автор - buchlotnik
Дата добавления - 27.10.2017 в 16:12
Asretyq Дата: Пятница, 27.10.2017, 18:34 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата
sub on function not defined
выдает ошибку
 
Ответить
Сообщение
Цитата
sub on function not defined
выдает ошибку

Автор - Asretyq
Дата добавления - 27.10.2017 в 18:34
Pelena Дата: Пятница, 27.10.2017, 18:48 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 13136
Репутация: 2894 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Попробуйте в Вашем варианте переписать строку так
[vba]
Код
wdApp.Selection.PasteAndFormat Type:=16
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПопробуйте в Вашем варианте переписать строку так
[vba]
Код
wdApp.Selection.PasteAndFormat Type:=16
[/vba]

Автор - Pelena
Дата добавления - 27.10.2017 в 18:48
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Сохранить как исходное форматирование (и) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!