title: Writing bullet list in Word, from Excel VBA
body: <p>I am adding words to a multi-line String <code>strEvap</code> in Excel. Some of the lines start with bullet points (the Bullet character •). Example string:</p>
  
  <pre><code>3 Evaporateurs
  Évaporateur de type mural, modèle --, à installer et raccorder au condenseur, complet avec :
  • Alimentation électrique par l’unité de condensation via un câble 14/3+Gnd
  • Moteurs ECM
  </code></pre>
  
  <p>Once my string is complete, I create a Word document and write the string to the Word document using the following code:</p>
  
  <pre><code>Function FnWriteToWordDoc(strEvap As String, strCond As String)
     Dim objWord
     Dim objDoc
     Dim objSelection
  
     Set objWord = CreateObject("Word.Application")
     Set objDoc = objWord.Documents.Add
     objWord.Visible = True
     Set objSelection = objWord.Selection
     objSelection.TypeText (strEvap)
  End Function
  </code></pre>
  
  <p>This works fine. At this point, I have a Word document with the string written in the same style as my example above.</p>
  
  <p>MY QUESTION:</p>
  
  <p>How do I format the lines that start with a bullet to be recognized as part of a bullet list in Word? Ideally it would be done as I write to the document but I don't mind if it goes over all lines and makes them a bullet list if applicable at the end.</p>
  
  <p>So far I have the following piece of code that turns a selected line into a bullet list. It works on its own, but has to be used from the Word document, not my Excel code.</p>
  
  <pre><code>Sub RendreBulletDansWord()
      Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
          ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
          False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
          wdWord10ListBehavior
  End Sub
  </code></pre>