Jak wykasować z pliku word wyłącznie zdjęcia (image) (rozna ilość) ? VBA

Thread View: pl.comp.lang.vbasic

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Krzysztof Sat, 12 Jun 2010 12:46

#104662

Author: Krzysztof
Date: Sat, 12 Jun 2010 12:46

14 lines
1826 bytes

potrafie wstawic zdjecia z katalogu opraz je zwymiarowac itd.

Ale mam inny problem.
Jak w wordzie wyszukac obiekty ktore sa zdjeciami? i je pozniej
przykladowo usunać? (zdjecia tez sa w tabeli jesli to ma znaczenie)

Probowalem zarejstrowac makro ale niestety nei moge zaznaczyc zdjecia
i sie nei rejestruje po wstrzymaniu i zanzaczniu zdjecia tez sie nie
rejestruje makro.

Z gory dziekuje za pomoc.
wiem ze trzeba wyszukac obiekt image tylko jak i jak go zaznaczyc aby
mozna bylo cos z nim zrobic pozniej skoczyc do kolejnego itd. Tylko
jak :)

Re: Jak wykasować z pliku word wyłącznie zdjęcia (image) (rozna ilość) ? VBA

#104663

Author: InDesign Scripts
Date: Sat, 12 Jun 2010 14:17

21 lines
1800 bytes

> Ale mam inny problem.
> Jak w wordzie wyszukac obiekty ktore sa zdjeciami? i je pozniej
> przykladowo usunać? (zdjecia tez sa w tabeli jesli to ma znaczenie)

a = 1
licznik = 1
Do While a <= ActiveDocument.InlineShapes.Count
   Set myShape = ActiveDocument.InlineShapes.Item(a)
   ActiveDocument.InlineShapes.Item(a).Select
...
   myShape.Range.InsertBefore ("<qqq" + Format(licznik, "0000") + ">")
   myShape.Range.InsertAfter ("</qqq>")
...
   licznik = licznik + 1
Loop

masz też przykład linijek do wstawiania tekstu przed i po.

nie wiem tylko czy obrazki w tabelkach łapią się do kolekcji głównej - nie mam jak tego teraz sprawdzić

robin

Re: Jak wykasować z pliku word wyłącznie zdjęcia (image) (rozna ilość) ? VBA

#104664

Author: Krzysztof
Date: Sat, 12 Jun 2010 14:57

24 lines
2258 bytes

On 12 Cze, 16:17, InDesign Scripts <indesignscri...@gazeta.pl> wrote:
> > Ale mam inny problem.
> > Jak w wordzie wyszukac obiekty ktore sa zdjeciami? i je pozniej
> > przykladowo usuna ? (zdjecia tez sa w tabeli jesli to ma znaczenie)
>
> a = 1
> licznik = 1
> Do While a <= ActiveDocument.InlineShapes.Count
>    Set myShape = ActiveDocument.InlineShapes.Item(a)
>    ActiveDocument.InlineShapes.Item(a).Select
> ...
>    myShape.Range.InsertBefore ("<qqq" + Format(licznik, "0000") + ">")
>    myShape.Range.InsertAfter ("</qqq>")
> ...
>    licznik = licznik + 1
> Loop
>
> masz te przyk ad linijek do wstawiania tekstu przed i po.
>
> nie wiem tylko czy obrazki w tabelkach api si do kolekcji g wnej - nie mam jak tego teraz sprawdzi
>
> robin

Dziękuję za szybką odpowiedz. naturalnie działa.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads