How replace new font to file Indesign or Illustrator, If font not exists in PC?

Set font to a Characters:

oDocument.TextFrames(1).Characters(1).AppliedFont= oIndesign.Fonts("ABC")

But if Indesign not exist font "ABC", can't set Font.

How replace new font to file Indesign or Illustrator, If font not exists in Indesign ?