怎样能打出有方框的数字

柳中知梦

在录入某个文件的时候
出现填写身份证的方框
每一个数字都是独立的方框
该怎么输入啊
数字的照片如附件

vfp_new

在各数字间插入一列，将有数字的四个边框画上线不就得了？看来你刚入门吧。

柳中知梦

不是啊
而且
我还是没有看懂怎么弄啊
不过还是要谢谢你啊

tangqingfu

参考收藏的代码：
Sub 自动添加字符方框()
    Const myEQ As String = "EQ \X("
    Dim myString As String
    Dim strTemp As String
    Dim bytLenth As Byte
    Dim i As Byte
    Dim oChar As String * 1
    Dim LastRange As Range
    Dim NewField As Field
    myString = InputBox("请输入您的目标字符!")
    bytLenth = Len(myString)
    If bytLenth = 0 Then Exit Sub
    Application.ScreenUpdating = False    '关闭屏幕更新
    If Selection.Type <> wdSelectionIP Then Selection.Delete  '总是删除所选内容
    With ActiveDocument
        For i = 1 To bytLenth    '建立一个循环
            oChar = Mid(myString, i, 1)
            Set LastRange = Selection.Range
            Set NewField = .Fields.Add(LastRange, wdFieldEmpty, myEQ & oChar & ")", False)
            strTemp = NewField.Code.Text    '获得域代码
            strTemp = VBA.RTrim(strTemp)    '去除域代码的右侧空格
            NewField.Code.Text = strTemp    '重写域代码
            NewField.Code.Font.Name = "Arial"    '设置域代码的字体
            NewField.Code.Font.Size = 10 '字体大小
            .Fields.Update    '更新域
        Next
    End With
    Application.ScreenUpdating = True    '恢复屏幕更新
End Sub

冰风萧萧

可以输入的的吧

yyqq16888

应该有专门的字体。如果找不到字体，可用格式——中文版式——带圆字符来实现，中能一个一个的操作，比较麻烦。用域也行如：{eq \o\ac(□,4)}

柳中知梦

呵呵
谢谢大家
是我把问题复杂化了
其实很简单
用外侧框线就可以了

只不过费事一点

[ 本帖最后由 柳中知梦 于 2009-4-14 11:57 编辑 ]

dawn10176

学习了

ww0000

tangqingfu 发表于 2009-4-10 15:00
参考收藏的代码：
Sub 自动添加字符方框()
    Const myEQ As String = "EQ \X("

你好，这个代码如何改成带圆圈字？谢谢