在 header 中添加额外空格的 Word Interop 文本替换
Word Interop Text replace in header adding extra spaces
大家早上好，
使用 interop.word 在 header 中执行 find/replace。它可以工作，但是单词，以其伟大的智慧，在第一行之后的每一行的开头添加 spaces: 1 space，在每行的末尾添加 2-3 spaces。
所以它看起来像这样但应该完全离开：
Sept 2, 2015
first name
last name
address
我正在使用 headerfooter.range.text 替换后查看 header 的文本，并且没有额外的 space，所以它必须是一个 auto-formatting 问题词是痴迷。
感谢您的帮助！
我尝试过但没有成功的方法：
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 在生成文档时解释 vbcrlf 的方式。只使用 vbcr 就可以了。 vblf 还导致插入 space。顺便说一下，vbNewLine 还导致出现额外的 space。
找到答案了。这就是 word/interop 在生成文档时解释 vbcrlf 的方式。只使用 vbcr 就可以了。 vblf 还导致插入 space。顺便说一句，vbNewLine 还导致出现额外的 space。
大家早上好，
使用 interop.word 在 header 中执行 find/replace。它可以工作，但是单词，以其伟大的智慧，在第一行之后的每一行的开头添加 spaces: 1 space，在每行的末尾添加 2-3 spaces。 所以它看起来像这样但应该完全离开：
Sept 2, 2015
first name
last name
address
我正在使用 headerfooter.range.text 替换后查看 header 的文本，并且没有额外的 space，所以它必须是一个 auto-formatting 问题词是痴迷。
感谢您的帮助！
我尝试过但没有成功的方法：
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 在生成文档时解释 vbcrlf 的方式。只使用 vbcr 就可以了。 vblf 还导致插入 space。顺便说一下，vbNewLine 还导致出现额外的 space。
找到答案了。这就是 word/interop 在生成文档时解释 vbcrlf 的方式。只使用 vbcr 就可以了。 vblf 还导致插入 space。顺便说一句，vbNewLine 还导致出现额外的 space。