自动给每一段加上文本框

xlinghua · 发表于 2005-10-27 19:15

自动给每一段加上文本框

4f0wvzia.rar (3.29 KB, 下载次数: 45)

守柔 · 发表于 2005-10-28 05:35

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-10-28 5:35:29 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00071^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim myRange As Range On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 Set myRange = ActiveDocument.Content '定义一个RANGE对象 With myRange.Find '查找 .ClearFormatting '清除查找格式 .MatchWildcards = True '使用通配符 .Forward = True '向下查找 .Text = "样品*完成^13" '查找以样品开头以完成结束的带有段落标记的文本内容 Do While .Execute '每次成功查找 myRange.Select '选定查找内容 Application.Run "DrawTextBox" '运行创建文本框命令 With Selection.ShapeRange(1) '选中的图形 .TextFrame.AutoSize = True '文本部分自动尺寸 .WrapFormat.Type = wdWrapInline '嵌入式文字环绕 End With Loop End With Application.ScreenUpdating = True '恢复屏幕更新 End Sub '----------------------

		自动登录	找回密码
密码			免费注册