TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ConvertComments()
' Converts new-style comments to old

    Dim oSl As Slide
    Dim oSlides As Slides
    Dim oCom As Comment

    Set oSlides = ActivePresentation.Slides
    For Each oSl In oSlides
        For Each oCom In oSl.Comments
            With oSl.Shapes.AddComment(oCom.Left, oCom.Top)
                .TextFrame.TextRange.Text = oCom.Author & " " & oCom.DateTime _
                    & vbCrLf _
                    & oCom.Text
            End With
        Next oCom
    Next oSl

End Sub

Sub DeleteNewComments()
' Optionally delete new-style comments

   Dim oSld as Slide
   Dim x as Long

   For each oSld in ActivePresentation.Slides
      For x = oSld.Comments.Count to 1 Step -1
         oSld.Comments(x).Delete
      Next x
   Next oSld

End Sub