如何格式突出顯示的文本

我正在使用ms-word 2007中的宏如何格式突出顯示的文本

我必須找到雙字母。例如：蘋果中的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「）並將上面的雙字母字體縮放爲比例-75％，spacing - expanded，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

來源

2013-02-03 user2038048

嘗試使用宏記錄器 - 這將給你幾乎所有的答案） –

正如PeterL提到的，你可以錄製宏。

這裏是什麼樣子

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

您可能需要稍微修改的部份是「與rng.font」或類似的匹配您的選擇方法。

來源

2013-02-07 17:35:18 MechEng

PeterL先生你可以提供一個單一的VB腳本，它可以在文檔中找到雙字母，並修改爲比例 - 75％，間距 - 擴大，由 - 0.5pt預先謝謝 – user2038048

如何格式突出顯示的文本

回答

相關問題