请问要怎样批量消除文字框

从pdf转换的word文本，里面有太多的文字框
因为有大量图表，娃一直用的txt文件转换法失灵了

用“选择多个对象”试试。

Sub 去掉全部文本框()
For i = 1 To ActiveDocument.Shapes.count
  With ActiveDocument.Shapes(i)
        .Line.Visible = msoFalse
        End With
       Next
End Sub
Sub 去掉局部文字边框()
Selection.WholeStory
    With Selection.Font
        .Borders(1).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub
Sub 去掉全部段落边框()
Selection.WholeStory
    With Selection.ParagraphFormat
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
          End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub

[ 本帖最后由 sqhsqhli 于 2011-2-10 13:17 编辑 ]