[求助]我想改动某个字符的倾斜[格式][VBA]

keypress

如下的代码:

    With Selection
        If .Start = .End Then Selection.Paragraphs(1).Range.Select
    End With
   
      With Selection.Find
        .Text = "i"
        .MatchWildcards = False
        .Replacement.Text = ""
        .Replacement.Font.Italic = wdToggle
        .Wrap = wdFindStop
        .Execute Format:=True, Replace:=wdReplaceAll
        End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

目前的状况是:

语句

Replacement.Font.Italic = wdToggle

没有用，执行代码后，字符i的倾斜格式一直是倾斜, 无法在正体“i”与倾斜“i”之间变化,

何故?

[此贴子已经被作者于2007-1-15 9:57:46编辑过]

守柔

把   .Replacement.Font.Italic = wdToggle改为   .Replacement.Font.Italic = True或者FALSE即可。

keypress

谢谢守版的回复，

我的本意是做一个按钮，按一下，字母“i”变成斜体“i”，再按一下，字母“i”变回正体“i”，

于是，想到了wdToggle这个量，

因为在selection与range对象中，font.italic属性值使用wdToggle可以达到Ctrl+I的效果，看来，在replacement对象中，font.italic属性值不可设置为wdToggle，或使用wdToggle达不到应有的效果？！

我监视了Find对象中font.italic属性，其值为<表达式在上下文中未定义>，这说明其值永远是False？！

总是觉得有些奇怪！觉得Find 与Replacement不好控制。

keypress

解决了，但代码似繁冗了些，请大家不吝赐教

Sub i()
    Dim myIta As Boolean
    Dim selRange As Range

    With Selection
        If .Start = .End Then Selection.Paragraphs(1).Range.Select
    End With
    Set selRange = Selection.Range
    p1 = InStr(selRange, "i") + Selection.Start
    Set selRange = ActiveDocument.Range(p1-1, p1)
    myIta = selRange.Font.Italic
    With Selection.Find
        .Text = "i"
        .MatchWildcards = False
        .Replacement.Text = ""
        If myIta Then
            .Replacement.Font.Italic = False
        Else
            .Replacement.Font.Italic = True
        End If
        .Wrap = wdFindStop
        .Execute Format:=True, Replace:=wdReplaceAll
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
End Sub

请查看附件，代码测试，注意，请自行将VBA代码COPY至VBA代码窗口中

bSpy0f9S.rar (3.89 KB, 下载次数: 7)

2007-1-15 14:03 上传

点击文件名下载附件

[此贴子已经被作者于2007-1-15 14:04:47编辑过]

守柔

QUOTE:

以下是引用keypress在2007-1-15 13:47:56的发言：

解决了，但代码似繁冗了些，请大家不吝赐教

Sub i()
    Dim myIta As Boolean
    Dim selRange As Range

    With Selection
        If .Start = .End Then Selection.Paragraphs(1).Range.Select
    End With
    Set selRange = Selection.Range
    p1 = InStr(selRange, "i") + Selection.Start
    Set selRange = ActiveDocument.Range(p1-1, p1)
    myIta = selRange.Font.Italic
    With Selection.Find
        .Text = "i"
        .MatchWildcards = False
        .Replacement.Text = ""
        If myIta Then
            .Replacement.Font.Italic = False
        Else
            .Replacement.Font.Italic = True
        End If
        .Wrap = wdFindStop
        .Execute Format:=True, Replace:=wdReplaceAll
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
End Sub

请查看附件，代码测试，注意，请自行将VBA代码COPY至VBA代码窗口中

请参考：

Option Explicit
Dim blnItalic As Boolean
Sub Example()
    Dim myRange As Range
    With Selection
        If .Type = wdSelectionIP Then Set myRange = .Paragraphs(1).Range Else Set myRange = .Range
    End With
  blnItalic = Not blnItalic
    With myRange.Find
        .ClearFormatting
        .Format = True
        .Text = "i"
        .Replacement.Font.Italic = blnItalic
        .Execute Replace:=wdReplaceAll
    End With
End Sub