Caros Colegas

Gostaria de saber como faço para criar um documeto do word e escolher o tipo de fonte que ele vai ter, a fonte que eu quero e a "Courier New"

 

 

 

tente objword.FontNames = Courier New

Ama

na verdade preciso criar um arquivo do word, até aí tudo bem, porem preciso definir a fonte como "courier new"

até onde eu sei o código ficaria assim

 

File1.Open "my documentsexporta.doc", fsModeOutput, fsAccessWrite, fsLockShare

File1.LinePrint text1.text

file1.close

como faço para definir que o arquivo exporta.doc tenha a fonte "courier new"

Olá Djalma

 

este é um exemplo que desenvolvi no VB, que talvez te ajude.

 

Dim docApp As Word.Application
Dim docReg As Word.Document
Private Sub Command1_Click()
  docApp.Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend ' Seleção do texto que vou alterar
  docApp.Selection.Font.Name = Text1.Text ' Caixa texto onde informo qual a fonte que desejo
End Sub
Private Sub Form_Load()
Set docApp = CreateObject(