使用以下方法在一篇文章的开头插入一个字符串，请问如何用代码将这个字符串格式化为

irischenxi · 发表于 2006-1-4 17:35

使用以下方法在一篇文章的开头插入一个字符串，请问如何用代码将这个字符串格式化为Heading 1? Set myRange = m_wrdDoc.Content myRange.InsertParagraphBefore myRange.InsertBefore (strTitle)

守柔 · 发表于 2006-1-4 18:21

参考：

Option Explicit
Sub Sample()
Dim myRange As Range, m_wrdDoc As Document, strTitle As String
Set m_wrdDoc = ActiveDocument
Set myRange = m_wrdDoc.Range(0, 0)
strTitle = "56" & Chr(13)
myRange.InsertBefore (strTitle)
myRange.Paragraphs(1).Style = "标题 1"
End Sub

konggs · 发表于 2006-1-4 20:05

代码简洁，干净、漂亮，

我只能PF了。

irischenxi · 发表于 2006-1-5 09:47

谢谢版主！

我在InsertBefore前加了一个InsertParagraphBefore
，换了一行，对我更方便些。

myRange.InsertParagraphBefore
myRange.InsertBefore (strTitle)

konggs · 发表于 2006-1-5 11:22

简洁美的话，就用：

myRange.InsertBefore (strTitle) & Chr(13)

		自动登录	找回密码
密码			免费注册