[求助]如何在宏区别出正文字符是属于表格、绘图还是段落的?

heartfly1980

我想编写一个宏设置WORD中的正文格式，但是表格、绘图里边的文字不能变，当我在宏中对“正文”样式进行属性设置时，表格、绘图里的文字也跟着变了，有没有哪位高手知道如何区别这三种文字呢？谢谢了！

[此贴子已经被作者于2007-4-19 20:51:03编辑过]

konggs

Sub TextSetFormat_NoTable()

    Dim i&
    Dim myrange As Range
    Dim myDocment As Document
    On Error GoTo handler
   
    Set myDocment = ThisDocument
   
    Application.ScreenUpdating = False
   
    If myDocment.Tables.Count = 0 Then MsgBox "No exist table": GoTo handler
   
    Set myrange = myDocment.Range(0, myDocment.Tables(1).Range.Start)
    myone myrange
   
    For i = 1 To myDocment.Tables.Count - 1
        Set myrange = myDocment.Range(myDocment.Tables(i).Range.End, _
                      myDocment.Tables(i + 1).Range.Start)
        myone myrange
    Next
   
    Set myrange = myDocment.Range(myDocment.Tables(myDocment.Tables.Count).Range.End, _
            myDocment.Range.End)
    myone myrange
   
handler:
    Application.ScreenUpdating = True
   
End Sub

[此贴子已经被作者于2007-4-20 9:44:13编辑过]

chylhr

to heartfly1980:

“正文”样式是其它样式的基石,为什么要改它呢?建议楼主把正文、表格、图形中的段落分别使用不同的样式区分开，再修改正文所使用的样式。

heartfly1980

嗯,谢谢了,问题我自己摸索着已经解决了,我是先统一都修改了,然后再单独对表格和图形对象的文字进行修改的.这是遗留文档,原来写文档的人没有按样式写,所以有些乱,谢谢了!

medpower

请叫Konggs,myone myrange是什么意思，谢谢！我也遇到类似问题，想在每个表格前加一书签！