Re: Jak w *.xls usunąć autora komentarza?

Article View: pl.comp.lang.vbasic

Article #92271

Back to pl.comp.lang.vbasic Previous Next

#92271

From: Stanislaw
Date: Fri, 21 Oct 2005 07:56

21 lines
1831 bytes

Poprzednie makro usuwało autora z komentarzy znajdujących się w
zaznaczonym obszarze komórek.

Natomiast poniższe usuwa autora ze wsystkich komentarzy znajdujących
się w aktywnym arkuszu.

Sub Usun_autora_z_komentarza_2()

Dim komentarz   As Comment
Dim pusty       As String

For Each komentarz In ActiveSheet.Comments
    pusty = Replace(komentarz.Text, _
            Application.UserName & ":", "", , , vbTextCompare)
            komentarz.Text pusty
Next komentarz

End Sub

--
Stanislaw

Technical Details

Message-ID: <1129881417.961033.82360@g47g2000cwa.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx01.iad01.newshosting.com!newshosting.com!news.glorb.com!postnews.google.com!g47g2000cwa.googlegroups.com!not-for-mail

References:

<d7b21$435806bd$3eb35d81$963@news.chello.pl> <1129844818.216627.167640@g49g2000cwa.googlegroups.com> <708c5$43589af9$3eb35d81$26394@news.chello.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx01.iad01.newshosting.com!newshosting.com!news.glorb.com!postnews.google.com!g47g2000cwa.googlegroups.com!not-for-mail
From: "Stanislaw" <stanislaw_@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Jak w *.xls usunąć autora komentarza?
Date: 21 Oct 2005 00:56:58 -0700
Organization: http://groups.google.com
Lines: 22
Message-ID: <1129881417.961033.82360@g47g2000cwa.googlegroups.com>
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl> <1129844818.216627.167640@g49g2000cwa.googlegroups.com> <708c5$43589af9$3eb35d81$26394@news.chello.pl>
NNTP-Posting-Host: 80.50.68.122
Mime-Version: 1.0
X-Trace: posting.google.com 1129881423 8241 127.0.0.1 (21 Oct 2005 07:57:03 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 21 Oct 2005 07:57:03 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MyIE2; exNetPanel:292739; SV1; npUID:292739; .NET CLR 1.1.4322),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: g47g2000cwa.googlegroups.com; posting-host=80.50.68.122; posting-account=q9SwWg0AAACsZGpqQVbocTuYdhIZQRhD
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message