B4X:
Dim doc As WordDocument = wd.CreateDocument
doc.AddParagraph($"[u]Using BBCode similar to BCTextEngine, to create MS Word documents ?[/u]
[u pattern=wavy_heavy color=0xFF00FF0E]qwd[/u]qwd
qw
[color=magenta]dqefwj [textsize=24]klwejf lkwje[/textsize] flkw jefklw ef[/color] wqedqwd
Nice logo: [img dir=assets filename=logo.png width=60 height=60/]
j dqklwdj [b]qlwdj [i]qklwklsjd[/i][/b] fls"$)
Dim f As String = doc.SaveAs("C:\Users\H\Downloads", "1.docx", True)
Wait For (wd.OpenWord(f)) Complete (Success As Boolean)