1

Тема: Word 2010: Копирование текста с рисунками в другую программу

При копировании текста с рисунками из Word 2010 в другую программу (HelpAndManual) рисунки отображаются в ней с низким качеством.
При копировании же одного рисункая из Word 2010 в HelpAndManual качество рисунков отображается лучше, но рисунок все равно искажается.
В Word 2007 этой проблемы не наблюдалось.
Как это можно исправить?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

2

Re: Word 2010: Копирование текста с рисунками в другую программу

Скорее всего дело в рисунке исходнике, его реальном размере, формы сжатия, я у меня рисунки из ворда в HelpAndManual вставились без проблем

3

Re: Word 2010: Копирование текста с рисунками в другую программу

aap77 пишет:

Скорее всего дело в рисунке исходнике, его реальном размере, формы сжатия, я у меня рисунки из ворда в HelpAndManual вставились без проблем

Уважаемый aap77, высылаю образец рисунка и результаты копирования в HelpAndManual.

Копирую я обычным образом: выделяю часть текста с рисунками в Word 2010 (Ctrl+C), перехожу в HelpAndManual и вставляю (Ctrl+V).

Post's attachments

Рисунок для копирования в HAndM.docx 179.82 Кб, 2 скачиваний с 2012-02-21 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4

Re: Word 2010: Копирование текста с рисунками в другую программу

А вот этот текст с рисунком копируется хорошо. Значит, проблема действительно в рисунках. Чем отличаются рисунки из данного и из предыдущего вложений?

Post's attachments

Рисунок для копирования в HAndM_01.docx 181.36 Кб, 1 скачиваний с 2012-02-21 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5

Re: Word 2010: Копирование текста с рисунками в другую программу

Вот ответ на ваш вопрос

Post's attachments

Решение проблемы.doc 130.5 Кб, 2 скачиваний с 2012-02-21 

You don't have the permssions to download the attachments of this post.

6

Re: Word 2010: Копирование текста с рисунками в другую программу

Спасибо за интересное решение.
А иначе никак нельзя? У нас обычно используются изображения, внедренные в файл.
Интересно было бы узнать, все же, в чем причина на стороне Word 2010?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7

Re: Word 2010: Копирование текста с рисунками в другую программу

Скорее всего 1-й рисунок внедрен в ворд с какой-то ошибкой, а не проблема самого 2010 ворда, я объединил в один документ абзацы 1 и 2 рисунков, запейстил их в НМ и получил тот же результат, 1-й рисунок слетел.... Я проверил через VBA их как объекты, там все вроде одинаково, значит ошибка во внедрении 1-го рисунка.......

8

Re: Word 2010: Копирование текста с рисунками в другую программу

aap77 пишет:

Скорее всего 1-й рисунок внедрен в ворд с какой-то ошибкой, а не проблема самого 2010 ворда, я объединил в один документ абзацы 1 и 2 рисунков, запейстил их в НМ и получил тот же результат, 1-й рисунок слетел.... Я проверил через VBA их как объекты, там все вроде одинаково, значит ошибка во внедрении 1-го рисунка.......

Оказалось, что первый рисунок внедрен в масштабе 0,92 (правая кнопка мыши на рисунке - Размер и положение).
Если изменить масштаб до 100%, то копия получается гораздо лучше.
Теперь возникает другой вопрос: как (с помощью макроса?) преобразовать все рисунки текста к масштабу 100% ?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9

Re: Word 2010: Копирование текста с рисунками в другую программу

Вот макрос


Sub ScalePic()
Dim inshp As InlineShape
    For Each inshp In ActiveDocument.InlineShapes
        Select Case inshp.Type
            Case 3, 4, 12, 13
            If inshp.ScaleWidth <> 100 Then
                inshp.ScaleWidth = 100
            End If
            If inshp.ScaleHeight <> 100 Then
                inshp.ScaleHeight = 100
            End If
        End Select
    Next inshp
End Sub

10

Re: Word 2010: Копирование текста с рисунками в другую программу

Большое спасибо.
А еще можно сделать так, чтобы в случае, если 100% меньше ширины страницы, макрос выбирал бы 100%, а если 100% больше ширины страницы - то ширину страницы?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

11

Re: Word 2010: Копирование текста с рисунками в другую программу

Вот, как просили, только большие картинки выравниваются не по ширине страницы, а по ширине поля

Sub ScalePic()
Dim inshp As InlineShape
    For Each inshp In ActiveDocument.InlineShapes
        Select Case inshp.Type
            Case 3, 4, 12, 13
            If inshp.ScaleWidth <> 100 Then
                inshp.Select
                    inshp.ScaleWidth = 100
                    inshp.ScaleHeight = 100
                    If inshp.Width > ColumnWidth(inshp) Then
                        inshp.Width = ColumnWidth(inshp)
                        inshp.ScaleHeight = inshp.ScaleWidth
                    End If
            End If
        End Select
    Next inshp
End Sub

Public Function ColumnWidth(inshp As InlineShape) As Single
Dim l As Single, r As Single, p As Single
    p = inshp.Range.PageSetup.PageWidth
    l = inshp.Range.PageSetup.LeftMargin
    r = inshp.Range.PageSetup.RightMargin
        ColumnWidth = p - (l + r)
End Function

12

Re: Word 2010: Копирование текста с рисунками в другую программу

Огромное спасибо, aap77!
Макрос работает отлично, но, к сожалению, проблему таким образом решить не удалось. Вероятно, дело не только в масштабе рисунка.
Пока придется копировать каждый рисунок отдельно.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

13

Re: Word 2010: Копирование текста с рисунками в другую программу

Я думаю все-таки что лучше вставлять как вставляли, а потом те рисунки, которые слетели преобразовать в HM удобнее. А после преобразования макросом у меня 1 слетевший рисунок встал как надо.....

14

Re: Word 2010: Копирование текста с рисунками в другую программу

C описанной мною проблемой неплохо справляется просмотрщик Word 2007, который можно бесплатно установить с сайта Microsoft:
внешняя ссылка

Проблема решена!

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.