» »

[VBA] Prenos rtf kodiranja iz Excela v Word in nazaj

[VBA] Prenos rtf kodiranja iz Excela v Word in nazaj

imagodei ::

Imam za popravit kakih 12.000 vrstic v Excelu, kjer je v polju zapisan tekst z rft formatingom. Npr:
{\rtf1\ansi\deflang1060\ftnbj\uc1
{\fonttbl{\f0 \froman \fcharset0 Times New Roman;}{\f1 \fswiss \fcharset238
Arial;}}
{\colortbl ;\red255\green255\blue255 ;\red0\green0\blue0 ;}
{\stylesheet{\fs24\cf2\cb1 Normal;}{\cs1\cf2\cb1 Default Paragraph Font;}}
\paperw11908\paperh16833\margl1800\margr1800\margt1440\margb1440\headery720\footery720\deftab720\formshade\aendnotes\aftnnrlc\pgbrdrhead\pgbrdrfoot
\sectd\pgwsxn11908\pghsxn16833\marglsxn1800\margrsxn1800\margtsxn1440\margbsxn1440\headery720\footery720\sbkpage\pgncont\pgndec
\plain\plain\f1\fs24\pard TPR 0160 000\par IPR 0160 000\par OB-R-02-28\par}



Od česar je potem dejansko uporabno le
TPR 0160 000
IPR 0160 000
OB-R-02-28


Če tisto klobaso od rtf-ja shranim z notepadom v prazen dokument in ga poimenujem Nekaj.rtf ter odprem z Wordom, mi zadevo pokaže čisto lepo. Zanima me, če je varianta, da bi prenesel tekst v Word z VBA in potem nazaj v Excel vrnil zgolj tekst brez formatinga?

Vse skupaj se da tudi parsat, ampak zgoraj prikazan format ni edini in je težko zaobjet vse primere. Na koncu pa vseeno ostane še par cvetk, ki jih je treba tako ali drugače na roke popravit.

Any idea?
- Hoc est qui sumus -

imagodei ::

:(

Ni nobenega rešitelja?
- Hoc est qui sumus -

Tutankhamun ::

zakaj pa lih v excellu?
AMD Phenom QUAD 9950 Black Edition, 8GB

Mavrik ::

RTF je hudo preprost format in odstranit ven kontrolne znake je precej preprosto. Ne vem zakaj bi kompliciral z Wordom.
The truth is rarely pure and never simple.

imagodei ::

@Tut,

Tam so se pač znašli podatki po izvozu iz SQL tabele. :)

@Mavrik,

OK, so how do I do it?
- Hoc est qui sumus -

Mavrik ::

1.) Pogledaš si sestavo RTF formata. V bistvu je to glorificirani markup jezik, ki uporablja kontrolne kode z \ na začetku in določene segmente teksta ovite v {} oklepaje. To postrippaš in imaš tekst.
The truth is rarely pure and never simple.


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Excell pomik v celici

Oddelek: Šola
16956 (770) klemenSLO
»

Izšel Open Office Org 3.0 (strani: 1 2 3 4 )

Oddelek: Novice / Pisarniški paketi
17524528 (16066) BlueRunner
»

Microsoft objavil vrsto specifikacij - Word, Excel, Powerpoint, Exchange (strani: 1 2 3 4 )

Oddelek: Novice / Ostala programska oprema
15318877 (13369) gzibret
»

Belgijska vlada sprejela OpenDocument Format za edini način komuniciranja (strani: 1 2 )

Oddelek: Novice / Ostale najave
589152 (7618) Pithlit
»

jebe*** šumniki

Oddelek: Izdelava spletišč
404102 (3508) Tr0n

Več podobnih tem