Question

用VB向word中输入文字，如何设置连续文字的不同字体格式

用VB（Visual Basic）向word中输入的文字，希望实现连续的文字有不同的字体格式，比如上一个文字是宋体，下一个文字是楷体，或者有些文字使用下标格式，有些文字使用上标格式，谢谢了！
我用的如下程序，只能设置整个段落使用同样的字体格式：
Dim wordApp As New Word.Application
Dim wordDoc As New Word.Document
Set wordDoc = wordApp.Documents.Add
wordApp.Visible = True
With wordDoc

.Paragraphs(.Paragraphs.Count).Range.Font.NameFarEast = "宋体"
.Paragraphs(.Paragraphs.Count).Range.Font.NameAscii = "Arial"
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 12
.Paragraphs(.Paragraphs.Count).Range.Font.Bold = True
.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft
.Content.InsertAfter "需要输入的文字" & vbCrLf
请高手帮忙！

若以下回答无法解决问题，邀请你更新回答

Answer 1

可以试一下vba的录制功能把操作录下来，然后在代码里试着去实现一下。

追问

尝试过，在VBA中，用的语法是.selection,在VB上不起作用。

追答

应该是可以的：
349 Public Sub SetStyle(ByVal strFont As String)
350 Select Case strFont
351 Case "bold"
352 oWordApplic.Selection.Font.Bold = 1
353 Case "italic"
354 oWordApplic.Selection.Font.Italic = 1
355 Case "underlined"
356 oWordApplic.Selection.Font.Subscript = 1
357 End Select
358 End Sub

全部的内容在这里可以参考：http://www.cnblogs.com/chinhr/archive/2006/11/15/561430.html