Vb.net Word Interop文本替换在标题中添加额外空格

大家早上好

使用interop.word在标头中执行查找/替换。它是有效的，但是word在它的伟大智慧中增加了空格：在第一行之后的每行开头加1个空格，在每行末尾加2-3个空格。 看起来像这样，但应该完全保留：

Sept 2, 2015
 first name   
 last name  
 address   

我正在使用headerfooter.range.text查看替换后的标题文本，并且没有多余的空格，因此它必须是word所关注的自动格式化问题

谢谢你的帮助

---

我尝试过但没有运气的东西：

paragraphformat.duplicate before和reset after
range.paragraphformat.spacebefore=0
range.paragraphformat.spaceafter=0

Dim info As String = Now.ToLongDateString & vbCrLf & Trim(PersonInformation.FullName) & vbCrLf & Trim(PersonInformation.Address)
info &= vbCrLf & Trim(PersonInformation.City & ", " & PersonInformation.State & " " & PersonInformation.Zip)
hf.Range.Find.Execute(TagToReplace, , , , , , , , , info)

---

已更新

---

找到了答案。这是word/interop在生成文档时解释vbcrlf的方式。仅使用vbcr就可以达到目的。vblf也导致了插入的空格。顺便说一句，vbNewLine也导致了额外的空间出现。

找到了答案。这是word/interop在生成文档时解释vbcrlf的方式。仅使用vbcr就可以达到目的。vblf也导致了插入的空格。顺便说一句，vbNewLine也导致了额外的空间出现