Настройки дизайна
  • Общие
  • Шапка
  • Главная
Базовый цвет
Свой цвет
Сайдбар
Тень на внутренних страницах
Фон логотипа в цвет сайта
Шапка сайта всегда видна
Шапка по ширине экрана
Кнопка "Оставить заявку" вместо слогана
Главное меню
Пункты меню 3-го уровня
Скрыть слайдер
"Услуги" на главной
"Тизеры" на главной
"Форма обратной связи" на главной
"Выполненные работы" на главной
"Новости" на главной
"Блог" на главной
"Партнеры" на главной

как скрыть все изображения в word

Внимание! Если не пришло письмо о регистрации напишите нам на почту! 
@twriters
 obmen_soobsheniyami.pngчат для технических писателей в Telegram

 Зарегистрируйтесь
Страницы: 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
Читают тему

Рейтинг@Mail.ru