Creating Word doc with access, paragraph break creates leading space

[Perineum]

From a MS Access form I use VBA code to create a Word doc with text form fields. When there is a paragraph break (enter is pressed) in the text field in Access, in the Word doc a leading space appears on the next line. I don't want the leading space. I can't seem to find a solution for this. I've tried Trim, LTrim, Replace, plain text, rich text, etc. The functions will remove a leading space at the beginning of the paragraph but not within the paragraph. When I look at hidden codes, I see the backwards P symbol. When I do a search in word it does not find the paragraph breaks inside the text form field.



Any help would be greatly appreciated.

thanks

[DougsGraphics]

If I understand correctly, you are using an Access form to collect text which you then insert into a text form field in a Word document and if a "return" is inline in the text collected, you get a newline and an indent at that point in the Word document?
If you don't want to allow returns, you can either set the default behavior on your form field in Access as "Enter Key Behavior" property set to "Default", or use VBA find and strip out every vbCrLf. If you want to allow paragraphs, but just don't want the leading space, I suspect your formatting of the text field in Word will need to be changed -- right click the field in your template, select "Paragraph..." and be sure the indentation and spacing are set the way you want them to behave.

[Perineum]

Thanks for the reply. There was nothing in the MS Word parameters to get rid of the leading space. I do want paragraph breaks but I don't want the leading space. Your idea of stripping out the vbCrLf lead me to find a function that did that. I modified it to keep the carriage return but remove the LF (Line Feed) which created a leading space on the next line. Many thanks!
Public Function CleanString(strSource As String) As String
On Error GoTo CleanStringErr

'convert all vbCrLf to vbcr to get rid of the LF character which creates a space
strSource = Replace(strSource, vbCrLf, vbCr)

'Remove any leading or training spaces and return result
CleanString = Trim(strSource)
Exit Function
CleanStringErr:
'Insert error-handling code here
End Function