Export to Word with textbox issues

[dheinst]

After saving a report as Word document, I'm stuck with all non-expading floating textboxes. This prevents end users from editing the final report after generating it. Reading through the forum, there seem to be more people with this, without any clues for some kind of solution.

I'm trying to create a Word macro to convert my document to something editable. I don't have a good solution at this point (not sure if it will ever be possible to do it this way), but maybe others might have some use for the macro thus far. Any improvements are ofcourse welcome :-)

Code:

Sub FixDoc()    'Convert textbox text to frames    Dim oShp As Shape    Dim i As Integer        For Each oShp In ActiveDocument.Shapes        If Left$(oShp.AlternativeText, 8) = "Text Box" Then            oShp.ConvertToFrame        Else            If Left$(oShp.Name, 4) = "Line" Then            Else                If oShp.AutoShapeType = msoShapeMixed Then                    oShp.ConvertToInlineShape                Else                    oShp.Delete                End If            End If        End If    Next oShp        'Delete frames    For i = ActiveDocument.Frames.Count To 1 Step -1        With ActiveDocument.Frames(i)            .Borders.Enable = False            With .Shading                .Texture = wdTextureNone                .ForegroundPatternColor = wdColorAutomatic                .BackgroundPatternColor = wdColorAutomatic            End With            .Delete        End With    Next	'Set document margins    With ActiveDocument.PageSetup        .TopMargin = CentimetersToPoints(1.14)        .BottomMargin = CentimetersToPoints(2.34)        .LeftMargin = CentimetersToPoints(1.3)        .RightMargin = CentimetersToPoints(1.3)    End WithEnd Sub