求助如何把已生成（word文档）图1这种格式换成图2这种格式

qinhuan66

您好老师！如何把已生成（word文档）图1这种格式换成图2这种格式。谢谢
注：安排每个试室最后面加个句号（图2青圈内所示）。谢谢
试室按排考生说明.rar (16.91 KB, 下载次数: 10)

2013-6-24 08:46 上传

点击文件名下载附件
图1：

图2：

代码如下：（下段代码hwc2ycy老师编写，在此先谢谢hwc2ycy老师了）
Private Sub CommandButton1_Click()
    Dim objWord As Object
    Set objWord = CreateObject("word.application")
    Dim arr, i As Long
    Dim strTemp As String
    strTemp = "试室安排考生说明" & vbCr
    arr = Range("a1").CurrentRegion
    With objWord
        .Documents.Add
        For i = LBound(arr) + 1 To UBound(arr)
            strTemp = strTemp & "第 " & arr(i, 1) & " 教室：" & arr(i, 2) & vbCr
        Next
        .Selection.InsertAfter strTemp
        .Selection.HomeKey Unit:=wdStory
        With .ActiveDocument
            With .Sentences(1)
                .Font.Bold = True
                .Font.Size = 16
                .Font.Name = "黑体"
                .ParagraphFormat.Alignment = wdAlignParagraphCenter
                .ParagraphFormat.LineSpacing = 20
            End With
        End With

        With .Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Replacement.Font.Bold = True
            .Text = "第 [0-9]{1,} 教室："
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchWildcards = True
            .Execute Replace:=wdReplaceAll
        End With

        .ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "yyyymmddhhnn") & ".doc", FileFormat:=0
        MsgBox .ActiveDocument.FullName
        .ActiveDocument.Close False
        .Quit
    End With
End Sub

qinhuan66

顶一个给大家学习学习

yunqingzi

很给力，顶一个。

qinhuan66

期待老师们

qinhuan66

不知增加辅助列后是否可行