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

Вход

Регистрация

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

 

= Мир MS Excel/Не закрывается ворд без запроса на сохранение - Мир MS Excel

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

Excel 2013
Уважаемые форумчане прошу прощения, сделал все по гайду, но почему-то не хочет закрываться файл вордовский созданный из екселя без запроса на сохранение, и библиотеку включил и что только не делал
[vba]
Код
Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    Range("N13:W36").Copy
    wdApp.Visible = True
    wdApp.Documents.Add
    wdApp.Selection.PasteAndFormat (wdFormatDocument)
    wdApp.DisplayAlerts = False
    wdDoc.SaveAs "C:\1\12.doc"
    wdDoc.Close True
    wdApp.Quit
[/vba]
К сообщению приложен файл: 5429696.xlsm (0.0 Kb)
 
Ответить
СообщениеУважаемые форумчане прошу прощения, сделал все по гайду, но почему-то не хочет закрываться файл вордовский созданный из екселя без запроса на сохранение, и библиотеку включил и что только не делал
[vba]
Код
Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    Range("N13:W36").Copy
    wdApp.Visible = True
    wdApp.Documents.Add
    wdApp.Selection.PasteAndFormat (wdFormatDocument)
    wdApp.DisplayAlerts = False
    wdDoc.SaveAs "C:\1\12.doc"
    wdDoc.Close True
    wdApp.Quit
[/vba]
Автор - Asretyq
Дата добавления - 29.10.2017 в 00:04
Asretyq Дата: Воскресенье, 29.10.2017, 02:17 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спустя 4 часа...
Проблема была в этом коде [vba]
Код
wdApp.Selection.PasteAndFormat (wdFormatDocument)
[/vba]
Заменил на [vba]
Код
wdDoc.Range(0).Paste
[/vba] норм стала работать, не знаю почему, но главное есть результат
 
Ответить
СообщениеСпустя 4 часа...
Проблема была в этом коде [vba]
Код
wdApp.Selection.PasteAndFormat (wdFormatDocument)
[/vba]
Заменил на [vba]
Код
wdDoc.Range(0).Paste
[/vba] норм стала работать, не знаю почему, но главное есть результат
Автор - Asretyq
Дата добавления - 29.10.2017 в 02:17
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Не закрывается ворд без запроса на сохранение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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