TPE
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