如何用PowerShell将CSV变量插入Word/PPT页眉或PPT首页？

1. CSV变量写入PPT页眉实现 #

PowerPoint页眉无需强制填写日期，直接操作母版的页眉占位符即可完成自定义内容写入，核心代码如下：

# 启用页眉显示并写入自定义内容
$presentation.SlideMaster.HeadersFooters.Header.Visible = $true
$presentation.SlideMaster.HeadersFooters.Header.Text = "$FirstName $SecondName $ID Activity 1"
# 隐藏默认的日期占位符，避免自动插入日期
$presentation.SlideMaster.HeadersFooters.DateAndTime.Visible = $false

如果需要设置备注页、讲义的页眉，对应调整SlideMaster为对应母版对象即可。

2. 页眉方案不可用时，首页插入变量内容 #

可以直接在首张幻灯片插入自定义文本框实现信息展示，核心代码如下：

# 添加首张标题版式幻灯片
$slide = $presentation.Slides.Add(1, $slideType::ppLayoutTitle)
# 插入文本框，参数依次为：文本方向、左边界坐标、上边界坐标、宽度、高度
$userInfoBox = $slide.Shapes.AddTextbox(1, 50, 50, 600, 40)
# 写入用户变量内容
$userInfoBox.TextFrame.TextRange.Text = "$FirstName $SecondName $ID Activity 1"
# 可按需调整字体样式
$userInfoBox.TextFrame.TextRange.Font.Size = 16
$userInfoBox.TextFrame.TextRange.Font.Bold = $true

3. 现有脚本优化建议 #

• COM对象复用：将Word、PowerPoint应用实例的初始化和Interop程序集加载移到循环外，无需每次遍历用户都新建实例，执行效率可提升数倍
• 资源安全释放：删除Stop-Process强制杀进程的逻辑，改用COM对象自带的Quit()方法释放资源，避免误关其他正在运行的Office程序
• 路径预检查：提前判断用户目录是否存在，不存在则自动创建，避免保存文件时报路径不存在的错误
• 公共变量抽离：将重复使用的文件名前缀、根路径等抽为公共变量，降低后续维护成本

优化后完整脚本 #

# 提前加载依赖程序集
Add-Type -AssemblyName Microsoft.Office.Interop.PowerPoint
Add-Type -AssemblyName Microsoft.Office.Interop.Word

# 初始化全局配置
$Exams = Import-Csv "C:\techtest.csv"
$fileserver = "C:\ExamHomes\"
$Time = "am"
$Date = "1511"
$slideType = "Microsoft.Office.Interop.PowerPoint.PpSlideLayout" -as [type]

# 初始化Office应用实例，全局复用
$Word = New-Object -ComObject Word.Application
$Word.Visible = $false
$PptApp = New-Object -ComObject PowerPoint.Application
$PptApp.Visible = $false

foreach ($User in $Exams) {
    $FirstName = $User.First
    $SecondName = $User.Second
    $ID = $User.ID
    $FourID = $User.Four
    $userFolder = "$fileserver\${date}${time}-${FourID}\Desktop"
    $baseFileName = "activity 1_${ID}_${FirstName}_${SecondName}"
    
    # 自动创建用户目录
    if (-not (Test-Path $userFolder)) {
        New-Item -ItemType Directory -Path $userFolder -Force | Out-Null
    }

    # 生成Word文档
    $Doc = $Word.Documents.Add()
    $Section = $Doc.Sections.Item(1)
    $Header = $Section.Headers.Item(1)
    $Header.Range.Text = "$FirstName $SecondName $ID Activity 1"
    $Doc.SaveAs("$userFolder\$baseFileName.docx")
    $Doc.Close()
    Write-Host "Word文件 '$baseFileName.docx' 已生成，存储路径：$userFolder" -BackgroundColor Black -ForegroundColor Cyan

    # 生成PPT文档
    $presentation = $PptApp.Presentations.Add()
    # 写入页眉（不需要则替换为首页插入文本框的逻辑）
    $presentation.SlideMaster.HeadersFooters.Header.Visible = $true
    $presentation.SlideMaster.HeadersFooters.Header.Text = "$FirstName $SecondName $ID Activity 1"
    $presentation.SlideMaster.HeadersFooters.DateAndTime.Visible = $false
    # 按需添加空白幻灯片
    $presentation.Slides.Add(1, $slideType::ppLayoutBlank)
    $presentation.SaveAs("$userFolder\$baseFileName.pptx")
    $presentation.Close()
    Write-Host "PPT文件 '$baseFileName.pptx' 已生成，存储路径：$userFolder" -BackgroundColor Black -ForegroundColor Cyan
}

# 循环结束后统一释放Office资源
$Word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word) | Out-Null
$PptApp.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($PptApp) | Out-Null
Remove-Variable Word, PptApp

Write-Host "所有考生的考试文档已全部生成部署完成" -BackgroundColor Black -ForegroundColor Red

内容的提问来源于stack exchange，提问作者Daniel De La Warr