Results 1 to 1 of 1
  1. #1
    Join Date
    Nov 2011
    Posts
    1

    Unanswered: Help required on Powerpoint VBA !!!!

    Hi,
    I am new to Powerpoint VBA.
    What i am trying
    I have 2 different files in which i would like to check if the text frame consists of similar text or not.

    Brief
    i want to browse 2 files from a userform and would like to check if all the text frame in file 1 are same as file 2. Given below is my code for refernce. Not able to get the text of 2nd ppt file. Please help.

    Dim file_name1 As String
    Dim file_path1 As String
    Dim file_path2 As String
    Dim file_name2 As String
    Dim oSld As Slide
    Dim oShp As Shape
    Dim x As Long
    Dim oSld2 As Slide
    Dim oShp2 As Shape
    Dim x2 As Long
    Dim File1_text As String
    Dim File2_text As String
    Dim slide_num As Double
    Private Sub CommandButton1_Click()
    Dim dlgOpen As FileDialog
    Dim PPT As PowerPoint.Application
    Set PPT = New PowerPoint.Application
    PPT.Visible = True

    TextBox1.Text = ""

    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)

    With dlgOpen
    If .Show = -1 Then 'user did not press cancel so display selected file
    TextBox1.Text = .SelectedItems(1)
    file_name1 = TextBox1.Text
    file_path1 = file_name1



    End If
    End With

    Set dlgOpen = Nothing
    End Sub

    Private Sub CommandButton2_Click()
    Dim dlgOpen As FileDialog
    Dim PPT As PowerPoint.Application
    Set PPT = New PowerPoint.Application
    PPT.Visible = True
    TextBox2.Text = ""
    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
    With dlgOpen
    If .Show = -1 Then 'user did not press cancel so display selected file
    TextBox2.Text = .SelectedItems(1)
    file_name2 = TextBox2.Text
    file_path2 = file_name2
    End If
    End With

    Set dlgOpen = Nothing
    End Sub

    Sub CommandButton3_Click()
    Dim dlgOpen As FileDialog
    Dim PPT As PowerPoint.Application
    Set PPT = New PowerPoint.Application

    slide_num = 1
    PPT.Presentations.Open FileName:=file_path1
    'PPT.Presentations.Open FileName:="F:\Reports\" & Business_Plan.Value & ".ppt"

    PPT.Presentations.Open FileName:=file_path2
    'PPT.Presentations.Open FileName:="F:\Reports\" & Business_Plan.Value & ".ppt"


    With Application.Presentations(file_path1).Windows(1)
    .Activate




    For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
    If oShp.HasTextFrame Then
    If oShp.TextFrame.HasText Then
    With oShp.TextFrame.TextRange
    For x = ****ns.Count To 1 Step -1
    File1_text = oShp.TextFrame.TextRange
    Call scnd_fle_fun
    Next x
    End With

    End If 'has text
    End If 'has textframe
    Next oShp
    slide_num = slide_num + 1
    Next oSld


    End With

    End Sub

    Sub scnd_fle_fun()
    UserForm2.Hide
    With Application.Presentations(file_path2).Windows(1)
    .Activate

    For Each oSld2 In ActivePresentation.Slides
    For Each oShp2 In oSld2.Shapes
    If oShp2.HasTextFrame Then
    If oShp2.TextFrame.HasText Then
    With oShp2.TextFrame.TextRange
    For x2 = ****ns.Count To 1 Step -1
    File2_text = oShp.TextFrame.TextRange
    If File1_text <> File2_text Then
    MsgBox "Slide number " & slide_num & "Not Matching refer text " & File1_text
    End If
    Next x2
    End With

    End If 'has text
    End If 'has textframe
    Next oShp2
    Next oSld2
    End With
    End Sub
    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •