处理多个不连续选择
处理多个不连续选择
提问于 2015-11-16 08:02:45
我试着用多重选择来做一些事情。我想在每个选定的段落之前添加一些文本，但是，当我选择多个不连续段落时，如果我选择Selection.Paragraphs.Count，我总是得到"1“。
我怎么能把所有段落都分开处理呢？
示例：
Paragraph1(Selected first)
Paragraph2
Paragraph3(Selected second)当我试图在这些段落的开头添加一些文本时，我得到了什么：
Paragraph1
Paragraph2
TEXTParagraph3我真正想要的是：
TEXTParagraph1
Paragraph2
TEXTParagraph3我是这样工作的：
sub x()
dim p as paragraph
for each p in selection.paragraphs
p.range.insertbefore("TEXT")
next
End sub回答 1
Stack Overflow用户
回答已采纳
发布于 2015-11-16 15:17:41
语言根本不能做你想做的事情。自从2003年引入了多种选择(我认为是的，可能是2007版)，开发人员就希望这样做。Word的对象模型根本不支持它。
如果您希望向用户提供这样的内容，以使生活更轻松，那么您需要给工具一种标记段落的方法，这样您的代码就可以识别它们。例如，您可以提供一个宏，为每个选择指定一个递增的书签名称(用户选择，然后运行宏；对每个段落重复)。然后，您的代码可以处理每个书签并执行操作。为了使用户更加友好，您可以将宏分配到一个键盘快捷键和/或丝带/QAT和/或右键菜单中的一个按钮。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/33730750
复制相关文章
相似问题
腾讯云开发者
