MSWORD, Normal and Bold on the same line

How do normal and bold text on the same line?

>>> NORMAL, NEGRITO, NORMAL.

(vl-load-com) 
(IF (NOT TBLWORD)
   (PROGN
   (SETQ TBLWORD (STRCAT #DRV "MSWORD.OLB"))
   (vlax-import-type-library 
        :tlb-filename TBLWORD 
        :methods-prefix "VBWORDm-" 
        :properties-prefix "VBWORDp-" 
        :constants-prefix "VBWORDc-" 
   )
   )
)
(SETQ VBWORD (vlax-get-or-create-object "Word.Application")) 
(vla-put-visible VBWORD :vlax-true)
(SETQ DOCS (vla-get-documents VBWORD)) 
(setq DOC  (VBWORDm-add DOCS))
(setq range (VBWORDp-get-range (VBWORDp-get-last (VBWORDp-get-paragraphs DOC)))) 

(VBWORDp-put-name (VBWORDp-get-font range ) "COURIER NEW") 
(VBWORDp-put-size (VBWORDp-get-font range ) 18)
;
(VBWORDp-put-bold range 1)
(VBWORDp-put-underline range VBWORDc-wdUnderlineNone) 
(VBWORDm-InsertAfter range "MEMORIAL DESCRITIVO\n")
(VBWORDm-InsertAfter range "\n")
(setq range (VBWORDp-get-range (VBWORDp-get-last (VBWORDp-get-paragraphs DOC)))) ;?????????????
(VBWORDp-put-bold range 0)
(VBWORDm-InsertAfter range "NORMAL, ")
(setq range (VBWORDp-get-range (VBWORDp-get-last (VBWORDp-get-paragraphs DOC)))) ;?????????????
(VBWORDp-put-bold range 1)
(VBWORDm-InsertAfter range "NEGRITO, ")
(setq range (VBWORDp-get-range (VBWORDp-get-last (VBWORDp-get-paragraphs DOC)))) ;?????????????
(VBWORDp-put-bold range 0)
(VBWORDm-InsertAfter range "NORMAL.")

Thank you.

As I had no response to my request I have tried to solve this problem myself I was very necessary and after many many attempts I got the solution and I'm also interested in showing to whom.

;;;
(vl-load-com) 
(setq MSWORDAPP (vlax-get-or-create-object "Word.Application")) 
(vla-put-visible MSWORDAPP :vlax-true) 
(setq docs (vla-get-documents MSWORDAPP)) 
(SETQ doc  (vlax-invoke-method docs 'Add))
(setq paragraphs (vlax-get-property doc 'Paragraphs)) 
(setq pg (vlax-get-property paragraphs 'last)) 
(setq range (vlax-get-property pg 'range)) 
(vlax-put-property (vlax-get-property range 'font) 'name  "COURIER NEW") 
(vlax-put-property (vlax-get-property range 'font) 'size  15)
;
(setq WDRANGE (vlax-get-property (vlax-get-property (vlax-get-property MSWORDAPP 'ActiveDocument) 'WORDS) 'last)) 
(vlax-invoke-method range 'InsertAfter "TEXTO NEGRITO, ")
(vlax-put-property range 'bold 1)
;
(setq WDRANGE (vlax-get-property (vlax-get-property (vlax-get-property MSWORDAPP 'ActiveDocument) 'WORDS) 'last)) 
(vlax-invoke-method range 'InsertAfter "TEXTO NORMAL, ") 
(vlax-put-property WDrange 'bold 0)
;
(setq WDRANGE (vlax-get-property (vlax-get-property (vlax-get-property MSWORDAPP 'ActiveDocument) 'WORDS) 'last)) 
(vlax-invoke-method range 'InsertAfter "TEXTO NEGRITO.\n")
(vlax-put-property WDrange 'bold 1)
;;;

Thank you.

OK.