VBA - Using Excel Variable in Word

Call your code with the following:

PickLabel(DJ)

Public Sub PickLabel(vRandom as long)

Dim WordApp, WordDoc As Object
    Set WordApp = CreateObject("Word.Application") 'Opens up the Pick Stickers Generator in Word
    Set WordDoc = WordApp.Documents.Add
        WordApp.Visible = True
Dim WordSel
    Set WordSel = WordApp.Selection
    
With WordSel
    .Font.Size = 60
    .Font.Name = "Arial"
    .TypeText ("DJ: " & vRandom)
    .ParagraphFormat.Alignment = wdAlignCenter
End With

VBA - Using Excel Variable in Word

Related

Recent Posts