Макрос выводит текст, создавая лишний новый лист

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

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

Макрос выводит текст, создавая лишний новый лист (Макросы/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)

Ответить

Nic70y

Дата: Пятница, 14.08.2020, 08:44 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9005

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

Замечаний: 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

Ответить

plank1433

Дата: Пятница, 14.08.2020, 23:09 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2019

Nic70y, спасибо.

Ответить

Макрос выводит текст, создавая лишний новый лист (Макросы/Sub)

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