Buenas,
Estoy haciendo una presentación Power Point que genera con vba automáticamente unas diapositivas y les inserta unos TextBox con el texto de un fichero de texto.
El problema es que letras como ăîțâș aparecen como cuadros raros en el TextBox.
¿Podríais ayudarme para que se muestren correctamente estos caracteres en el TextBox?
Muchas gracias
El código que uso:
Código vb:
Ver originalDim sFileName As String
Dim iFileNum As Integer
Dim sBuf As String
sFileName = "C:\Users\pepe\Documents\Concurso\preguntas.txt"
' existe el fichero?
If Len(Dir$(sFileName)) = 0 Then
Exit Sub
End If
iFileNum = FreeFile()
Open sFileName For Input As iFileNum
Do While Not EOF(iFileNum)
Line Input #iFileNum, sBuf
' ahora tengo la linea en la variable sBuf
' aquí añado el texto al textbox
diapositivaActual.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = sBuf
Loop
' cerramos el fichero
Close iFileNum