使用texrange将文本添加到VBA导出的文本文件中.InsertAfter方法

Question

我正试图使用此VBA从PowerPoint导出笔记到文本文件。在每个导出的文本文件中，我想在导出的文件内的文本末尾添加额外的文本。这似乎可以用TextRange实现。InsertAfter方法，但我不知道怎么做。

假设我想在文件中每个文本范围的末尾添加的文本是"extra text"，我想这样做可能会有用

及

Print #intFileNum, oSh.TextFrame.TextRange.Text

修订

Print #intFileNum, oSh.TextFrame.TextRange.InsertAfter "extra text".Text

唉不. .

这是VBA

Sub TryThis()
Dim oSl As Slide
Dim oSh As Shape
Dim strFileName As String
Dim strNotesText As String
Dim intFileNum As Integer
' Get the notes text
For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.NotesPage.Shapes
If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then
If oSh.HasTextFrame Then
If oSh.TextFrame.HasText Then
' now write the text to file
strFileName = ActivePresentation.Path _
& "" & ActivePresentation.Name & "_Notes_" _
& "Slide_" & CStr(oSl.SlideIndex) _
& ".TXT"
intFileNum = FreeFile()
Open strFileName For Output As intFileNum
Print #intFileNum, oSh.TextFrame.TextRange.InsertAfter "extra text".Text
Close #intFileNum
End If
End If
End If
Next oSh
Next oSl
End Sub

Answer 1

好的，我算出来了。这将文本添加到每张幻灯片，导出为TXT，然后从幻灯片中删除文本

oSh.TextFrame.TextRange.InsertAfter "extra text"
Print #intFileNum, oSh.TextFrame.TextRange.Text
oSh.TextFrame.TextRange.Replace FindWhat:="extra text", ReplaceWhat:=""