如何选择WORD文件中的一页并复制到剪切板？

Question

如何选择WORD文件中的一页并复制到剪切板？我知道doc.selection.WholeStory是全选，但是我想只选择其中一页，可以吗？谢谢各位

Answer 1

'取得某页的数据
'以下在Word 2003 的VBA中调试通过Private Sub CommandButton1_Click()
  Dim Data2 As String
  For i = 1 To ThisDocument.Paragraphs.Count
     If ThisDocument.Paragraphs.Item(i).Range.Information(wdActiveEndPageNumber) = 2 Then
       Data2 = Data2 & ThisDocument.Paragraphs.Item(i).Range.Text
     End If
  Next
  
  MsgBox "第二页的数据是:" & vbCrLf & Data2
  
End Sub

Answer 2

Dim Word, doc
Set Word = CreateObject("Word.Application")
Set doc = Word.Documents.Add("f:\1.doc")
Clipboard.SetData Word.document.Paragraphs.Item(1).Range.Text
这个为什么不行呢？

Answer 3

Word.document.Paragraphs.Item(1).Range.Text '返回的是第一行的数据.而不是第一页.

Answer 4

那如何在VB6里操作一个WORD文件，把其中一页复制到剪切板呢

Answer 5

Option ExplicitPrivate Sub Command1_Click()
 Dim i As Long
 Dim Word, doc
 Set Word = CreateObject("Word.Application")
 Set doc = Word.Documents.Add("C:\1.doc") Dim Data2 As String
  For i = 1 To doc.Paragraphs.Count
     If doc.Paragraphs.Item(i).Range.Information(wdActiveEndPageNumber) = 2 Then
       Data2 = Data2 & doc.Paragraphs.Item(i).Range.Text
     End If
  Next 
 Clipboard.Clear
 Clipboard.SetText Data2
 
 doc.Close
 Word.Quit
 Set doc = Nothing
 Set Word = Nothing
 MsgBox "数据复制至剪切板完成."
End Sub

Answer 6

以上是复制第二页:如果复制第N页,将doc.Paragraphs.Item(i).Range.Information(wdActiveEndPageNumber) = 2 '(将此句中的2改为N)

Answer 7

里面有图片，没法像WholeStory那样复制吗？