MACROS

Sub Macro1()

'

' Macro1 Macro

' Macro grabada el 14/1/2011 por alumno

'

    Selection.Font.Name = "Goudy Old Style"

    Selection.Font.Size = 16

    Selection.Font.Color = wdColorLightBlue

    Selection.Font.Bold = wdToggle

End Sub

Sub Macro2()

'

' Macro2 Macro

' Macro grabada el 14/1/2011 por alumno

'

    Selection.TypeText Text:="kjk"

    ActiveWindow.ActivePane.VerticalPercentScrolled = 0

    Selection.WholeStory

    Selection.CreateTextbox

    Selection.ShapeRange.ScaleWidth 1.57, msoFalse, msoScaleFromTopLeft

End Sub

VOLVER