Содержимое doc-файла в текст ячейки.

Вход

Регистрация

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

= Мир MS Excel/Содержимое doc-файла в текст ячейки. - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Содержимое doc-файла в текст ячейки. (Макросы/Sub)

Содержимое doc-файла в текст ячейки.

Grell

Дата: Суббота, 14.01.2017, 21:53 | Сообщение № 1

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

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

Сообщений: 113

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

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

Excel 2007

Здравствуйте.
Помогите советом.

Как макросом извлечь содержимое doc-файла, перенеся его в текст ячейки?
Если в вордовском файле есть картинки, таблицы, диаграммы - их можно игнорировать, так как интересует только текст.

К сообщению приложен файл: 11.doc (20.0 Kb) · 456-2.xls (30.5 Kb)

Ответить

doober

Дата: Воскресенье, 15.01.2017, 01:14 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

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

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

Excel 2010

Здравствуйте.
так можно[vba]

Код

Sub readdoc()
    Dim docpath As String, Text As String
    docpath = ThisWorkbook.Path & "\11.doc"
    With CreateObject("word.application")
        Text = .Documents.Open(docpath).Range.Text
        .Documents(1).Close
        .Quit
    End With
    ThisWorkbook.Worksheets("Лист3").Range("C3") = Text

End Sub

[/vba]

Ответить

Grell

Дата: Понедельник, 16.01.2017, 15:59 | Сообщение № 3

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

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

Сообщений: 113

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

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

Excel 2007

doober, работает.
Большое спасибо.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Содержимое doc-файла в текст ячейки. (Макросы/Sub)

Страница 1 из 1
1