VBA- Data from excel to word with heading style

[ehero]

Hi everyone,
I need help with VBA excel
I have a table below

I have a code to extract data from table to word and add hyperlink of the file, but I don't know how to add style heading level 1 to folder name and heading level 2 to file name so that they can be shown in Navigation pane.

Please help!

Thanks for reading

Oh, and here is my code:

Option Explicit
Sub InsertHyperLink()
Dim aWord As Object
Dim wDoc As Object
Dim i&, EndR&
Dim Rng As Range

Set aWord = CreateObject("Word.Application")
Set wDoc = aWord.Documents.Add
EndR = Range("A65536").End(xlUp).Row
For i = 9 To EndR

If Cells(i, 3) <> Cells(i - 1, 3) Then
wDoc.Range.InsertAfter Cells(i, 3) & vbCrLf
End If

wDoc.Range.InsertAfter vbCrLf
wDoc.Paragraphs(wDoc.Paragraphs.Count).Range.Hyperlinks.Add Anchor:=wDoc.Paragraphs(wDoc.Paragraphs.Count).Range, _
Address:=Cells(i, 5), TextToDisplay:=Left(Cells(i, 4), InStr(1, Cells(i, 4), ".") - 1)
wDoc.Range.InsertAfter vbCrLf
wDoc.Range.InsertAfter vbCrLf
Next
aWord.Visible = True

aWord.Activate 'Result
Set wDoc = Nothing
Set aWord = Nothing
End Sub

 

[Colo]

ehero,

Here is the information about WdBuiltinStyle enumeration (Word)

WdBuiltinStyle enumeration (Word)

Office VBA reference topic

docs.microsoft.com

Because Excel doesn't know about Word constants, those need to be declared at the top as follows.

Const wdStyleHeading1 As Long = -2
Const wdStyleHeading2 As Long = -3

Then you can use those in your code line, such as...

wDoc.Paragraphs(wDoc.Paragraphs.Count).Style = wdStyleHeading1

Hope this helps.

 

[ehero]

ehero,

Here is the information about WdBuiltinStyle enumeration (Word)

WdBuiltinStyle enumeration (Word)

Office VBA reference topic

docs.microsoft.com

Because Excel doesn't know about Word constants, those need to be declared at the top as follows.

Const wdStyleHeading1 As Long = -2
Const wdStyleHeading2 As Long = -3

Then you can use those in your code line, such as...

wDoc.Paragraphs(wDoc.Paragraphs.Count).Style = wdStyleHeading1

Hope this helps.

OMG, It's work properly. Thank you very much