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

Вход

Регистрация

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

 

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

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

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

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

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

Автор - Asretyq
Дата добавления - 27.10.2017 в 15:43
buchlotnik Дата: Пятница, 27.10.2017, 16:12 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3327
Репутация: 886 ±
Замечаний: 0% ±

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]


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
СообщениеДва варианта - или подключайте библиотеку 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
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

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 из 11
Поиск:

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