Write the ranges in the desired position from MS-Access to MS-Word

[arslan_basit2002]

Hello Everybody,

I want to write a string in Microsoft Word always in the same position but unfortunately i am not able to do it. I tried first something like Dim PatName As String *70 but for the first loop works but in the second loop the position changes.

        Dim PatName                            As Variant
        Dim RechnNr                            As String * 70

        For iSchleife = 1 To 5
            
            Set objRange = wrdApp.ActiveDocument.Paragraphs(6).Range 
            objRange.Select
            
            PatName = Space(65 - Len(Trim(arr_PatName(iSchleifex + iSchleife))))
            RechnNr = arr_RechNrKomplett(iSchleifex + iSchleife)
          'For first loop works fine but after that the format gets changes
            objRange.InsertAfter vbNewLine & Trim(arr_Name(iSchleifex + iSchleife)) & Space(65 - Len(Trim(arr_Name(iSchleifex + iSchleife)))) &  arr_RechNrKomplett(iSchleifex + iSchleife)
                                    
            'The spaces are not in the right places i want that after Name there should be the same Name length.
             'Actually i want to do something like this, but it's not working
                         objRange.InsertAfter vbNewLine & Trim(arr_Name(iSchleifex + iSchleife))
                         wrdDoc.Paragraphs(8).objRange.Paragraphs.ParagraphFormat.TabStops(CentimetersToPoints(7.25)).Position CentimetersToPoints(7.25)
                         objRange.InsertAfter. arr_RechNrKomplett(iSchleifex + iSchleife) 
            
        Next iSchleife

For a fast reply i will be very thankfull.
Many thanks


Best regards