vba与带圈字符（VBA给字符加圈）

linyancheng

Sub 圓圈外加31中文()
'
' 圓圈外加31中文 巨集
' 巨集錄製於 2007/10/2，錄製者 Pan
'
    Selection.Cut
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "EQ \O\AC(,)", PreserveFormatting:=False
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With ActiveWindow
        With .View
            .ShowFieldCodes = False
        End With
    End With
    Selection.Fields.ToggleShowCodes
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="○"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Paste
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Size = Selection.Font.Size * 4 / 9
    Selection.Font.Scaling = 50
    With Selection.ParagraphFormat
        .BaseLineAlignment = wdBaselineAlignCenter
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.Fields.ToggleShowCodes
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Sub 圓圈外加31長中文()
'
' 圓圈外加31中文 巨集
' 巨集錄製於 2007/10/2，錄製者 Pan
'
    Selection.Cut
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "EQ \O\AC(,)", PreserveFormatting:=False
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With ActiveWindow
        With .View
            .ShowFieldCodes = False
        End With
    End With
    Selection.Fields.ToggleShowCodes
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="○"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Scaling = 200
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.Paste
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Size = Selection.Font.Size * 4 / 9
    With Selection.ParagraphFormat
        .BaseLineAlignment = wdBaselineAlignCenter
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.Fields.ToggleShowCodes
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

tangqingfu

原帖由 wjhere 于 2009-9-18 20:53 发表
以修改myModifyEnclosure2为例，可以在下面的代码中修改圆圈的字体大小，和位置。当然也可以修改颜色等信息。如果圈内字体和圆圈字体的大小存在对应关系就可以编程解决。现在采用的是通过缩小圈内的字体来适应圆圈， ...

请教wjhere兄：
如果我想将带圈字符设置为小四（圈+字符=小四），同时圈内的字体来适应圆圈，该如何修改代码？

ww0000

linyancheng 发表于 2009-9-22 16:14
Sub 圓圈外加31中文()
'
' 圓圈外加31中文 巨集

好象字号不般配

weiyingde

好东西，谢谢分享！！