Страницы: 1
RSS
Макрос копирует текст из ворда, но не все абзацы
 
Доброго времени суток.
Помогите поправить макрос.

Вордовский файл переносится в ячейку экселя.
Но переносятся не все абзацы.
Скажите - как перенести все абзацы ?
(Или если так нельзя - то хотя бы в разные строки их перенести, а не в одну ячейку).
 
Доброе время суток.
Цитата
plank1433 написал:
в разные строки их перенести, а не в одну ячейку
Вариант
Код
Public 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
        End If
    Next
    pDoc.Close
    pWord.Quit
End Sub
 
Андрей VG, как это скопировать - в ячейку C3 - не создавая всякий раз при срабатывании макроса - новых листов ?
Страницы: 1
Наверх