word的选择

dongdonggege

一篇文章，我想全选，Selection.WholeStory，但是我发现，全选复制以后，粘贴到其他文件，末尾就多了一行，能否复制时，就选到最后一行回车号前面一个字符。因为我是用程序做的不知道怎么操作，麻烦高手指点，谢谢！

duquancai

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

dongdonggege

duquancai 发表于 2017-6-18 11:12
Selection.WholeStory
    Selection.End = Selection.End - 1
    Selection.Copy

谢谢大侠，我也刚找到。就是代码太长了。还得精简。谢谢了。

1. Sub test()
   
2.     pos = ActiveDocument.Paragraphs(1).Range.Start
   
3.     pos2 = ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End
   
4.     Set myRange = ActiveDocument.Range(Start:=pos, End:=pos2 - 1)
   
5.     myRange.Select
   
6.     Selection.Copy
   
7. End Sub

复制代码

还是大侠的好。

dongdonggege

duquancai 发表于 2017-6-18 11:12
Selection.WholeStory
    Selection.End = Selection.End - 1
    Selection.Copy

大侠，再向你请教，我上次在本版里看到删除空白行，有个程序“删除段落首尾空格及空行”，地址记不清了，

1. Sub 删除段落首尾空格及空行()
   
2.     ActiveDocument.Content.Find.Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll    '手动换行符 => 段落标记（全部替换）
   
3.     ActiveDocument.Content.Find.Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll   '真假回车符 => 段落标记
   
4.     ActiveDocument.Content.Find.Execute findtext:="^s", replacewith:=" ", Replace:=wdReplaceAll     '不间断空格 => 半角空格
   
5.     ActiveDocument.Content.Find.Execute findtext:="(", replacewith:="（", Replace:=wdReplaceAll     '英文左括号 => 中文左括号
   
6.     ActiveDocument.Content.Find.Execute findtext:=")", replacewith:="）", Replace:=wdReplaceAll     '英文右括号 => 中文右括号
   
7. 
   
8.     Dim i As Paragraph, n As Long
   
9.     For Each i In ActiveDocument.Paragraphs
   
10.         For n = 1 To i.Range.Characters.Count
    
11.             If i.Range Like " *" Or i.Range Like "　*" Or i.Range Like Chr(9) & "*" Then
    
12.                 i.Range.Characters(1).Delete
    
13.             ElseIf i.Range Like "* " & Chr(13) Or i.Range Like "*　" & Chr(13) Or i.Range Like "*" & Chr(9) & Chr(13) Then
    
14.                 Do
    
15.                     i.Range.Select
    
16.                     Selection.EndKey Unit:=wdLine
    
17.                     Selection.TypeBackspace
    
18.                 Loop Until Asc(i.Range.Characters(i.Range.Characters.Count - 1)) <> 32 Or Asc(i.Range.Characters(i.Range.Characters.Count - 1)) <> 9
    
19.             Else
    
20.                 Exit For
    
21.             End If
    
22.         Next n
    
23.         If Len(i.Range) = 1 Then i.Range.Delete
    
24.     Next
    
25. 
    
26. ' 特例
    
27.     For Each i In ActiveDocument.Paragraphs
    
28.         If i.Range Like " “*" Or i.Range Like " (*" Then
    
29.             i.Range.Select
    
30.             Selection.HomeKey Unit:=wdLine
    
31.             Selection.Delete Unit:=wdCharacter, Count:=1
    
32.         End If
    
33.         If i.Range Like "*) " & Chr(13) Or i.Range Like "*” " & Chr(13) Then
    
34.             i.Range.Select
    
35.             Selection.EndKey Unit:=wdLine
    
36.             Selection.TypeBackspace
    
37.         End If
    
38.     Next
    
39. End Sub

复制代码

我只想删除空白行，其他的删除前空格不要，麻烦你修改下，我对word不熟，想用在ppt里的，大侠，能做到吗？麻烦了。谢谢

小花鹿

Selection.WholeStory
Selection.MoveEnd , -1

duquancai

dongdonggege 发表于 2017-6-18 11:26
大侠，再向你请教，我上次在本版里看到删除空白行，有个程序“删除段落首尾空格及空行”，地址记不清了， ...

Sub 删除空白行()
    With ActiveDocument.Content.Find
        .Execute "^11", , , 1, , , , , , "^p", 2
        .Execute "^p^w", , , 0, , , , , , "^p", 2
        .Execute "^13{2,}", , , 1, , , , , , "^p", 2
    End With
End Sub

dongdonggege

duquancai 发表于 2017-6-18 11:50
Sub 删除空白行()
    With ActiveDocument.Content.Find
        .Execute "^11", , , 1, , , , , , " ...

还是不行，有的空行里还有纯tab空格和纯空格或者两者都有，去不掉。

dongdonggege

小花鹿 发表于 2017-6-18 11:50
Selection.WholeStory
Selection.MoveEnd , -1

谢谢大侠，再请问，我新建一个文档，操作后，想不保存退出，这个语句应该怎么做？谢谢！

duquancai

dongdonggege 发表于 2017-6-18 11:58
还是不行，有的空行里还有纯tab空格和纯空格或者两者都有，去不掉。

不行算了，鬼知道你的真实文档是怎样的？我最烦在这里猜谜语！

小花鹿

dongdonggege 发表于 2017-6-18 11:59
谢谢大侠，再请问，我新建一个文档，操作后，想不保存退出，这个语句应该怎么做？谢谢！

mydoc.close 0