|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
'纯vba代码
Private Sub CommandButton1_Click()
m = ActiveSheet.Shapes.Count
For i = m To 1 Step -1
If ActiveSheet.Shapes(i).Type <> 12 Then ActiveSheet.Shapes(i).Delete
Next
Dim s As String
s = [g3].Value
Dim wordapp As Object
Set wordapp = CreateObject("word.application")
With wordapp
.documents.Add
'.Visible = 1
.ActiveDocument.Shapes.AddTextEffect(msoTextEffect1, s, "楷体_GB2312", 100#, msoFalse, msoFalse, 66#, 80).Select
'DoEvents
With .Selection
.Cut
.PasteSpecial DataType:=3
End With
.ActiveDocument.Shapes(1).Select
.Selection.ShapeRange.Ungroup.Select
.Selection.Copy
.ActiveDocument.Close False
End With
ActiveSheet.[e7].Select
ActiveSheet.Paste
m = ActiveSheet.Shapes.Count
ActiveSheet.[g4].Select
ActiveSheet.[g4].Value = m - 3
wordapp.Quit SaveChanges:=wdDoNotSaveChanges
Set wordapp = Nothing
End Sub
附件说明:
在G3 单元格输入汉字,点击“计算” 在G4 单元格得出该汉字笔画数。
汉字笔画计算程序.rar
(18.03 KB, 下载次数: 438)
|
评分
-
4
查看全部评分
-
|