rtf textboxes in Word 2003 SP3

Thanks - this ultimately pointed me in the right direction (I'll be using
automation from another program). Also, as it turns out the fields are type
msoAutoShape rather than msoTextBox.

Thanks again.

"Graham Mayor" <gmayor.DeleteThis@REMOVETHISmvps.org> wrote in message
news:uYc34J1qIHA.1164@TK2MSFTNGP04.phx.gbl...
> Are they text boxes or frames? Either way the following macro should
> remove the visible borders
>
> Dim aShape As Shape
> Dim i As Long
> Application.ScreenUpdating = False
> With ActiveDocument
> For Each aShape In .Shapes
> If aShape.Type = msoTextBox Then
> aShape.Select
> Selection.ShapeRange.Line.Visible = msoFalse
> End If
> Next aShape
> .Range.Select
> For i = 1 To Selection.Frames.Count
> .Frames(i).Borders.Enable = False
> Next i
> End With
> Application.ScreenUpdating = True
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
> G Walker wrote:
>> Hello,
>>
>>
>>
>> In an application that I work with, it can export reports to rtf
>> format. When it does this, it uses textboxes to place the text on the
>> page. These reports can be opened in most versions of Word without
>> any problems, but Word 2003 with SP3 puts borders around the
>> textboxes.
>>
>>
>>
>> I have searched newsgroups and have found that other people have had
>> this problem, but I haven't yet found any solution (other than to
>> select each textbox manually and change it). Does anyone know of a
>> setting somewhere that can control this?
>>
>>
>>
>>
>> Thanks - GW
>
>

There is another change necessary. The problem is that the auto shape boxes
which make a mess of the display are those with a weight of zero. The others
should not be removed, as doing so will also remove boxes which should be
there!

My modified version. which works on all the problem files I have tested it
with is now as follows:

Sub RTF_fix()
'
' RTF_fix Macro
Dim aShape As Shape
Dim i As Long
Application.ScreenUpdating = False
With ActiveDocument
For Each aShape In .Shapes
If aShape.Type = msoAutoShape Then
aShape.Select
If Selection.ShapeRange.Line.Weight = 0 Then
Selection.ShapeRange.Line.Visible = msoFalse
End If
End If
Next aShape
.Range.Select
For i = 1 To Selection.Frames.Count
.Frames(i).Borders.Enable = False
Next i
End With
Application.ScreenUpdating = True
End Sub


"G Walker" wrote:

> Thanks - this ultimately pointed me in the right direction (I'll be using
> automation from another program). Also, as it turns out the fields are type
> msoAutoShape rather than msoTextBox.
>
> Thanks again.
>
> "Graham Mayor" <gmayor DeleteThis @REMOVETHISmvps.org> wrote in message
> news:uYc34J1qIHA.1164@TK2MSFTNGP04.phx.gbl...
> > Are they text boxes or frames? Either way the following macro should
> > remove the visible borders
> >
> > Dim aShape As Shape
> > Dim i As Long
> > Application.ScreenUpdating = False
> > With ActiveDocument
> > For Each aShape In .Shapes
> > If aShape.Type = msoTextBox Then
> > aShape.Select
> > Selection.ShapeRange.Line.Visible = msoFalse
> > End If
> > Next aShape
> > .Range.Select
> > For i = 1 To Selection.Frames.Count
> > .Frames(i).Borders.Enable = False
> > Next i
> > End With
> > Application.ScreenUpdating = True
> >
> > --
> > <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> > Graham Mayor - Word MVP
> >
> > My web site www.gmayor.com
> > Word MVP web site http://word.mvps.org
> > <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> >
> >
> > G Walker wrote:
> >> Hello,
> >>
> >>
> >>
> >> In an application that I work with, it can export reports to rtf
> >> format. When it does this, it uses textboxes to place the text on the
> >> page. These reports can be opened in most versions of Word without
> >> any problems, but Word 2003 with SP3 puts borders around the
> >> textboxes.
> >>
> >>
> >>
> >> I have searched newsgroups and have found that other people have had
> >> this problem, but I haven't yet found any solution (other than to
> >> select each textbox manually and change it). Does anyone know of a
> >> setting somewhere that can control this?
> >>
> >>
> >>
> >>
> >> Thanks - GW
> >
> >
>
>
>

This solution seems to look fine on the screen, but printing goes a bit
wrong. The problem is both in the original and in my modified version, and is
visible on the 'print preview' as well as on the printing. For some reason,
bits of the document have shifted to the right, off the page, out of sync
with the rest. Any ideas what may be causing this?

I have worked out a solution, but do not know how to implement it as a VBASIC
Macro.

What seems to work is to select the relevant auto shape and choose Format
AutoShape off the right hand menu. Then from the 'Line' section select the
color (which will be black) and choose 'MoreColors'. Next, select the white
at the center of the color palette and move the transparency slider at the
bottom of the screen to 100%. Doing it this way does not seem to mess up the
print layout.

"M Ben-Gershon" wrote:

> This solution seems to look fine on the screen, but printing goes a bit
> wrong. The problem is both in the original and in my modified version, and is
> visible on the 'print preview' as well as on the printing. For some reason,
> bits of the document have shifted to the right, off the page, out of sync
> with the rest. Any ideas what may be causing this?

SORRY! This one doesn't work either!

"M Ben-Gershon" wrote:

> I have worked out a solution, but do not know how to implement it as a VBASIC
> Macro.
>
> What seems to work is to select the relevant auto shape and choose Format
> AutoShape off the right hand menu. Then from the 'Line' section select the
> color (which will be black) and choose 'MoreColors'. Next, select the white
> at the center of the color palette and move the transparency slider at the
> bottom of the screen to 100%. Doing it this way does not seem to mess up the
> print layout.
>
> "M Ben-Gershon" wrote:
>
> > This solution seems to look fine on the screen, but printing goes a bit
> > wrong. The problem is both in the original and in my modified version, and is
> > visible on the 'print preview' as well as on the printing. For some reason,
> > bits of the document have shifted to the right, off the page, out of sync
> > with the rest. Any ideas what may be causing this?

The problem is clearly caused by a bug in the rtf import of Word 2003. By
careful analysis of the pdf which is to be imported into Word, the problem
happens with a pdf text box construct (\dptxbx). This is then given a border
weight of zero point, but colored black. Word then displays the border as a
thin line. It should set the color to 'no color'. I do not know how to report
this bug to Microsoft (or indeed whether anyone will care to actually fix it
....).