Разработка технической документации и технические писатели Технические писатели и разработка технической документации технические писатели в Телеграм 

 obmen_soobsheniyami.png Чат для технических писателей 
 Зарегистрируйтесь
Страницы: 1
RSS
как скрыть все изображения в word
 
Скажите, есть возможность убрать все изображения из документа word?
 
В меню "найти - заменить" можно делать переходы от одного изображения к следующему и поочередно удалять их.
 
А как именно удалить? Скрыть или удалить совсем со сдвигом текста?
 
Если со сдвигом текста - то по одному или писать специализированные скрипты или напишите нам как, в случае появления новых способов...

Еще можно сохранить документ в HTML (только не одной страницей), Например, document_name.html, тогда должна появится папка document_name.files, в которой лежат все используемые картинки. Удалить картинки, предварительно отсортировав список файлов по типу, а потом открыть document_name.html в WORD и пересохранить в DOC. Рамки рисунков останутся, но самих изображений не будет. Описанным путем обычно вытаскивают все используемые изображения из документа.
 
Для полного удаления можно попробовать макрос:

Цитата
Sub Удаление_рисунков()
'
' Удаление_рисунков Макрос
'
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "^g"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Работать надо не 12 часов, а головой.
 
Цитата
А как именно удалить? Скрыть или удалить совсем со сдвигом текста?
нужно удалить на время, мне нужно узнать какое количество текста без изображений в документе (количество знаков не нужно)))

[b:1bfu718y]Nadufka [/b:1bfu718y]
Спасибо за макрос, попробую использовать.
 
Лучше всего сделать объекты с рисунками временно не видимыми.
Для этого надо в макросе объявить переменную ShapeRange и пройтись циклом по семействам Shapes и InlineShapes.
[code:11mvkcsw]Public Sub Visub()
Dim shprng as ShapeRange
Dim shp as Shape
Dim inshp as InlineShape
For each shp in ActiveDocument.Shapes
If shp.Type=msoPicture Then
Set shprng=shp
shprng.Visible=False
Next shp
End Sub[/code:11mvkcsw]
Страницы: 1
Читают тему