LaTex it - A code to convert Word to LaTex

I use VBA to convert word to LaTex using find and replace function of word.

Code:

---

Sub Latex_it()
    Selection.Find.ClearFormatting
    Selection.Find.Font.Italic = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = "\textit{^&}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = "\textbf{^&}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

---

The above code adds LaTex tag to italic and bullets respectively.

Is there a more elegant way of doing it and How to select section heading using above code and apply LateX tag

corresponding LaTex tag for word section heading

\section{heading level1}
\subsection{heading level2}
\subsubsection{heading level3}

Quote:

---

The above code adds LaTex tag to italic and bullets respectively.

---

Bullets or bold?

I'd imagine that if you used styles (Heading1, Heading2, ...) a F&R for paragraphs in that style could be tagged.

Yes bold.

Any idea how to select Heading levels.