function createXmlSlideTextObject(
    text_info,
    text_string,
    slide_obj,
    slide_num,
    out_styles
  ) {
    text_info = text_info || {}

    var area_opt_data = createXmlSlideTextData(text_info, slide_obj)
    var textStyles = [
      'font_size',
      'strike',
      'italic',
      'bold',
      'underline',
      'char_spacing',
      'baseline'
    ].reduce(function (acc, attr) {
      return acc + area_opt_data[attr]
    }, '')
    var parsedText
    var startInfo =
      '<a:rPr lang="en-US"' +
      textStyles +
      ' dirty="0" smtClean="0"' +
      (area_opt_data.rpr_info !== '' ? '>' + area_opt_data.rpr_info : '/>') +
      '<a:t>'
    var endTag = '</a:r>'
    var outData = '<a:r>' + startInfo

    if (text_string.field) {
      endTag = '</a:fld>'
      var outTextField = pptxFields[text_string.field]
      if (outTextField === null) {
        for (var fieldIntName in pptxFields) {
          if (pptxFields[fieldIntName] === text_string.field) {
            outTextField = text_string.field
            break
          } // Endif.
        } // End of for loop.

        if (outTextField === null) {
          outTextField = 'datetime'
        } // Endif.
      } // Endif.

      outData =
        '<a:fld id="{' +
        gen_private.plugs.type.msoffice.makeUniqueID('5C7A2A3D') +
        '}" type="' +
        outTextField +
        '">' +
        startInfo
      outData += createFieldText(outTextField, slide_num)
    } else {
      // Automatic support for newline - split it into multi-p:
      parsedText = text_string.split('\n')
      if (parsedText.length > 1) {
        var outTextData = ''
        for (
          var i = 0, total_size_i = parsedText.length;
          i < total_size_i;
          i++
        ) {
          outTextData +=
            outData + gen_private.plugs.type.msoffice.escapeText(parsedText[i])

          if (i + 1 < total_size_i) {
            outTextData += '</a:t></a:r></a:p><a:p>'
            if (out_styles) outTextData += out_styles
          } // Endif.
        } // End of for loop.

        outData = outTextData
      } else {
        outData += gen_private.plugs.type.msoffice.escapeText(text_string)
      } // Endif.
    } // Endif.

    var outBreakP = ''
    if (text_info.breakLine) {
      outBreakP += '</a:p><a:p>'
    } // Endif.

    return outData + '</a:t>' + endTag + outBreakP
  }
Create a text object for adding into a slide.

@param {object} text_info Information how to display the text.
@param {object} text_string The text string or requested field.
@param {object} slide_obj The object of this slider.
@param {object} slide_num Current slide number.
@param {string} out_styles Paragraph style used to style paragraphs generated by newlines
@return The PPTX code.