CentrumXP Forum Tematyka portalu CentrumXP.pl Microsoft Office Jak usunąć kilka zdjęć z dokumentu worda na raz?

Jak usunąć kilka zdjęć z dokumentu worda na raz?

Mam dokument na 190stron przeplatany tekstem i zdjęciami, znajdują się również w nim linki.

Chcę usunąć wszystkie zdjęcia bo nie są mi potrzebne ale niechce utacić aktywności linków, więc przeklejenie do notatnika i powrót do worda nie wchodzi tu w grę, da się to jakoś szybko i łatwo zrobić ?

Odpowiedzi: 1

no to jak zaznaczasz zdjęcia to wciśnij jeszcze Ctrl (przy zaznaczaniu i trzymaj) i pozaznaczaj wszystkie zdjęcia. Jak zaznaczysz to delete i zrobione
rafales
Dodano
06.05.2006 15:10:19
  • BPR 06.05.2006 18:32:30

    nie o taką banalną pomoc mi chodzi, tych zdjęć jest około 566 więc niemam zamiaru ręcznie klikać, pytam czy jest jakaś opcja - "zaznacz wszystkie zdjęcia w dokumencie" albo "usuń wsyzstlkie zdjęcia z dokumentu" albo "zaznacz tylko cały text" żeby nie zaznaczał zdjęć, ale dzięki za chęci.

  • Bobi 06.05.2006 19:19:17

    Spróbuj czegoś takiego jako makro w VBS:<br>&nbsp;<br><blockquote>&nbsp;Dim rngStory As Range <br>&nbsp;Dim shpShape As Shape <br>&nbsp;Dim shpInline As InlineShape <br>&nbsp;Dim hdrHeader As HeaderFooter <br>&nbsp;Dim ftrFooter As HeaderFooter <br>&nbsp;Dim x As Long <br>&nbsp;<br>&nbsp;<br>&nbsp;With ActiveDocument <br>&nbsp;&nbsp;&nbsp;&nbsp; 'Delete InlineShapes from all Stories <br>&nbsp;&nbsp;&nbsp;&nbsp; For Each rngStory In .StoryRanges <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each shpInline In rngStory.InlineShapes <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shpInline.Delete <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next shpInline <br>&nbsp;&nbsp;&nbsp;&nbsp; Next rngStory <br>&nbsp;&nbsp;&nbsp;&nbsp; 'Shapes only supported in headers/footers/body <br>&nbsp;&nbsp;&nbsp;&nbsp; For Each shpShape In .Shapes <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shpShape.Delete <br>&nbsp;&nbsp;&nbsp;&nbsp; Next shpShape <br>&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To .Sections.Count <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each hdrHeader In .Sections(i).Headers <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each shpShape In hdrHeader.Shapes <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shpShape.Delete <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next shpShape <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next hdrHeader <br>&nbsp;&nbsp;&nbsp;&nbsp; Next i <br>&nbsp;&nbsp;&nbsp;&nbsp; For i = 1 To .Sections.Count <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each ftrFooter In .Sections(i).Headers <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each shpShape In ftrFooter.Shapes <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shpShape.Delete <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next shpShape <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next ftrFooter <br>&nbsp;&nbsp;&nbsp;&nbsp; Next i <br>&nbsp;End With</blockquote>

  • w84u 06.05.2006 19:31:39

    Edycja=>Zamień=>zakładka zamien=>botton Specjalny:Grafika (lub wpisz ^g) , okno 'Zamień na' zostaw puste . Wyszukaj zaznacz 'wszędzie'. Zatwierdź 'Zamień wszystko'

BPR
Dodano:
06.05.2006 15:05:16
Komentarzy:
1
Strona 1 / 1