Word Interop文本替换标题添加额外的空格

Question

每个人早上，

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

Sept 2, 2015
 first name   
 last name  
 address   

我正在查看使用headerfooter.range.text替换后的标题文本，并且没有多余的空格，因此它必须是一个自动格式化的问题，这个词是痴迷的。

感谢您的帮助！

我试过没有运气：

paragraphformat.duplicate before and 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在生成doc时解释vbcrlf的方式。使用vbcr就可以了。 vblf也导致了插入的空间。顺便说一下，vbNewLine也会导致额外的空间出现。

Answer 1

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