@@ -0,0 +1,14 @@
|
||||
$ErrorActionPreference = 'Stop'
|
||||
$out = 'C:\Users\24019\Desktop\RAG-cut\data\test_sample.pptx'
|
||||
$pp = New-Object -ComObject PowerPoint.Application
|
||||
try {
|
||||
$pres = $pp.Presentations.Add()
|
||||
$slide = $pres.Slides.Add(1, 1)
|
||||
$slide.Shapes.Title.TextFrame.TextRange.Text = 'RAG-cut Test Slide'
|
||||
$slide.Shapes.Item(2).TextFrame.TextRange.Text = 'Body text for chunking test.'
|
||||
$pres.SaveAs($out)
|
||||
$pres.Close()
|
||||
} finally {
|
||||
$pp.Quit()
|
||||
}
|
||||
Write-Output "Saved $out"
|
||||
Reference in New Issue
Block a user