Article View: pl.comp.lang.vbasic
Article #104369Re: [VBA] Word - usuwanie fragmentów tekstu zgodnie z wyrażeniem regularnym
From: InDesign Scripts
Date: Mon, 02 Nov 2009 18:33
Date: Mon, 02 Nov 2009 18:33
13 lines
1736 bytes
1736 bytes
> Podpowiesz w jaki sposób mogę w pętli wczytywać sobie kolejno każdą
> linijkę? Googlam, googlam i nie mogę wygooglać.
For a = ActiveDocument.Paragraphs.Count To 1 Step -1
ActiveDocument.Paragraphs.Item(a).Range.InsertBefore _
(ActiveDocument.Paragraphs.Item(a).Style + "#$#")
Next a
to coś wstawia nazwę stylu akapitowego na początku każdego akapitu
no ale zeby sie dobrac do zawartosci akapitu - to juz musisz powalczyc z funkcją MID - czyli powycinać sobie substringi - ale to już bułka z masłem ;)
robin
Technical Details
Message-ID:
<hcn8l3$oku$1@inews.gazeta.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mailReferences:
<hc6et5$i0m$1@news.task.gda.pl> <hc6p0n$br4$1@news.task.gda.pl> <hc6uf8$c44$1@inews.gazeta.pl> <hc7dce$hc6$1@news.task.gda.pl> <hc7h9d$lst$1@inews.gazeta.pl> <hcn48v$g1b$1@news.task.gda.pl>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: [VBA] Word - usuwanie fragmentów tekstu zgodnie z wyrażeniem regularnym Date: Mon, 02 Nov 2009 18:33:05 +0000 Organization: "Portal Gazeta.pl -> http://www.gazeta.pl" Lines: 13 Message-ID: <hcn8l3$oku$1@inews.gazeta.pl> References: <hc6et5$i0m$1@news.task.gda.pl> <hc6p0n$br4$1@news.task.gda.pl> <hc6uf8$c44$1@inews.gazeta.pl> <hc7dce$hc6$1@news.task.gda.pl> <hc7h9d$lst$1@inews.gazeta.pl> <hcn48v$g1b$1@news.task.gda.pl> NNTP-Posting-Host: host86-152-227-243.range86-152.btcentralplus.com Mime-Version: 1.0 X-Trace: inews.gazeta.pl 1257186787 25246 86.152.227.243 (2 Nov 2009 18:33:07 GMT) X-Complaints-To: usenet@agora.pl NNTP-Posting-Date: Mon, 2 Nov 2009 18:33:07 +0000 (UTC) X-User: indesignscripts X-Antivirus: avast! (VPS 091101-1, 2009-11-01), Outbound message In-Reply-To: <hcn48v$g1b$1@news.task.gda.pl> X-Antivirus-Status: Clean User-Agent: Thunderbird 2.0.0.23 (Windows/20090812) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit