Converting a string to a Style Name

[Roderick]

In a document I am using Word's built-in Heading styles. The code below "runs" up to the first Heading style it finds and determines whether it is a Heading 1 or 2, 3, etc, down to Heading 6.


With Selection
Set figRng = .Range
Set figRng = figRng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
figLvl = VBA.Right(figRng.Paragraphs.First.Style, 1)
End With
'figLvl is an integer
If figLvl = 1 Then
'myNewStyle is a string
myNewStyle = "Heading 1"
ElseIf figLvl = 2 Then
myNewStyle = "Heading 2"
End If

The next piece of code - which I recorded, inserts a STYLEREF field to number the sequence:

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"STYLEREF ""Heading 2"" \s ", PreserveFormatting:=True
As can be seen, figRng found that the style was a Heading 2 and therefore figLvl reads "2" and myNewStyle now reads as Heading 2.

The text in red above was entered as a style when I recorded the field structure but what I want to do is replace it with a style name based on myNewStyle as seen in the top piece of code.

I've taken the STYLEREF field apart in all sorts of ways to try and achieve this but it insists on giving me an error whatever I try and do.

Here is the code for the whole procedure including the STYLEREF field which I recorded:


Sub InsertNewStyleRef()
Dim myNewStyle
Dim figLvl As Integer

With Selection
Set figRng = .Range
Set figRng = figRng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
figLvl = VBA.Right(figRng.Paragraphs.First.Style, 1)
End With
If figLvl = 1 Then
myNewStyle = "Heading 1"
ElseIf figLvl = 2 Then
myNewStyle = "Heading 2"
End If
'and so on down the Heading styles

'now add the STYLEREF field
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"STYLEREF ""Heading 2"" \s ", PreserveFormatting:=True
End Sub


Is there a way to convert a string to a style name, please?

Roderick

[macropod]

Style names are strings...

Sub Demo()
Dim Rng As Range
With Selection
Set Rng = .Range
Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="STYLEREF """ & Rng.Paragraphs.First.Style & """ \s ", PreserveFormatting:=False
End With
End Sub

[Roderick]

Thanks, Paul, for the code example. I created a document, stuck some text in and made one paragraph a Heading 1 style and then further down a Heading 2 style.

I placed my cursor below the Heading 2 style.

Following that I walked through your code using ALT+F8. When it got to the following lines I saw that by hovering my mouse over the code I've highlighted, It showed as "Heading 2", surrounded in double quotes. Just what I expected.

.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="STYLEREF " & Rng.Paragraphs.First.Style & " \s ", PreserveFormatting:=False
On completing the procedure, I was hoping that it would place the correct STYLEREF field in the document and perhaps showing the number "0".
No such luck! It gave me an error as below:
Error! Use the Home tab to apply to the text that you want to appear here.

I then inspected the field it wrote and found the following


{STYLEREF Heading 2 \s}

I was expecting the Heading 2 to be surrounded by double quotes. Following this, I inspected the Field Options dialog box and found that it had selected "Default Paragraph Font" from the available list of items and had written in the textbox: STYLEREF 2 \s Heading. (It messed that one up!)

Following that, I then manually amended the field code to read STYLEREF "Heading 2" \s - adding my own quotes around Heading 2 - pressed the appropriate keys and saw the amended field in the document. Pressed ALT+F9 again to see the result and it displayed what it should have done: a number "0"

For some reason, from the code you wrote which appears to show the correct style format with double quotes, to getting it on the page, Word VBA seems to chew it up!

Cannot think why it's playing up.

Roderick

[macropod]

I omitted the double quotes required to enclose the Style name within them in the STYLEREF field. Corrected. Try the revised code.

[Roderick]

I omitted the double quotes required to enclose the Style name within them in the STYLEREF field. Corrected. Try the revised code.

Paul, that worked brilliantly. I learnt something there about these double quotes.

Thank you so much.

Roderick