Overføre data fra excel til word

Jeg har denne kode der overfører data fra excel til til skabelonfil i word.
Den virker fint og gør typisk jobbet korrekt for mig.

Men hvis der er mere end 256 tegn i en af de overførte celler i excel går koden kold og stopper.

Det sker desværre oftere og oftere at jeg skriver mere end de famøse 256 tegn i cellen i excel så det er et stigende problem.

Er der nogen der kan hjælpe mig med at rette i koden så jeg kan få de lange tekster med over i word.

Hvis det kræver at man griber det helt anderledes an, er det helt ok.
Jeg vil bare meget gerne have alle data med over i word.







Sub Word_export()
    Dim sFileToOpen As String
    Dim bWordStartedByMe As Boolean
 
   
    bWordStartedByMe = False
    sFileToOpen = "F:\data\word\testfil.doc"
    Application.ScreenUpdating = False
 
On Error GoTo ShitHappens
   
    ' Bruger Word hvis Word er åben ellers fejl
    Set gwdApp = GetObject(, "Word.Application")
    gwdApp.Visible = True
    gwdApp.Activate
   
    Set gwdDoc = gwdApp.Documents.Open(Filename:=sFileToOpen)
       
    gwdDoc.FormFields(1).Result = ThisWorkbook.Worksheets("Stam").Range("navn1")
    gwdDoc.FormFields(2).Result = ThisWorkbook.Worksheets("Stam").Range("navn2")
    gwdDoc.FormFields(3).Result = ThisWorkbook.Worksheets("Stam").Range("testk1")
    gwdDoc.FormFields(4).Result = ThisWorkbook.Worksheets("Stam").Range("tekst2")
    Application.ScreenUpdating = True
   
  '******************************************
  'Sletter memory
  '******************************************
  GoTo ClearUp
   
ShitHappens:
    Select Case Err.Number
        Case 429
            ' Hvis Word ikke er startet
            Set gwdApp = CreateObject("Word.Application")
            bWordStartedByMe = True
            Resume Next
        Case Else
            Err.Clear
    End Select

ClearUp:
    Set gwdDoc = Nothing
    Set gwdApp = Nothing
End Sub