Article View: pl.comp.lang.vbasic
Article #104664Re: Jak wykasować z pliku word wyłącznie zdjęcia (image) (rozna ilość) ? VBA
From: Krzysztof
Date: Sat, 12 Jun 2010 14:57
Date: Sat, 12 Jun 2010 14:57
24 lines
2258 bytes
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.
Technical Details
Message-ID:
<be549fcd-ad1e-4d2c-b0ef-0362ee0536e3@t10g2000yqg.googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!newsgate.cistron.nl!newsgate.news.xs4all.nl!194.109.133.84.MISMATCH!newsfeed.xs4all.nl!newsfeed5.news.xs4all.nl!xs4all!feeder.news-service.com!feeder.news-service.com!postnews.google.com!t10g2000yqg.googlegroups.com!not-for-mailReferences:
<675f36b1-ef11-4c77-b5c0-d7a9084520dc@d8g2000yqf.googlegroups.com> <hv04v0$4du$1@inews.gazeta.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!newsgate.cistron.nl!newsgate.news.xs4all.nl!194.109.133.84.MISMATCH!newsfeed.xs4all.nl!newsfeed5.news.xs4all.nl!xs4all!feeder.news-service.com!feeder.news-service.com!postnews.google.com!t10g2000yqg.googlegroups.com!not-for-mail From: Krzysztof <znajomy1@o2.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: Jak wykasować z pliku word wyłącznie zdjęcia (image) (rozna ilość) ? VBA Date: Sat, 12 Jun 2010 07:57:02 -0700 (PDT) Organization: http://groups.google.com Lines: 26 Message-ID: <be549fcd-ad1e-4d2c-b0ef-0362ee0536e3@t10g2000yqg.googlegroups.com> References: <675f36b1-ef11-4c77-b5c0-d7a9084520dc@d8g2000yqf.googlegroups.com> <hv04v0$4du$1@inews.gazeta.pl> NNTP-Posting-Host: 89.72.137.115 Mime-Version: 1.0 X-Trace: posting.google.com 1276354622 23093 127.0.0.1 (12 Jun 2010 14:57:02 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Sat, 12 Jun 2010 14:57:02 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: t10g2000yqg.googlegroups.com; posting-host=89.72.137.115; posting-account=KD41WgoAAAAPi3b-3XoCaM5n23-NPKba User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152),gzip(gfe) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit