My goal is to create a word doc where in each letter has different fonts. Fonts will be randomly selected. Code seems working but the only problem is that I can't get the letters append right after the previous string. It keeps making new paragraph for each letter.
wp = wd.Content.Paragraphs.Add
wp.selection.Font.Name = font
wp.selection.TypeText = letter
Here's the result
You probably want to use the selection
property over Range
.
Try replacing
wp.Range.Font.Name = font
wp.Range.Text = letter
with
wp.Selection.font.Name = font
wp.Selection.TypeText letter
Selection
will be the current location of the cursor.
I'm not exactly sure of your intent with wp.Range.InsertParagraphAfter()
, but I don't believe it's necessary to be in the For Each . . . Next
loop.