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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос выводит текст, создавая лишний новый лист - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выводит текст, создавая лишний новый лист (Макросы/Sub)
Макрос выводит текст, создавая лишний новый лист
plank1433 Дата: Пятница, 14.08.2020, 08:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Доброе утро.
У меня есть макрос, который вытаскивает из Word-файла текст

Но он его выводит не в ячейки C3:С Листа3, а создает новый лист - при каждом срабатывании.
А при следующем срабатывании - создает еще один лист и т.д.

Что поменять в этом макросе, чтобы текст выводился в столбец C3:С Листа3 ?
К сообщению приложен файл: 11.doc(20.0 Kb) · 8367811.xls(44.0 Kb)
 
Ответить
СообщениеДоброе утро.
У меня есть макрос, который вытаскивает из Word-файла текст

Но он его выводит не в ячейки C3:С Листа3, а создает новый лист - при каждом срабатывании.
А при следующем срабатывании - создает еще один лист и т.д.

Что поменять в этом макросе, чтобы текст выводился в столбец C3:С Листа3 ?

Автор - plank1433
Дата добавления - 14.08.2020 в 08:29
Nic70y Дата: Пятница, 14.08.2020, 08:44 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7722
Репутация: 1852 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub ReadEachDocParagraphs()
    Dim pWord As Object, pSheet As Worksheet, pDoc As Object
    Dim i As Long, text As String, pParagraph As Object
    'Set pSheet = ThisWorkbook.Worksheets.Add
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open(ThisWorkbook.Path & "\11.doc", True)
    For Each pParagraph In pDoc.Paragraphs
        text = Trim$(Replace$(pParagraph.Range.text, vbCr, ""))
        If text <> "" Then
            i = i + 1
            'pSheet.Cells(i, 1).Value = text
            Cells(i + 2, 3).Value = text
        End If
    Next
    pDoc.Close
    pWord.Quit
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub ReadEachDocParagraphs()
    Dim pWord As Object, pSheet As Worksheet, pDoc As Object
    Dim i As Long, text As String, pParagraph As Object
    'Set pSheet = ThisWorkbook.Worksheets.Add
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open(ThisWorkbook.Path & "\11.doc", True)
    For Each pParagraph In pDoc.Paragraphs
        text = Trim$(Replace$(pParagraph.Range.text, vbCr, ""))
        If text <> "" Then
            i = i + 1
            'pSheet.Cells(i, 1).Value = text
            Cells(i + 2, 3).Value = text
        End If
    Next
    pDoc.Close
    pWord.Quit
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 14.08.2020 в 08:44
plank1433 Дата: Пятница, 14.08.2020, 23:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, спасибо.
 
Ответить
СообщениеNic70y, спасибо.

Автор - plank1433
Дата добавления - 14.08.2020 в 23:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выводит текст, создавая лишний новый лист (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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