Tipo de letra
Publicado por Oscar (3 intervenciones) el 16/01/2007 18:24:41
Hola,
sabria alguien decirme como desde un programa de visual basic puedo hacer que un documento de Word cualquiera tenga siempre un tipo de letra en concreto.
Ej:
Yo abro un doc de word que tengo guardado en el pc pero quiero que aunque el usuario lo guarde con Times New Roman, yo quiero obligar a que cuando lo abre desde la aplicación me lo abra con Arial.
'--------------------CODIGO DE LA LLAMADA AL DOC DE WORD------------------------
Private Sub btn_1cara_Click()
Dim Fichero1 As String
Nomb_Fich = Mid(V_Fichero, 1, 4)
Nomb_Fich1 = Mid(V_Fichero, 6, 2)
Nomb_Fich2 = Nomb_Fich & "01" & Nomb_Fich1 & ".doc"
Fichero1 = "c:\" & Nomb_Fich2
Access Read Lock Read As #15
If Nomb_Fich2 <> "01.doc" Then
Dim ObjWord As Word.Application
Set ObjWord = New Word.Application
ObjWord.Documents.Add (Fichero1)
ObjWord.Visible = True
Else
MsgBox "Debe de seleccionar un Fichero", vbInformation, "Ficheros"
Exit Sub
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------
Gracias y un Saludo.
sabria alguien decirme como desde un programa de visual basic puedo hacer que un documento de Word cualquiera tenga siempre un tipo de letra en concreto.
Ej:
Yo abro un doc de word que tengo guardado en el pc pero quiero que aunque el usuario lo guarde con Times New Roman, yo quiero obligar a que cuando lo abre desde la aplicación me lo abra con Arial.
'--------------------CODIGO DE LA LLAMADA AL DOC DE WORD------------------------
Private Sub btn_1cara_Click()
Dim Fichero1 As String
Nomb_Fich = Mid(V_Fichero, 1, 4)
Nomb_Fich1 = Mid(V_Fichero, 6, 2)
Nomb_Fich2 = Nomb_Fich & "01" & Nomb_Fich1 & ".doc"
Fichero1 = "c:\" & Nomb_Fich2
Access Read Lock Read As #15
If Nomb_Fich2 <> "01.doc" Then
Dim ObjWord As Word.Application
Set ObjWord = New Word.Application
ObjWord.Documents.Add (Fichero1)
ObjWord.Visible = True
Else
MsgBox "Debe de seleccionar un Fichero", vbInformation, "Ficheros"
Exit Sub
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------
Gracias y un Saludo.
Valora esta pregunta


0