$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"