microsoft Word цветные картинки в черно-белые - Microsoft Office Word

duhamuk · 27.04.2011, 19:56

Здравствуйте, у меня файл в формате .docx он содержит помимо текста цветные рисунки, мне нужно сделать рисунки черно-белыми, но редактировать каждый по отдельности очень долго, есть ли какой ни будь способ побыстрее.
Спасибо.

Aent · 28.04.2011, 02:32

Код:

Sub IStoBW()
   Dim sp As InlineShape
   On Error Resume Next
   For Each sp In ActiveDocument.InlineShapes
      sp.PictureFormat.ColorType = msoPictureBlackAndWhite
   Next sp
End Sub

duhamuk · 29.04.2011, 10:13

Макрос работает как нужно, спасибо Тебе большое.

Ципихович Эндрю · 29.04.2011, 15:47

а какая ошибка может быть? вижу строку - On Error Resume Next
Макрос работает как нужно пока не появились кнопки, флажки, всего 11 видов:

Код:

'1
X.Type = wdInlineShapeEmbeddedOLEObject 
'2
X.Type = wdInlineShapeHorizontalLine 
'3
X.Type = wdInlineShapeLinkedOLEObject 
'4
X.Type = wdInlineShapeLinkedPicture 
'5
X.Type = wdInlineShapeLinkedPictureHorizontalLine 
'6, тип № 5 - кнопка
X.Type = wdInlineShapeOLEControlObject 
'7
X.Type = wdInlineShapeOWSAnchor
'8, тип № 3 - рисунок
X.Type = wdInlineShapePicture
'9
X.Type = wdInlineShapePictureBullet
'10
X.Type = wdInlineShapePictureHorizontalLine
'11
X.Type = wdInlineShapeScriptAnchor

знаю описание лишь для 2, для остальных не подскажите, что за звери

Ципихович Эндрю · 29.04.2011, 17:57

есть примеры этого всего, в файле что-ли??
1 InlineShapeEmbeddedOLEObject - Embedded OLE object. Встроенные OLE объекты
2 InlineShapeHorizontalLine - Horizontal line. Горизонтальная линия
3 InlineShapeLinkedOLEObject - Linked OLE object. Связанный OLE объект
4 InlineShapeLinkedPicture - Linked picture. Связанный рисунок
5 InlineShapeLinkedPictureHorizontalL ine - Linked picture with horizontal line. Связанный рисунок с горизонтальной линией
6 InlineShapeOLEControlObject - OLE control object. OLE объект управления
7 InlineShapeOWSAnchor - OWS anchor. OWS якорь
8 InlineShapePicture - Picture. Фото
9 InlineShapePictureBullet - Picture used as a bullet. Изображение, используемое в качестве маркера
10 InlineShapePictureHorizontalLine - Picture with horizontal line. Фото с горизонтальной линией
11 InlineShapeScriptAnchor - Script anchor. Refers to anchor location for block of script stored with a document. Сценарий якорь. Относится к якорь место для блока сценария хранится документ.

27.04.2011, 19:56	#1
duhamuk Регистрация: 27.04.2011 Сообщений: 5	microsoft Word цветные картинки в черно-белые Здравствуйте, у меня файл в формате .docx он содержит помимо текста цветные рисунки, мне нужно сделать рисунки черно-белыми, но редактировать каждый по отдельности очень долго, есть ли какой ни будь способ побыстрее. Спасибо.

28.04.2011, 02:32	#2
Aent Форумчанин Регистрация: 17.07.2009 Сообщений: 519	Код: `Sub IStoBW() Dim sp As InlineShape On Error Resume Next For Each sp In ActiveDocument.InlineShapes sp.PictureFormat.ColorType = msoPictureBlackAndWhite Next sp End Sub` Andrey Entelis. http://aentelis.livejournal.com http://aentelis.dreamwidth.org/

29.04.2011, 15:47	#4
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,154	а какая ошибка может быть? вижу строку - On Error Resume Next Макрос работает как нужно пока не появились кнопки, флажки, всего 11 видов: Код: '1 X.Type = wdInlineShapeEmbeddedOLEObject '2 X.Type = wdInlineShapeHorizontalLine '3 X.Type = wdInlineShapeLinkedOLEObject '4 X.Type = wdInlineShapeLinkedPicture '5 X.Type = wdInlineShapeLinkedPictureHorizontalLine '6, тип № 5 - кнопка X.Type = wdInlineShapeOLEControlObject '7 X.Type = wdInlineShapeOWSAnchor '8, тип № 3 - рисунок X.Type = wdInlineShapePicture '9 X.Type = wdInlineShapePictureBullet '10 X.Type = wdInlineShapePictureHorizontalLine '11 X.Type = wdInlineShapeScriptAnchor знаю описание лишь для 2, для остальных не подскажите, что за звери Последний раз редактировалось Ципихович Эндрю; 29.04.2011 в 15:53.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
проблемы с Microsoft Word.	baryshnya	Microsoft Office Word	4	30.08.2010 10:47
TMemoryStream vs Microsoft Word	095	Общие вопросы Delphi	0	26.04.2010 11:07
Синонимайзер в microsoft word ?	Lavr	Microsoft Office Word	2	24.04.2010 18:13

29.04.2011, 10:13	#3
duhamuk Регистрация: 27.04.2011 Сообщений: 5	Макрос работает как нужно, спасибо Тебе большое.

29.04.2011, 17:57	#5
Ципихович Эндрю Старожил Регистрация: 24.01.2011 Сообщений: 3,154	есть примеры этого всего, в файле что-ли?? 1 InlineShapeEmbeddedOLEObject - Embedded OLE object. Встроенные OLE объекты 2 InlineShapeHorizontalLine - Horizontal line. Горизонтальная линия 3 InlineShapeLinkedOLEObject - Linked OLE object. Связанный OLE объект 4 InlineShapeLinkedPicture - Linked picture. Связанный рисунок 5 InlineShapeLinkedPictureHorizontalL ine - Linked picture with horizontal line. Связанный рисунок с горизонтальной линией 6 InlineShapeOLEControlObject - OLE control object. OLE объект управления 7 InlineShapeOWSAnchor - OWS anchor. OWS якорь 8 InlineShapePicture - Picture. Фото 9 InlineShapePictureBullet - Picture used as a bullet. Изображение, используемое в качестве маркера 10 InlineShapePictureHorizontalLine - Picture with horizontal line. Фото с горизонтальной линией 11 InlineShapeScriptAnchor - Script anchor. Refers to anchor location for block of script stored with a document. Сценарий якорь. Относится к якорь место для блока сценария хранится документ.