OK, I see the problem.
Add the following function to the module. This is a standard function from Microsoft for removing unwanted spaces.
Function TrimSpace(strInput As String) As String
' This procedure trims extra space from any part of
' a string.
Dim astrInput() As String
Dim astrText() As String
Dim strElement As String
Dim lngCount As Long
Dim lngIncr As Long
' Split passed-in string.
astrInput = Split(strInput)
' Resize second array to be same size.
ReDim astrText(UBound(astrInput))
' Initialize counter variable for second array.
lngIncr = LBound(astrInput)
' Loop through split array, looking for
' non-zero-length strings.
For lngCount = LBound(astrInput) To UBound(astrInput)
strElement = astrInput(lngCount)
If Len(strElement) > 0 Then
' Store in second array.
astrText(lngIncr) = strElement
lngIncr = lngIncr + 1
End If
Next
' Resize new array.
ReDim Preserve astrText(LBound(astrText) To lngIncr - 1)
' Join new array to return string.
TrimSpace = Join(astrText)
End Function
The change the code I posted earlier to
strName = "Taxatierapport SEK - "
strName = strName & TrimSpace(ActiveDocument.Bookmarks("Opdrachtgever").Range.Text)
strName = strName & " - " & Trim(ActiveDocument.Bookmarks("Merk").Range.Text)
strName = strName & " " & Trim(ActiveDocument.Bookmarks("Type").Range.Text)
strName = strName & " - " & Trim(ActiveDocument.Bookmarks("Chassis").Range.Text)
Incidentally this code should go in the template and not in the normal template, which is where I assume it currently resides.