I don't think that is possible, but I gave you a macro a few days ago that would insert a barcode. If you don't want a QR code then change the line
Code:
oRng.Fields.Add oPara, 99, Chr(34) & sNum & Chr(34) & Chr(32) & "QR" & " \t", False
to
Code:
oRng.Fields.Add oPara, 99, Chr(34) & sNum & Chr(34) & Chr(32) & "CODE39" & " \t", False