15 lines
461 B
PowerShell
15 lines
461 B
PowerShell
$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"
|