0

ms-word2007でマクロを使用しています

私は二重文字を見つけなければなりません。例：アップルのPP、アクセスのcc＆ss（ "aa、bb、cc、dd、ee、ff、gg、hh、ii、jj、kk、ll、mm、nn、oo、pp、qq、rrから、ss、tt、uu、vv、ww、xx、yy、zz "）そして、上記の2文字のフォントを縮尺-75％、間隔-拡張、By-0.5ptにフォーマットします。

二重文字を強調表示するvbコードがありますが、上記の二重文字フォントを選択してスケールにフォーマットするコードがありません-75％、間隔-拡張、-0.5pt

Sub Macro_test()
'
' Macro_alphabet Macro
'
'
Application.ScreenUpdating = False
Dim StrFnd As String, Rng As Range, i As Long
StrFnd = "aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,oo,pp,qq,rr,ss,tt,uu,vv,ww,xx,yy,zz"
For i = 0 To UBound(Split(StrFnd, ","))
  Set Rng = ActiveDocument.Range
  With Rng.Find
    .ClearFormatting
    .text = Split(StrFnd, ",")(i)
    .Replacement.ClearFormatting
    .Replacement.Highlight = True
    .Replacement.text = "^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
    Selection.Range.HighlightColorIndex = wdNoHighlight
  End With
Next
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub
4

1 に答える 1

0

PeterLが述べたように、マクロを記録するだけです。

これがどのように見えるかです

        With Selection.Font
            .Spacing = 0.5
            .Scaling = 75
        End With

選択方法に合わせて、「withrng.font」などに少し変更する必要がある場合があります。

于 2013-02-07T17:35:18.103 に答える