[求助]如何用VBA达到如下格式

suibianwzm20

感谢光临！！请教如何用VBA达到如下格式 Ehm8sgCN.rar (3.33 KB, 下载次数: 25)

2007-1-24 15:36 上传

点击文件名下载附件
[求助]如何用VBA达到如下格式

suibianwzm20

请高手光临指导后进！！！！！！

konggs

不明白楼主想说什么。

wflying

也没看太懂。你可以试试word的“批注”及“修订”功能

cxz008

楼主附件中的内容确实很搞笑

suibianwzm20

对不起大家，内容是从网络上随意下载的，目的是要将顺序排列的一段话分解成附件中的格式。

chylhr

这么点格式变化还需要用到VBA?

守柔

QUOTE:

以下是引用suibianwzm20在2007-1-24 15:36:54的发言：
感谢光临！！请教如何用VBA达到如下格式

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-1-26 6:59:46
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0145^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub NoProblem()
    Dim myRange As Range, i As Paragraph, aRange As Range
    With ActiveDocument.Content
        Set myRange = .Paragraphs(1).Range    '定义一个RANGE对象
        myRange.SetRange 0, 1    '重设RANGE对象,为第一个文本所在区域,即试字
        myRange.InsertAfter Chr(32)    '试字后插入空格
        myRange.SetRange myRange.End, myRange.End + 1    '卷字
        myRange.InsertAfter Chr(32)
        myRange.SetRange 0, .Paragraphs(2).Range.End
        With myRange
            .ParagraphFormat.Alignment = wdAlignParagraphCenter    '段落居中
            With .Font
                .Size = 26
                .Name = "方正舒体"
                .Bold = True
            End With
            .SetRange 0, 5
            .Font.Underline = True
        End With
        myRange.SetRange .Paragraphs(3).Range.Start, .Paragraphs(12).Range.End    '取得第三段到第十二段的十个段落区域

守柔

        With myRange.Font
            .Size = 14
            .Name = "楷体_GB2312"
        End With
        myRange.ParagraphFormat.Alignment = wdAlignParagraphJustify    '两端对齐
        myRange.SetRange myRange.End, .End
        With myRange.Font
            .Size = 14
            .Name = "楷体_GB2312"
            .Underline = True
        End With
        With myRange.ParagraphFormat
            .Alignment = wdAlignParagraphJustify    '两端对齐
            .CharacterUnitFirstLineIndent = 2
        End With
        For Each i In myRange.Paragraphs
        '使用制表位方式更合理,可也以根据字符数进行设置
        Set aRange = i.Range
            aRange.SetRange aRange.End - 1, aRange.End - 1
            aRange.InsertAfter Chr(9)
            i.TabStops.Add Word.CentimetersToPoints(14.7), wdAlignTabLeft
        Next
        '        myRange.Select
        '        myRange.SetRange ActiveDocument.Bookmarks("\Line").Range.Start, ActiveDocument.Bookmarks("\Line").Range.End - 1
        '        If myRange.Characters.Count <= 30 Then
        '        myRange.InsertAfter
    End With

End Sub
'----------------------

suibianwzm20

谢谢守柔大哥，我已购买了您的大作《word非常接触》！！