Передача из форм программы в word 07

[pixel_]

Здраствуйте. Возникла проблема, plain текст со вставками передается в виде изображения в word. При передаче в word 2003 все нормально передается. В word 2007 передаваемые изображения оказываются залитые черным цветом. Если поставить в св-вах изображения "нет заливки", то все нормально. Может это по умолчанию черным цветом заливаются? Подскажите пожалуйста? И как можно решить данную проблему?

[Sasha_Smirnov]

Попробуйте приложенный документ: вставив туда свой текст, жмите альт-Q.
И тогда, если защита от макросов у вас снята, выполнится следующий

Sub For2007etc()

If ActiveDocument.Shapes.Count > 0 Then
    ActiveDocument.Shapes.SelectAll                 'выделяем все рисунки'
    Selection.ShapeRange.Fill.Visible = False       'убираем их заливку'
Else
    MsgBox "В документе """ & ActiveDocument & """нет рисунков типа Shape."
End If

End Sub

[pixel_]

Изображения импортируются из форм программы написанной на Delphi.
Автоматически сохраняются в новом документе ворда. Однако на компьютере где стоит только ворд 07, эти изображения оказываются залитыми черным.

[Sasha_Smirnov]

Поэтому я и предлагаю эту заливку отключать.

Следующий код делает это автоматически — при открытии файла. (Чтобы увидеть, каким был приложенный файл до его открытия, нажмите несколько раз — по числу рисунков в нём — Ctrl-Z.)

Sub AutoOpen() 'программа с таким именем выполняется при открытии файла Word'
With ActiveDocument.Shapes

    For i = 1 To .Count
    .Range(i).Fill.Visible = False  'заливка i-го рисунка убирается'
    Next

End With
End Sub

Но всё равно же в доке, сохранённом Delphi, этой программы нет, так что заливку (как вы говорите, по умолчанию — чёрную) придётся убирать руками.

Как из Delphi сохранить Word-документ с уже встроенной программой AutoOpen, я не знаю. Вы хотите изменить свойства самого Word 2007?

А можно из Delphi, например, сохранять файлы как документы Word ранних версий — где, как вы обнаружили, не происходит заливки рисунков?

[pixel_]

Сообщение от Sasha_Smirnov

Как из Delphi сохранить Word-документ с уже встроенной программой AutoOpen, я не знаю. Вы хотите изменить свойства самого Word 2007?

Да, я думал может это из-за каких-нибудь стандартных настроек ворда 07 и хотел изменить.

А можно из Delphi, например, сохранять файлы как документы Word ранних версий — где, как вы обнаружили, не происходит заливки рисунков?

Он сохраняет просто как документа ворда, импортируя туда. Он создает его просто как файл в формате .doc

В ворде 2003 все отлично без заливки, в ворде 2007 с заливкой. Для ворда 2003 есть патч, который делает нормальный просмотр документов ворда 2007. Может быть и для ворда 2007 есть что-нибудь такое, чтобы нормально было все без заливки, как в ворде 2003. Ну или каким-нибудь способом найти выход .. как еще можно.

[pixel_]

Сообщение от Sasha_Smirnov

Поэтому я и предлагаю эту заливку отключать.

Следующий код делает это автоматически — при открытии файла.

А можно сделать так, чтобы этот макрос выполнялся для многих выделенных элементов сразу? Или так сказать для указанной папки с файлами, где заливка?

[Sasha_Smirnov]

Ну есть вариант перетащить папку в окно того документа, что я приложил*, нажать альт-F8 — и выполнить макрос. Будете пробовать?

В конце-то концов и по правой кнопке можно «раздеть» все фигуры!
_____________________________
* только отобразить не в виде значков — а как текст (не помню как!)

[pixel_]

Открыл ваш файл AutoUnfill.doc, макрос запустился.
Если саму папку в открытое окно документа перетаскиваешь, то вылазиет вот это.

Если документы, то содержимое документов.
Но после выполнения макроса, заливка не убралась.
Вот документ для примера http://up-do.ru/?f=d3989fd6bcf000eeba6633fa4c003b6b

[Sasha_Smirnov]

Ну я же сам не испытал это! — у меня 2003-й Word.

Макрос не меняет настроек Ворда, он выполняет действия, доступные и без него.

Если всё же вам надо «раздеть» все рисунки в составном документе (из файлов вашей папки), то макрос не 2-й, а 1-й (For2007etc()), и то я не уверен.

И потом, когда это один раз в день — лучше выделить всё и снять заливку вручную, а усложнять программу стоит лишь при реально большом трафике (ну несколько раз в час или типа того).

[pixel_]

не получается ..

может сделать макрос, который сбрасывает параметры рисунков?
просто нажимаю пкм, рисунок, сброс параметров рисунка, то заливка убирается

странно, что не получается выделить эти залитые .. а только по одной убирается.

а такого ничего нету?
Для ворда 2003 есть патч, который делает нормальный просмотр документов ворда 2007. Может быть и для ворда 2007 есть что-нибудь такое, чтобы нормально было все без заливки, как в ворде 2003.