[已解决]为什么03版生成的版本和13版的版本出来景然不相同

qinhuan66

为什么03版生成的版本和13版的版本出来景然不相同
测试.rar (15.77 KB, 下载次数: 2)

2013-6-25 09:10 上传

点击文件名下载附件

以下是03版本生成的（正确，凹两个字）


以下是13版本生成的（错误，不能凹两个字）

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-25 10:39

1. Private Sub CommandButton1_Click()
   
2.     Dim objWord As Object
   
3.     Set objWord = CreateObject("word.application")
   
4.     Dim intSum As Integer
   
5.     Dim strT() As String
   
6. 
   
7.     Dim arr, i As Long, K As Long
   
8.     Dim strTemp As String
   
9.     strTemp = "试室安排考生说明" & vbCr
   
10.     arr = Range("a1").CurrentRegion
    
11.     With objWord
    
12.         .Documents.Add
    
13.         For i = LBound(arr) + 1 To UBound(arr)
    
14.             intSum = 0
    
15.             strT = Split(CStr(arr(i, 2)), "、")
    
16.             For K = LBound(strT) To UBound(strT)
    
17.                 intSum = intSum + GetInt(strT(K))
    
18.             Next
    
19. 
    
20.             'strTemp = strTemp & "    第" & Replace(Application.WorksheetFunction.Text(arr(i, 1), "[DBNum1][$-804]General"), "一十", "十") & "试室" & "（共" & intSum & "人）：" & vbCrLf & "    " & arr(i, 2) & "。" & vbCrLf  '&　"。"  （每句结束加句号），vbcrlf &（换行）
    
21.             strTemp = strTemp & "第" & Replace(Application.WorksheetFunction.Text(arr(i, 1), "[DBNum1][$-804]General"), "一十", "十") & "试室" & "（共" & intSum & "人）：" & vbCrLf & arr(i, 2) & "。" & vbCrLf  '&　"。"  （每句结束加句号），vbcrlf &（换行）
    
22.         Next
    
23. 
    
24.         .Selection.InsertAfter strTemp
    
25.         .Selection.HomeKey Unit:=wdStory
    
26.         With .ActiveDocument
    
27.             With .Sentences(1)
    
28.                 .Font.Bold = True
    
29.                 .Font.Size = 24
    
30.                 .Font.Name = "黑体"
    
31.                 .ParagraphFormat.Alignment = wdAlignParagraphCenter    '居中
    
32.                 .ParagraphFormat.LineSpacing = 20
    
33.             End With
    
34.         End With
    
35. 
    
36.         With .Selection.Find
    
37.             .ClearFormatting
    
38.             .Replacement.ClearFormatting
    
39.             .Replacement.Font.Bold = True
    
40.             .Text = "第 [0-9]{1,} 教室"
    
41.             .Replacement.Text = ""
    
42.             .Forward = True
    
43.             .Wrap = wdFindContinue
    
44.             .Format = True
    
45.             .MatchWildcards = True
    
46.             .Execute Replace:=wdReplaceAll
    
47.         End With
    
48. 
    
49.         With .ActiveDocument
    
50.             For i = 2 To .Sentences.Count Step 2
    
51.                 With .Sentences(i)
    
52.                     .Font.Bold = True   '加粗
    
53.                     .Font.Size = 16     '字号
    
54.                     .Font.Name = "仿宋_GB2312"   '字体
    
55.                 End With
    
56. 
    
57.                 With .Sentences(i + 1)
    
58.                     .Font.Size = 16     '字号
    
59.                     .Font.Name = "仿宋_GB2312"   '字体
    
60.                 End With
    
61.             Next
    
62.             
    
63.             With .Range(Start:=.Paragraphs(2).Range.Start, _
    
64.                         End:=.Paragraphs(.Paragraphs.Count).Range.End)
    
65. 
    
66.                 With .ParagraphFormat
    
67.                     .FirstLineIndent = CentimetersToPoints(0)
    
68.                     .CharacterUnitFirstLineIndent = 2
    
69.                 End With
    
70.             End With
    
71. 
    
72.             .SaveAs Filename:=ThisWorkbook.Path & "\试室安排考生说明" & "\试室安排考生说明.doc", FileFormat:=0
    
73.             MsgBox .FullName
    
74.             .Close False
    
75.         End With
    
76.         .Quit
    
77.     End With
    
78. 
    
79. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这个段落格式缩进了。

qinhuan66

hwc2ycy 发表于 2013-6-25 09:14
这个段落格式缩进了。

谢谢老师你不是哪句代码不适用13版呢？一样的代码怎么就出现这样的情况。

hwc2ycy

估计是格式不一样的原因，可以设置下是否缩进。

hwc2ycy

你分别在03，13里输入文字然后回车，看看是不是缩进了。

hwc2ycy

    Selection.WholeStory
   ‘有缩进
    With Selection.ParagraphFormat
        .FirstLineIndent = CentimetersToPoints(0)
        .CharacterUnitFirstLineIndent = 2
    End With

   '无缩进
    With Selection.ParagraphFormat
        .FirstLineIndent = CentimetersToPoints(0)
        .CharacterUnitFirstLineIndent = 0
    End With

qinhuan66

hwc2ycy 发表于 2013-6-25 09:38
你分别在03，13里输入文字然后回车，看看是不是缩进了。

13版回车后不会缩进。03版单位没有。谢谢
下面这个代码可以但要一行一行设置，能否帮改一下呢。hwc2ycy 老师。谢谢
求助.rar (17.76 KB, 下载次数: 2)

2013-6-25 10:02 上传

点击文件名下载附件

hwc2ycy

是你的每行内容前面有空格了。

hwc2ycy

strTemp = strTemp & "    第" & Replace(Application.WorksheetFunction.Text(arr(i, 1), "[DBNum1][$-804]General"), "一十", "十") & "试室" & "（共" & intSum & "人）：" & vbCrLf & "    " & arr(i, 2) & "。" & vbCrLf  '&　"。"  （每句结束加句号），vbcrlf &（换行）

你这里加了两个空格在。

hwc2ycy

strTemp = strTemp & "第" & Replace(Application.WorksheetFunction.Text(arr(i, 1), "[DBNum1][$-804]General"), "一十", "十") & "试室" & "（共" & intSum & "人）：" & vbCrLf & "" & arr(i, 2) & "。" & vbCrLf  '&　"。"  （每句结束加句号），vbcrlf &（换行）
你改成这样再看看吧。