[讨论]：如何用VBA实现排版？

efan2000

要求：在Word中排版后，利用VBA，自动在CAD按排版格式生成文本。示例如下：

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub WordTest()
   
6.     On Error Resume Next
   
7.     Dim wdApp As Word.Application
   
8.     Set wdApp = GetObject(, "Word.Application")
   
9.     If Err.Number <> 0 Then Exit Sub
   
10.     Dim s As String
    
11.     Dim p As Word.Paragraph
    
12.     Dim sFont As String
    
13.     '枚举所有的段落
    
14.     For Each p In wdApp.ActiveDocument.Paragraphs
    
15.         sFont = p.Range.Font.Name '这一段落所用的字体
    
16.         s = s & "{\f" & sFont & ";" & p.Range.Text & "}" & "\P"
    
17.     Next
    
18.     s = Left(s, Len(s) - 2)
    
19.     Dim iPt(0 To 2) As Double
    
20.     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
    
21.     '生成多行文本
    
22.     Dim mTextObj As AcadMText
    
23.     Set mTextObj = ThisDrawing.ModelSpace.AddMText(iPt, 100, s)
    
24.     Set mTextObj = Nothing
    
25.     Set p = Nothing
    
26.     Set wdApp = Nothing
    
27. End Sub
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub WordTest()<br />     On Error Resume Next<br />     Dim wdApp As Word.Application<br />     Set wdApp = GetObject(, "Word.Application")<br />     If Err.Number <> 0 Then Exit Sub<br />     Dim s As String<br />     Dim p As Word.Paragraph<br />     Dim sFont As String<br />     '枚举所有的段落<br />     For Each p In wdApp.ActiveDocument.Paragraphs<br />         sFont = p.Range.Font.Name '这一段落所用的字体<br />         s = s & "{\f" & sFont & ";" & p.Range.Text & "}" & "\P"<br />     Next<br />     s = Left(s, Len(s) - 2)<br />     Dim iPt(0 To 2) As Double<br />     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0<br />     '生成多行文本<br />     Dim mTextObj As AcadMText<br />     Set mTextObj = ThisDrawing.ModelSpace.AddMText(iPt, 100, s)<br />     Set mTextObj = Nothing<br />     Set p = Nothing<br />     Set wdApp = Nothing<br /> End Sub<br />   [/FONT]<br />

efan2000

在上一次应用到了字体的设置，但在Word排版中还有每一个段落首行缩进两个字符，这怎么设置呢？可以用Paragraph对象的CharacterUnitFirstLineIndent属性来设置，该值如果为正的整数，就表示缩进的字符数。修改如下：

2. 
   
3.   [FONT=courier new]
   
4. Dim sSpace As String
   
5. If p.CharacterUnitFirstLineIndent > 0 Then sSpace = Space(p.CharacterUnitFirstLineIndent * 2)
   
6. s = s & "{\f" & sFont & ";" & sSpace & p.Range.Text & "}" & "\P"
   
7.   [/FONT]
   

<br />   [FONT=courier new]<br /> Dim sSpace As String<br /> If p.CharacterUnitFirstLineIndent > 0 Then sSpace = Space(p.CharacterUnitFirstLineIndent * 2)<br /> s = s & "{\f" & sFont & ";" & sSpace & p.Range.Text & "}" & "\P"<br />   [/FONT]<br />

Paragraph对象的FirstLineIndent也控制着缩进的长度，但是以厘米为单的，可以用CentimetersToPoints函数转换成磅为单位。1 厘米 = 28.35 磅。

efan2000

对于段落文字的对齐方式，可以用Paragraph对象的Alignment属性来设置，可设成wdAlignParagraphLeft、wdAlignParagraphCenter、wdAlignParagraphRight，分别表示左对齐、中间对齐和右对齐。

Groovy

有些符号没有办法在VBA中输入，怎么样在VBA中新建DOC文档时自动使用自建的样板文件那，又怎么样才能让我想要的VBA中的变量的值赋到DOC中我想要的位置那，
请版主再指教一下，谢谢先
执行2楼的语句
Dim wdApp As Word.Application
提示，用户定义类型未定义，这是为什么啊？