统一PPT文本框段落间距的方法有三：一、通过幻灯片母版设置默认段落格式，确保新建文本框自动统一；二、用选择窗格多选+格式刷批量更新现有文本框；三、运行VBA宏一键重置全部文本框段落属性。
如果您在制作PPT时发现各文本框段落间距不一致，导致页面排版松散或拥挤，则可能是由于手动调整过行距、段前段后值或使用了不同默认样式的文本框。以下是统一调整所有文本框段落间距与行距的具体操作方法：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
一、通过幻灯片母版批量设置默认段落格式
母版控制所有新建文本框的默认段落参数，修改母版可确保后续插入的文本框自动应用统一间距。此方法适用于从源头规范排版，且不影响已存在的非母版文本框。
1、点击顶部菜单栏【视图】选项卡。
2、选择【幻灯片母版】，进入母版编辑界面。
3、在左侧缩略图中选中最上方的“主母版”（编号为1的幻灯片）。
4、在空白区域单击一次以激活默认文本占位符，或插入一个新文本框并输入任意文字。
5、选中该文本框中的文字，在【开始】选项卡中点击【行和段落间距】按钮（图标为上下箭头加横线）。
6、在弹出菜单中选择【段落设置】，打开“段落”对话框。
7、在“缩进和间距”选项卡下，将【段前】设为0 磅，【段后】设为0 磅，【行距】设为固定值 24 磅（可根据字体大小调整，建议为字号的1.2–1.5倍）。
8、勾选【如果定义了文档网格，则对齐到网格】，避免因网格偏移造成视觉错位。
9、点击【设为默认值】按钮，再点击【关闭母版视图】。
二、使用选择窗格+格式刷批量更新现有文本框
当幻灯片中已存在大量文本框且需快速同步段落格式时，格式刷结合选择窗格可高效定位并复用格式，尤其适合非母版创建的独立文本框。
1、在【开始】选项卡中点击【选择】→【选择窗格】，右侧弹出对象列表。
2、按住Ctrl键，依次点击列表中所有含文字的文本框名称（或点击第一个后按Shift+最后一个实现连续多选）。
3、确认全部目标文本框处于选中状态（幻灯片内边框高亮显示）。
4、在任一被选中文本框内双击鼠标左键，进入编辑模式，全选其中文字（Ctrl+A）。
5、在【开始】选项卡中点击【行和段落间距】→【段落设置】。
6、在“段落”对话框中设定【段前】0 磅、【段后】0 磅、【行距】单倍行距或固定值 22 磅，点击【确定】。
7、保持文字仍处于选中状态，点击【格式刷】按钮（图标为刷子），再点击任意一个未格式化的文本框内部（无需全选其文字）。
8、重复步骤7，逐个刷过其余待调整文本框，或双击【格式刷】后连续点击多个文本框区域。
三、利用VBA宏一次性重置全部文本框段落属性
VBA脚本可绕过手动选择限制，直接遍历当前演示文稿中每张幻灯片的所有Shape对象，识别文本型Shape并强制写入指定段落参数，适用于数百页PPT或嵌套文本框场景。
1、按Alt+F11打开VBA编辑器，点击【插入】→【模块】。
2、在新模块窗口中粘贴以下代码：
Sub ResetAllTextParagraphs()
Dim sld As Slide, shp As Shape
Dim para As ParagraphFormat
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set para = shp.TextFrame.TextRange.ParagraphFormat
para.SpaceBefore = 0
para.SpaceAfter = 0
para.LineRuleWithin = msoTrue
para.LineSpacingRule = ppLineSpaceMultiple
para.LineSpacing = 1.2
End If
End If
Next shp
Next sld
MsgBox "所有文本框段落格式已重置完成！"
End Sub
3、将光标置于代码任意位置，按F5运行宏。
4、弹出提示框后，关闭VBA编辑器，返回PPT检查效果。
5、如需保存宏功能，将文件另存为【启用宏的PowerPoint演示文稿（*.pptm）】格式。
