[Iska]

Дмитрий qa, нужен пример исходного и результирующего документов, а не скриншоты (Вы хотя бы отображение непечатных символов включили, что ли).

[Дмитрий qa]

Т.е. вставить pdf файл и файл word?

[Дмитрий qa]

Вот оригиналы.

[Iska]

Дмитрий qa, вряд ли там что-то поможет: не могу сказать наверняка, что в pdf, но в буфер обмена текст попадает уже в виде: одна строка — один абзац. Как в старые добрые времена текстовых редакторов DOS.

Наиболее быстрый путь, на мой взгляд — распознать pdf при помощи ABBYY FineReader, либо попробовать сконвертировать его в приемлемый формат при помощи какого-либо онлайнового конвертера.

[Дмитрий qa]

Спасибо. Еще вопрос, не знаете ли как назначить кнопку к макросу и выбрать для нее иконку в Ворд 2003?

[Iska]

Программно или вручную?

[Дмитрий qa]

Кнопку назначил, Сервис > Настройка > Команды > Макросы > значок макроса перетащить на панель инструментов > правый клик на значке > изменить имя макроса или иконку. Но макрос работает некорректно, приходится править. Вот код.

Sub Macros1 ()
'
Dim sPar As String
Dim par As Paragraph
Dim i As Integer
i = 0
For Each par In ActiveDocument.Paragraphs
If Right(par, 2) = Chr(46) & Chr(13) Then
i = i + 1
Else
If Right(par, 1) = Chr(13) Then
par.Range.Text = Replace(par.Range.Text, Chr(13), " ")
End If
End If
Next par
End Sub

[Iska]

Кнопку назначил, Сервис > Настройка…»

Стало быть — «ручками».

Но макрос работает некорректно, приходится править. Вот код. »

В чём именно проявляется его некорректность?

Код: For Each par In ActiveDocument.Paragraphs »

То бишь, Вы хотите получить один абзац на весь документ? Сомневаюсь.

Лучше так:

Код:

    Dim i As Long
    
    
    With Selection.Paragraphs
        For i = .Count - 1 To 1 Step -1
            With .Item(i).Range
                .Collapse Direction:=wdCollapseEnd
                .MoveStart Count:=-1
                .Delete
                .InsertAfter " "
            End With
        Next
    End With

— меняет в выделении все символы абзаца на пробел за исключением последнего. Т.е., Вы выделяете «кривые» абзацы — содержимое будущего единого абзаца, затем исполняете макрос.

Кстати, запускать макрос на исполнение куда быстрее будет не кнопкой на панели инструментов, а горячей клавишей. И не забудьте включить отображение непечатных символов — будет проще работать.

[Дмитрий qa]

Когда вставляю в Ворд текст из pdf, выделяю его и нажимаю макрос, текст становится полужирный. Причем и выделенный кусок и до начала абзаца выше. Приходится ctrl+z нажимать несколько раз и править вручную. Макрос то работает, но не так как надо.