提取不连续区域中的字符

baojianming · 发表于 2015-6-11 15:58

平时在WORD中用鼠标+ctrl选择不连续的区域时，如果此时按删除，所有选择的区域会删除，说明WORD能够识别用户选择的不连续的区域。我的问题是在VBA中用什么方法去提取这些已选择的不连续区域中的字符串？

liuhoubin168 · 发表于 2015-6-11 16:41

本帖最后由 liuhoubin168 于 2015-6-11 17:38 编辑

代码选择不连续位置字符示例.rar (12.25 KB, 下载次数: 7)

楼主的问题可以用剪贴板来实现。

  Sub 获取不间断位置字符()
   '请引用 Microsoft Forms 2.0 Object Library
   On Error Resume Next
   Dim MyData As New DataObject
   Selection.Copy
   MyData.GetFromClipboard
   t = MyData.GetText
   For i = 0 To UBound(Split(t, Chr(13))) - 1
   t1 = t1 & Split(t, Chr(13) & Chr(10))(i)
   Next i
   MsgBox t1
   Set MyData = Nothing
End Sub

尽情飞舞 · 发表于 2015-6-20 10:10

或者可以使用range对象，使用Editors.Add方法，获取多个不连续区域，最后全选中，删除

loquat · 发表于 2015-6-26 11:29

我多发了一贴，原来这里已经有原帖了。
http://club.excelhome.net/thread-1213595-1-1.html

baojianming · 发表于 2015-7-2 17:06

loquat 发表于 2015-6-26 11:29
我多发了一贴，原来这里已经有原帖了。
http://club.excelhome.net/thread-1213595-1-1.html

谢谢您们的回答

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

[求助] 提取不连续区域中的字符