importar texto desde archivo txt a power point
Publicado por daxtrox (7 intervenciones) el 03/01/2022 03:04:42
Tengo un codigo que copia el texto desde un archivo txt a power point, pero lo pega en la hoja activa del power point, como puedo indicarle al codigo que lo pegue un una diapositiva "X" ejemplo en la diapositiva numero 2.
y que me guarde la diapositiva en pdf con el nombre "X"+fechaactual.pdf?
y que me guarde la diapositiva en pdf con el nombre "X"+fechaactual.pdf?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub copiar_txt()
'''Dim FileName As String
Dim FileNum As Integer
Dim InputBuffer As String
ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 93.5, 88.625, 544.375, 28.875).Select
ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
FileName = "C:\text1.txt"
FileNum = FreeFileIf Dir$(FileName) <> "" Then
Open FileName For Input As FileNum
While Not EOF(FileNum)
Input #FileNum, InputBuffer.Text = InputBuffer
Wend
Close FileNum
End If
With .Font.Name = "Arial"
.Size = 18
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
End Sub
Valora esta pregunta
0