Jak wkleić do Worda Richtext?

Article View: pl.comp.lang.vbasic

Article #104487

Back to pl.comp.lang.vbasic Previous Next

#104487

From: Przemolo
Date: Tue, 23 Feb 2010 11:46

20 lines
1534 bytes

Mam sobię pewien skrypt VBS, którym chciałbym otworzyć dokument MS Word 
i wkleić do niego tekst w formacie RichText:

set word=createobject("Word.Application")
word.documents.add
Set selection=word.selection
rtf=... pobieram dane skądś tam - zapisane w formacie RichText (RTF)
selection.typetext rtf
word.Visible=true

Niestety Word otwiera się i ma wpisany tekst tak jak mu podaje zmienna 
rtf - np.:
{\rtf1\ansi\ansicpg1250\deff0{\fonttbl{\f0\fswiss\fprq2\fcharset238 
Calibri;}{\f1\fnil\fcharset238 Tahoma;}}
{\*\generator Riched20 12.0.6413.1000;}\viewkind4\uc1
\pard\b\f0\fs22\lang1045 tekst RTF\b0\f1\fs16
\par }

Czy Word ma możliwość sparsowania sobie tego na sam sformatowany tekst 
bez żadnych RTFowych znaczników?

Technical Details

Message-ID: <hm0f61$58m$1@inews.gazeta.pl>

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

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: Przemolo <przemolo@gazeta.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Jak wkleić do Worda Richtext?
Date: Tue, 23 Feb 2010 12:46:07 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 20
Message-ID: <hm0f61$58m$1@inews.gazeta.pl>
NNTP-Posting-Host: lzd217.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1266925569 5398 95.50.133.217 (23 Feb 2010 11:46:09 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Tue, 23 Feb 2010 11:46:09 +0000 (UTC)
X-User: przemolo
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.1.5) Gecko/20091204 Thunderbird/3.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit