Formatting text in Word programmatically

Question

1.00/5 (1 vote)

See more:

I am facing problem while applying formatting(bold,italics,underline) to the paragraph written in word document. when i am reading para with range class of word object and appling font-style to the text and in that text there are brakets also like [ some text (12.5)]. so for opening square bracket and round braket loop traverse for two times each opening bracket so i want know the reason and solution

e.g.

VB

For iNum = 1 To myRange.Words.Count
     temp = aWord.Text   'aWord is a word object
Next

for openting bracket i am getting "[" text as aWord.Text for two times so pls help

Thanks

[edit]Tags only - that is VB code, not C# - OriginalGriff[/edit]
[edit]Code block included in pre tags - losmac[/edit]

Posted 1-Aug-11 23:21pm

smart_Indian developer

Updated 9-Aug-11 8:14am

Maciej Los

v4

Add a Solution

Comments

Slacker007 2-Aug-11 7:30am

Would you be able to edit this question and provide a code sample? I would love to help you on this but I need to see the code. Thanks. :)

thatraja 3-Aug-11 1:15am

Show your code

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2011-08-09T08:28:00

Simple way to achieve this is:

VB

Option Explicit

Sub GetSomeBrackets()
Dim doc As Document, par As Paragraph, rng As Range
Dim bPos As Long, ePos As Long, sText As String

Set doc = ThisDocument
For Each par In doc.Paragraphs
    sText = par.Range.Text
    bPos = InStr(1, sText, "[")
    ePos = InStr(bPos + 1, sText, "]")
    If bPos > 0 And ePos > 0 Then
        Set rng = par.Range
        rng.MoveStart Unit:=wdCharacter, Count:=bPos - 1
        rng.End = rng.Characters(Int(ePos - bPos) + 1).End
        rng.Select
        rng.Bold = True
        MsgBox rng.Text, vbInformation, Len(rng.Text)
        'MsgBox Mid(sText, bPos, ePos - bPos)
        Set rng = Nothing
    End If
Next
Set doc = Nothing
Set par = Nothing


End Sub