Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Thread Tools Display Modes
Old 09-04-2012, 10:36 AM
Sorcerer13 Sorcerer13 is offline Set paragraph text to bold. Windows Vista Set paragraph text to bold. Office 2010 32bit
Set paragraph text to bold.
Join Date: Sep 2012
Location: God's Own County
Posts: 16
Sorcerer13 is on a distinguished road
Default Set paragraph text to bold.

Sorry if this is an "amateur" question: i've used VBA in Excel fairly extensively, but not much in Word.
Im using MSOffice 2010.
I have a template document with (working) code in it, which asks the User for various details. These details are processed and stored in a dynamic array, until the User indicates that the "data gathering" has completed.
At this point I want to write the array to the end of the document, with each element of the array being a "sentence". This bit is working.
Extracts from the code are shown below

Dim intMax                  As Integer
Dim intPtr                  As Integer
Dim strDate                 As String
Dim strCategory             As String
Dim strHdr                  As String
Dim strOldCategory          As String
Dim strText                 As String
  strOldCategory = ""
  With ActiveDocument.Content
    .InsertAfter vbCrLf
    intMax = UBound(gvarTexts)
'** Add texts, with formatting if appropriate.
    For intPtr = 0 To intMax
      strCategory = Left(gvarTexts(intPtr), 20)
      strDate = Mid(gvarTexts(intPtr), 22, 10)
      strText = Mid(gvarTexts(intPtr), 33)
      If strCategory <> strOldCategory Then
        strOldCategory = strCategory
        strHdr = strCategory & ":" & strDate
        .InsertAfter vbCrLf & strHdr & vbCrLf
'** Here something magic needs to happen to change strHdr
'** which has just been written to be Bold and Underlined!
      End If
      .InsertAfter strText & vbCrLf
    Next intPtr
In essence, the first part of each array string is a "Category". When the Category changes I want to write the new Category in Bold and Underlined, then continue writing the texts which match that Category in the normal way (i.e. not bold or underlined).
I think it needs to happen around the area marked "Here something magic" etc.

Can any kind soul point me in the right direction?
Reply With Quote
Old 09-04-2012, 11:08 AM
gmaxey gmaxey is offline Set paragraph text to bold. Windows XP Set paragraph text to bold. Office 2010 (Version 14.0)
Word MVP 2003-2009
Join Date: May 2010
Location: Marble, NC
Posts: 1,103
gmaxey has a spectacular aura aboutgmaxey has a spectacular aura aboutgmaxey has a spectacular aura about

Something like this and I didn't see the underline bit until after I had composed the code. You should get the jist:

Sub ScratchMacro()
'A quick macro scratch pad created by Greg Maxey
Dim i As Long
Dim oRng As Word.Range
Dim arrDemo(2, 2) As String
arrDemo(0, 0) = "Category A"
arrDemo(0, 1) = "Item 1"
arrDemo(0, 2) = "Size A"
arrDemo(1, 0) = "Category B"
arrDemo(1, 1) = "Item 1"
arrDemo(1, 2) = "Size B"
arrDemo(2, 0) = "Category C"
arrDemo(2, 1) = "Item 1"
arrDemo(2, 2) = "Size C"
For i = 0 To UBound(arrDemo)
ActiveDocument.Range.InsertAfter vbCr
Set oRng = ActiveDocument.Paragraphs.Last.Range
oRng.MoveEnd wdCharacter, -1
oRng.Text = arrDemo(i, 0)
oRng.Font.Bold = True
oRng.Collapse wdCollapseEnd
oRng.Text = " " & arrDemo(i, 1)
oRng.Font.Bold = False
oRng.Collapse wdCollapseEnd
oRng.Text = " " & arrDemo(i, 2)
Next i
End Sub
Greg Maxey
Please visit my web site at
Reply With Quote

bold, font, underline

Thread Tools
Display Modes

Similar Threads
Thread Thread Starter Forum Replies Last Post
Set paragraph text to bold. How to I make text Bold in a User Form -Visual Basic gurp99 Word VBA 11 03-12-2012 04:05 PM
Set paragraph text to bold. Animate text to bold then animate text to regular? seanspotatobusiness PowerPoint 2 01-13-2011 12:08 PM
Set paragraph text to bold. exporting bold text from excel to word? Excel 3 12-05-2010 08:03 AM
Set paragraph text to bold. Can't print bold or italic text cornettd PowerPoint 1 05-10-2010 10:07 AM
Problem with Bold text in the headers gail Word 0 04-13-2010 02:15 AM

Other Forums: Access Forums - Senior Forums

All times are GMT -7. The time now is 01:25 AM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd. is not affiliated with Microsoft