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

qinhuan66

hwc2ycy 发表于 2013-6-25 10:09
strTemp = strTemp & "    第" & Replace(Application.WorksheetFunction.Text(arr(i, 1), "[DBNum1][$-804 ...

老师我就是要在每段前面缩进两个字符的，但后面的怎么缩进呢？谢谢

hwc2ycy

设置缩进，用代码实现吧。
加空格就是假缩进了，不过只要你觉得行就成了。

qinhuan66

hwc2ycy 发表于 2013-6-25 10:13
设置缩进，用代码实现吧。
加空格就是假缩进了，不过只要你觉得行就成了。

谢谢您老师还是用代码实现吧。哪怎么实现呢？谢谢

hwc2ycy

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

碰到RPC服务器提示的时候就再运行一次就好了。

qinhuan66

hwc2ycy 发表于 2013-6-25 10:39

谢谢您老师，经测试出现下图提示。谢谢

hwc2ycy

GETINT函数你看看放一块了没？或者有没有放模块里。

hwc2ycy

不行就插入个模块，把GETINT函数放里面

1. Function GetInt(strV As String) As Integer
   
2.     Dim regex As Object
   
3.     Dim str As String
   
4.     Set regex = CreateObject("VBScript.RegExp")
   
5.     With regex
   
6.         .Global = True
   
7.         .Pattern = "[^\d]"
   
8.         GetInt = CInt(.Replace(strV, ""))
   
9.     End With
   
10. End Function

复制代码

hellsparrow

额..