如何使用VBA從ppt中的某些形狀導出文本？

Question

我試圖從一個大的ppt文件中導出文本。我已經想出瞭如何導出，但是我得到了所有形狀的所有文本，而且我只對某些文本感興趣。

有沒有辦法讓IF函數檢查形狀的格式，只有當IF函數爲真時才抓取文本。我只想從具有虛線邊框的形狀中選擇文本。那可能嗎？

這是我的代碼有

Sub ExportText() 

    Dim oPres As Presentation 
    Dim oSlides As Slides 
    Dim oSld As Slide   'Slide Object 
    Dim oShp As Shape   'Shape Object 
    Dim iFile As Integer  'File handle for output 
    iFile = FreeFile   'Get a free file number 
    Dim PathSep As String 
    Dim FileNum As Integer 

    #If Mac Then 
    PathSep = ":" 
    #Else 
    PathSep = "\" 
    #End If 

    Set oPres = ActivePresentation 
    Set oSlides = oPres.Slides 

    FileNum = FreeFile 

    'Open output file 
    ' NOTE: errors here if file hasn't been saved 
    Open oPres.Path & PathSep & "AllText.TXT" For Output As FileNum 

    For Each oSld In oSlides 'Loop thru each slide 
    For Each oShp In oSld.Shapes    'Loop thru each shape on slide 

     'Check to see if shape has a text frame and text 
     If oShp.HasTextFrame And oShp.TextFrame.HasText Then 
     If oShp.Type = msoPlaceholder Then 
      Select Case oShp.PlaceholderFormat.Type 
       Case Is = ppPlaceholderTitle, ppPlaceholderCenterTitle 
        Print #iFile, "Title:" & vbTab & oShp.TextFrame.TextRange 
       Case Is = ppPlaceholderBody 
        Print #iFile, "Body:" & vbTab & oShp.TextFrame.TextRange 
       Case Is = ppPlaceholderSubtitle 
        Print #iFile, "SubTitle:" & vbTab & oShp.TextFrame.TextRange 
       Case Else 
        Print #iFile, "Other Placeholder:" & vbTab & oShp.TextFrame.TextRange 
      End Select 
     Else 
      Print #iFile, vbTab & oShp.TextFrame.TextRange 
     End If ' msoPlaceholder 
     End If ' Has text frame/Has text 

    Next oShp 
    Next oSld 

    'Close output file 
    Close #iFile 

End Sub 

Answer 1

這裏去爲你解決。請參閱代碼中的註釋以獲取更多信息。

Sub Partial_Solution() 
'... your code here 

'... your loops start here 

    'this way check which DashStyle is in your interest, 
    'there are lots of different Dash styles of line 
    'then you could remove it 
    Debug.Print oShp.Line.DashStyle 

    'and this way you can check the style before reading from shape 
    'put the result here, like 5 which is msoLineDashDot style 
    If oShp.Line.DashStyle = 5 Then 

     '... your code here 

    End If 

'... rest of your code here 
End Sub