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

Article View: pl.comp.lang.vbasic

Article #104663

Back to pl.comp.lang.vbasic Previous Next

#104663

From: 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

Technical Details

Message-ID: <hv04v0$4du$1@inews.gazeta.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail

References: <675f36b1-ef11-4c77-b5c0-d7a9084520dc@d8g2000yqf.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: InDesign Scripts <indesignscripts@gazeta.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 15:17:59 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 21
Message-ID: <hv04v0$4du$1@inews.gazeta.pl>
References: <675f36b1-ef11-4c77-b5c0-d7a9084520dc@d8g2000yqf.googlegroups.com>
NNTP-Posting-Host: host81-159-189-41.range81-159.btcentralplus.com
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1276352289 4542 81.159.189.41 (12 Jun 2010 14:18:09 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Sat, 12 Jun 2010 14:18:09 +0000 (UTC)
X-User: indesignscripts
X-Antivirus: avast! (VPS 100612-0, 2010-06-12), Outbound message
In-Reply-To: <675f36b1-ef11-4c77-b5c0-d7a9084520dc@d8g2000yqf.googlegroups.com>
X-Antivirus-Status: Clean
User-Agent: Thunderbird 2.0.0.24 (Windows/20100228)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message