VBA code HTML text transformation

[Sia]

Hello Everyone.
I will truly appreciate your help.
My aim is HTLM text from column A to be copied in column B as normal text, after each word "см" i would like a new line(enter) to be created. That operation should be done via VBA code.

Many thanks in advance for your cooperation.

Book1.xlsm
	A	B
1	Copy (HTML)	To be pasted
2	<div class="prod_data">Чантата е идеална за носене на рамо или в ръка. Тя е висока 26 см, широка 32 см и дълбока 10 см, а каишката може да се регулира с максимална дължина 130 см. Тя има 1 отделение и 4 джоба и е достатъчно голяма, за да побере формат А4. Допълва се от златен обков и закопчаване с цип. Теглото на чантата е 850 г. Позволява Ви да съхранявате важни документи, аксесоари и дрехи в стилна и издръжлива опаковка.</div>
3
4
5	<div class="prod_data">Чантата е ушита от изкуствена кожа. Обемна чанта с едно отделение. Побира формат А4, с 2 джоба. Вътрешна част с подплата. Закача се на две дръжки за ръка. Предлага се и с дълга, регулируема каишка. Вътрешността на чантата е с подплата, която предпазва от триене. Чантата ще бъде идеална за тези, които ценят естествеността и комфорта. Надяваме се, че ще оцените качеството на нашите продукти и ще се присъедините към редиците на нашите доволни клиенти. Организирайте ежедневната си работа с помощта на стилна дамска чанта, ушита от изкуствена кожа. Тя улеснява пренасянето на документи, подплатен център, включена дълга регулируема каишка и две дръжки за ръце. Изисканото покритие и сребърният обков гарантират приятно впечатление.</div>
6
7	<div class="prod_data">Представяме ви елегантна дамска чанта за пазаруване, изработена от висококачествена екологична кожа. Текстурата ѝ е гладка, с фин блясък, и допълнително завършва с практична подплата. Удобна и функционална, чантата има едно отделение за формат А4 и 2 джоба за дребни предмети. Можете да я носите с високата дръжка или с помощта на дългата, регулируема каишка (максимална дължина 130 см). Този практичен аксесоар за всеки случай ще се превърне в неразделен спътник в ежедневието ви!</div>
8
9
10	<div class="prod_data">Тази малка и елегантна чанта е идеалният подарък за всяка жена. Изработена от екологична кожа с внимание към най-малките детайли, тя е проектирана за ежедневието. Елегантният сребърен обков завършва неповторимия дизайн. Основното отделение, джобът с цип в средата и на гърба на чантата, ви позволяват удобно да съхранявате ежедневните си принадлежности. Благодарение на размерите си тя може да се носи както като сак, така и на рамо. Универсален модел дамска чанта, тя ще украси всеки стайлинг.</div>
11
12	<div class="prod_data">Тази малка и елегантна чанта е идеалният подарък за всяка жена.</div>
13
14
15	<div class="prod_data">Тази елегантна чанта е идеалният подарък за всяка жена.</div>
16
17
18	<p>Стилна дамска чанта а. Има дълга, несменяема, регулируема каишка. Затваря се отвътре с цип и магнитна закопчалка. Отвътре има едно отделение с джоб с цип. Външен материал - екологична кожа. Размери: Широчина: 24 см Височина: 17 см </p> <p><br><strong>Ширина:</strong> 24 см<br><strong>Височина:</strong> 17 см</p> <div class="prod_data"> <span style="font-size: 0.875rem;"><strong>Дълбочина:</strong> 8 см</span><br> </div>
19
20
21	<p>Стилна дамска чанта . Има дълга, несменяема, регулируема каишка. Затваря се отвътре с цип и магнитна закопчалка. Отвътре има едно отделение с джоб с цип. Външен материал - екологична кожа. Размери: Широчина: 24 см Височина: 17 см<br><br></p> <div class="prod_data"> <strong>Ширина:</strong> 24 см <br><strong>Височина:</strong> 17 см</div> <div class="prod_data"> <span style="font-size: 0.875rem;"><strong>Дълбочина:</strong> 8 см</span><br> </div>
22
23
24	<p>Класическа дамска чанта . Тя има закопчалка, която подчертава уникалния ѝ стил. Чантата е с дълга, несменяема каишка (нерегулируема) с елементи от верижка. Отвътре има отделение с цип и джоб с цип. Затваря се с магнитно закопчаване. Външен материал -екологична кожа. Размери: Широчина: 22,5 см Височина: 17,5 см <br><br></p> <div class="prod_data"> <strong>Ширина:</strong> 22,5 cm <br><strong>Височина:</strong> 17,5 cm</div> <div class="prod_data"> <span style="font-size: 0.875rem;"><strong>Дълбочина:</strong> 6,0 см</span><br> </div>
25
26
27	<p>Класическа дамска чанта. Тя има закопчалка, която подчертава уникалния ѝ стил. Чантата е с дълга, несменяема каишка (нерегулируема) с елементи от верижка. Отвътре има отделение с цип и джоб с цип. Затваря се с магнитно закопчаване. Външен материал - екологична кожа. <br></p> <div class="prod_data"> <strong>Ширина:</strong> 22,5 см <br><strong>Височина:</strong> 17,5 см</div> <div class="prod_data"> <span style="font-size: 0.875rem;"><strong>Дълбочина:</strong> 6 ,0 см</span><br> </div>
products_export

 

[PeteWright]

Hello @Sia

Here's some VBA code that may work. Try it on a copy of your workbook.

Public Function parseHTML(txt As String) As String
   Dim a As Integer, b As Integer
   
   Do While txt Like "*<*>*"
      a = InStr(1, txt, "<", vbTextCompare)
      b = InStr(a + 1, txt, ">", vbTextCompare)
      txt = Left(txt, a - 1) & Mid(txt, b + 1, Len(txt) - b)
   Loop
   txt = Replace(txt, ChrW(&H441) & ChrW(&H43C), Chr(10))
   parseHTML = txt
End Function

Open the VBA Editor by pressing [ALT]+[F11] and paste the following VBA code into a new VBA module:

Then use the function wherever you need it:

Does this solve the problem?

 

[Sia]

Hi Pete,

Many thanks for your your help.
It seems that it is working. In my case the volume is huge and i was thinking is it possible ( and if so how ) to use it as a Sub rather than Public funtcion, in order to automate the process?

Thanks in advance!

 

[PeteWright]

Hi @Sia

You can also use a sub. Nearly everything is possible. It all depends on how you would like it to be.
Do you have something in mind? A simple macro that can be run from the menu? A button somewhere on the workbook? A custom button in the MS Excel Ribbon?
Just let me know.

 

[Sia]

Hi Pete,

Thanks a lot for your support. Now i managed to create a workable macro for me.

I wish you all the best!