怎么设置一个段落或句子中部分字符为range？谢谢

flesive

比如123456789中我只想更改2345的字体，怎么实现？

                   Set myrange = doc.Range(doc.Paragraphs(1).Range.Characters(1), doc.Paragraphs(1).Range.End)

这样的话提示类型不匹配

多谢解决！！

LangQueS

录制宏得到的（未精简），选定单元格，执行宏：

Sub 字体()
    Selection.NumberFormatLocal = "@"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=2, Length:=4).Font
        .Name = "宋体"
        .FontStyle = "加粗"
        .Size = 18
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=6, Length:=4).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

c81

光标放在1后

  Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend

flesive

谢谢

守柔

QUOTE:

以下是引用c81在2007-5-24 21:08:58的发言：

光标放在1后

  Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend

二楼LangQueS版主录的是 EXCEL中的代码，楼主需要的是Word中的代码。C81版主用的是SELECTION对象，不是Range对象。

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-5-25 5:42:32
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0214^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim myRange As Range
    '第一个段落123456789&Chr(13)
    Set myRange = ActiveDocument.Paragraphs(1).Range
    myRange.SetRange myRange.Start + 1, myRange.Start + 5
    myRange.Font.Name = "华文细黑"
    '第二个段落中的第二句
    Set myRange = ActiveDocument.Paragraphs(2).Range.Sentences(2)
    myRange.SetRange myRange.Start + 1, myRange.Start + 5
    myRange.Font.Name = "华文新魏"
End Sub
'----------------------

c81

谢谢守版主，

我在ActiveDocument.Paragraphs(1).Range后直接带.characters(n)报错，只好用selection.