Export excel cells to Word with and defining heading1,2, fontbolt and normal

Hi there,

My excel VBA experience is not good however I want to try something but can't work it out on my own.

I have a product list that will be different every time.

The list will take with it different cells to fill in different columns as well.

So this is the thing, I want a macro that opens Word and does the following;

Column A; check if the text is font bold or Normal.

Excel file;Font bold cell will be paste as Wordfile; Heading 1

Wordfile; Newline

Excel file;Normal cell - will be paste as Wordfile; Heading 2

etc. etc. till the end of the list in column A

Excel

Word

Then there is subject in x columns (subject from normal text to bold in the word file)

And then there is text in the cell crossing Name and Subject. (Cell text normal to normal in the Word file.

If the specific cell is empty then the Subject should not be transferred to Word.

See the pictures in this post for more information.

Excel Word

Second is actually when there is this >[cell] = ([1,1]) = ([r,c]) in a text cell.

Then print this in the Word document as the actual referredtext.
Example

Excelfile; text text text [1,1] text text
Wordfile; text text text example text text

Helping me with this will be appreciated. Thank you

Thank you for your respons.

Your '' new user rules'' are quite clear to me now, Sorry for the mistake.

We need this in Word. I know how it works in Excel however this is not working for us.

This is what I have now

Sub Macro1()
Dim wdApp As Object
Dim oDoc As Object
Dim oRng As Object
Dim xlSheet As Worksheet
Dim LastRow As Long, i As Long
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err Then
        Set wdApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    wdApp.Visible = True
    Set oDoc = wdApp.Documents.Add
    Set oRng = oDoc.Range
    oRng.collapse 0

    Set xlSheet = ActiveSheet
    With xlSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 2 To LastRow    'If there's no header row start from 1
            oRng.Text = .Cells(i, 1)
            If .Cells(i, 1).Font.Bold = True Then
                oRng.Style = "Heading 1"
            Else
                oRng.Style = "Heading 2"
            End If
            If i < LastRow Then oRng.InsertAfter vbCr
            Set oRng = oDoc.Range
            oRng.collapse 0
        Next i
    End With
    Set oRng = Nothing
    Set oDoc = Nothing
    Set wdApp = Nothing
    Set xlSheet = Nothing
End Sub