看起来你这个问题大概率出在分批粘贴的代码逻辑或者字段内容里的隐藏格式字符上，毕竟模板的段落设置你已经排查过了，咱们一步步来捋：

1. 先查分批粘贴的代码逻辑 #

你提到是按240字符为批次粘贴，会不会是拆分字符串的时候，不小心在每批次的开头/结尾多带了一个空格？比如：

• 要是用Mid()这类函数拆分文本，有没有可能拆分后的子串里包含了原段落中的换行符+空格？
• 或者在拼接每批次内容到Word时，代码里顺手加了空格？比如写了& " "这种拼接逻辑？

建议你在Access里加个调试步骤，用Debug.Print把要粘贴的每批次内容输出到即时窗口，看看是不是除首段外的每一段开头本来就带了空格。如果是，那就是拆分逻辑的问题，调整一下字符截取的位置就行。

2. 排查Access字段里的隐藏字符 #

有时候录入段落时，可能不小心在换行后加了空格，或者段落里藏着看不见的非打印字符（比如不间断空格Chr(160)，肉眼和普通空格一样，但Word处理起来不一样）。你可以：

• 在Access查询里用Replace([你的段落字段名], Chr(32), "")先去掉所有空格，再测试粘贴，看缩进会不会消失。如果没了，说明字段本身就有多余空格，要么清理数据，要么粘贴前先做字符串处理。
• 也可以用Asc()函数检查段落开头的字符，确认是不是空格或者其他空白字符。

3. 再核对Word的自动格式设置 #

虽然你说检查过段落设置，但Word的自动更正/自动格式可能在偷偷搞事：

• 打开Word模板，点「文件」→「选项」→「校对」→「自动更正选项」，切到「自动格式」标签，看看有没有勾选「将段落开头的空格转换为缩进」这类选项，有的话取消试试。
• 另外，粘贴时可以强制用纯文本格式，比如代码里改成Selection.PasteSpecial DataType:=wdPasteText，避免带进来不必要的格式。

4. 调整代码的文本处理逻辑 #

如果分批粘贴是逐段追加，不如先把所有段落内容在Access里处理成干净的纯文本，再拆分粘贴。比如用VBA做个简单清理：

Dim fullText As String
Dim cleanText As String
' 从Access获取目标段落内容
fullText = DLookup("你的段落字段", "你的表格", "客户ID=目标ID")
' 清理换行后的多余空格
cleanText = Replace(fullText, vbCrLf & " ", vbCrLf)
cleanText = Replace(cleanText, vbLf & " ", vbLf)
' 再按240字符拆分cleanText进行粘贴

先把原始文本里的换行后空格去掉，再分批粘贴，应该能解决非首行缩进的问题。

内容的提问来源于stack exchange，提问作者MickO