有请老师出手，帮助菜鸟

wdpfox · 发表于 2017-6-21 18:40

Selection.WholeStory
Selection.End = Selection.End - 1
Selection.Copy

加一个判断语句怎么写，求助大侠：即判断如果有回车符，就Selection.End = Selection.End - 1，没有，则正常Selection.Copy。谢谢！

duquancai · 发表于 2017-6-21 21:04

晕，判断啥呢？因为这句代码 Selection.WholeStory 必然 selection 最后有一个肯定是车符，还判断啥？

duquancai · 发表于 2017-6-21 21:06

本帖最后由 duquancai 于 2017-6-21 21:11 编辑

你都全选文档了。最后一个必然是回车符！还需要判断吗？如果加判断等于脱了裤子放屁！

wdpfox · 发表于 2017-6-21 21:21

本意是想选中文档中的一段，可以是一句，也可是一个段落，选中一个段落则必含有回车符，选中一句或几个字，则没有回车符，复制粘贴后，有回车符的就会多出一个空行。想在复制时，把回车符去掉。
是我没有说清楚。

duquancai · 发表于 2017-6-21 21:25

本帖最后由 duquancai 于 2017-6-21 21:33 编辑

判断最后一个字符是不是回车符，方法有多种，不可能一点基础都没有吧？好吧，我就写一个给你
Sub shishi()
With Selection
.MoveEndWhile Chr$(13), -1
.Copy
End With
End Sub

wdpfox · 发表于 2017-6-21 21:33

是没有基础，只是门外汉。大学时学的不basic呀。

wdpfox · 发表于 2017-6-21 21:34

请杜老师不吝赐教，谢谢！

duquancai · 发表于 2017-6-21 21:34

wdpfox 发表于 2017-6-21 21:33
是没有基础，只是门外汉。大学时学的不basic呀。

楼上给你写了其中一种方法！！！！

duquancai · 发表于 2017-6-21 21:47

本帖最后由 duquancai 于 2017-6-21 21:51 编辑

wdpfox 发表于 2017-6-21 21:34
请杜老师不吝赐教，谢谢！

Sub shishi()
With Selection
      If .Type = wdSelectionIP Then Exit Sub
      .MoveEndWhile Chr$(13), -1
      If .Type = wdSelectionIP Then Exit Sub
      .Copy
End With
End Sub

wdpfox · 发表于 2017-6-21 22:02

好的，学习研究中，谢谢杜老师！另请教杜老师，word中能实现选择即复制功能吗？

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

[求助] 有请老师出手，帮助菜鸟