How to give multiple styles while inserting string

PRA007 · #1 01-16-2016, 02:47 AM

While parsing I get three different string and I want to format them as below.

.Text = "Title" (style = heading 2) & vbcr
.text = strtxtT(style = heading 3) & vbcr

.text = StrtxtD(style = normal, bold = False)
.text = strtxtN(style = normal, bold = True)

macropod · #2 01-16-2016, 04:03 AM

I've already provided you with code to format parts of a string in this thread:
https://www.msofficeforums.com/word-...tion-bold.html
Applying Styles is no different.

PRA007 · #3 01-16-2016, 05:13 AM

Ok. I tried but I think The problem is with paragraphs.

Recorded macro and found that

Code:

.Style = ActiveDocument.Styles("Heading 2")

is the key to success.

macropod · #4 01-16-2016, 01:38 PM

Quote:

Originally Posted by PRA007

Ok. I tried but I think The problem is with paragraphs.

Recorded macro and found that

Code:

.Style = ActiveDocument.Styles("Heading 2")

is the key to success.

What is the problem with paragraphs?

Your code could be reduced to:

Code:

.Style = "Heading 2"

PRA007 · #5 01-18-2016, 12:00 AM

Quote:

Originally Posted by macropod

What is the problem with paragraphs?

I think because s my code was from the HTML it was having some paragraphs which was disturbing the overall pattern. I split the string with paragraphs and solved the problem.

Quote:

Originally Posted by macropod

Your code could be reduced to:

Code:

.Style = "Heading 2"

Thanks, for suggesting neat code.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to do multiple find and replace in string.	PRA007	Word VBA	2	01-06-2016 09:10 PM
Multiple Hyperlink to a single string	PRA007	Word VBA	7	11-09-2015 04:29 PM
Find Multiple Wildcard string and Highlight	PRA007	Word VBA	2	10-17-2015 01:07 AM
How do I string together multiple copies of the same template in Office 2011 for Mac?	terrymarks	Word	1	06-14-2015 10:21 PM
inserting a string of data into an MS Word table???	matto	Word VBA	0	07-16-2010 09:35 AM