``` wdDoc.Content.InsertAfter Text:=Sheets("基础信息").Cells(6, 2) & vbCrLf```在word文档中将首行缩进2字符,字体宋体,字号20,最后将文本居中
时间: 2024-11-17 08:29:06 浏览: 25
在EXCEL中用VBA创建WORD文档表格.docx
在给定的VBA代码片段中,`wdDoc.Content.InsertAfter Text:=Sheets("基础信息").Cells(6, 2)` 这部分表示从Excel工作表“基础信息”中获取单元格B6的内容,并插入到Word文档的当前位置之后。`vbCrLf` 是换行符,会添加一个新的段落。
接下来的部分 `Text:=Sheets("基础信息").Cells(6, 2) & vbCrLf` 插入的是这个单元格内容加上一个新行。
然后,要设置文字的格式,例如将首行缩进2字符,需要使用 Word 的 `Range` 对象及其 `ParagraphFormat` 属性来操作段落样式。但在这个代码里并没有直接指定这些格式化选项。如果你想实现首行缩进、字体设置和字号调整,你需要添加类似这样的代码:
```vba
Dim rng As Range
Set rng = wdDoc.Range(wdDoc.Content.End + wdUnits.wdLine, wdDoc.Content.End)
' 首行缩进
rng.ParagraphFormat.FirstLineIndent = wdHalf Inch ' 可替换为具体的缩进值
' 字体和字号
rng.Font.Name = "宋体" ' 设置字体为宋体
rng.Font.Size = 20 ' 设置字号为20磅
' 文本居中
rng.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中对齐
```
这部分应在 `InsertAfter` 之后加入,确保是在已有文本的基础上应用格式。注意,这里假设 `wdDoc` 是已经打开的Word文档对象。
阅读全文