Office Interop - Styling Selections in an opened Word Document

[DepricatedZero]

So the reporting ability of Access is woefully limited, which means I'm going to need to write my reports to build out in Word. That's all well and good. I've been trying to apply Styles - because they have a role in Word's conversion to PDF. I can apply styles to an entire Paragraph, but not a Selection. It's weird, because the font changes apply but the selection itself is not set as being in that Style.



Here's the code I'm using. It creates the text and applies the style. Before this there's a function that defines the style, opens a new word document, and then this runs

    Dim varword As String
    Dim myRange As Word.range
    
    varword = "One New Customer"
    wordDoc.range.text = vbTab & "Customer:" & vbTab & varword & vbTab & "Incident Notifications:" & vbTab & "notifications@onenewcust.com" & vbNewLine _
        & vbTab & "Tier:" & vbTab & "Platinum" _
        & vbTab & "Customer Surveys:" & vbTab & "surveys@onenewcust.com" & vbNewLine _
        & vbTab & "Status:" & vbTab & "On-Boarding" _
        & vbTab & "Performance Summaries:" & vbTab & "perfsum@onenewcust.com" & vbNewLine
    wordDoc.Paragraphs(4).range.InlineShapes.AddHorizontalLineStandard
    
    Set myRange = wordDoc.range(11, 11 + Len(varword))
    myRange.Select

edit: I'm tired and losing my mind...

THIS works but applies the style to the entire row:
myRange.Style = wordDoc.Styles("Heading 1")

however this does not, but does apply the font changes to the selection
wordApp.Selection. = wordDoc.Styles("Heading 1")

basically, applying the style to Range sets the entire Paragraph to the style, but applying it to the Selection just does font changes without actually applying a style.

[Dal Jeanis]

In that code, I do see you select the part of wordDoc.range that should contain the text "One New Customer". I'm not seeing any attempt to apply a style to that selection. At the end of your code, I'd expect something like this -

MyRange.Style = ActiveDocument.Styles("MyStyle")


You might want to try over at the Word forums, since it's Word that's not acting as you expect it to work.

http://www.msofficeforums.com/word-vba/

[DepricatedZero]

sorry, the edit there is relevant, I realized I completely forgot to include that point.

Right now I'm tring setting it up as a table a la archaic HTML design

edit: I'm tired and losing my mind...

THIS works but applies the style to the entire row:
myRange.Style = wordDoc.Styles("Heading 1")

however this does not, but does apply the font changes to the selection
wordApp.Selection. = wordDoc.Styles("Heading 1")

basically, applying the style to Range sets the entire Paragraph to the style, but applying it to the Selection just does font changes without actually applying a style.

[Dal Jeanis]

Okay, in MS Word VBA this may be a newbie question, but is the Style that you are attempting to apply to this selection a "Paragraph" Style, or a "Font" Style? I'm betting you need to either define and use a Font style, or include a paragraph break in your text, to get what you are asking it to do...

[DepricatedZero]

I'm applying the style "Header 1" - which is a paragraph style I believe but includes font changes? I'm trying to do it without line breaking the Paragraph though. Not sure if that can be done. Either way, I do have it working by setting it up as a table, mostly.

[Dal Jeanis]

That's your issue. Styles come in types. Since Header 1 is a paragraph style, it only applies to a paragraph object - all or nothing. Word has attempted to comply with your two different requests in two different ways - applying the paragraph style and simulating the style with font changes.

I'm not sure if you can have a Font style that derives directly from a paragraph style or not, but you really need to take those questions over to the Word forum, and mark this thread solved.

Take care!