我是在编WORD的宏时遇到的问题。

[godzilala]

我DOWN了很多书籍，想打印出来，但是是网页格式，想转成文档文件（WORD）。发现有很多的空行和不必要的换行，想编段宏来快速解决问题。
请问如何把剪切板的内容赋值给变量（如下的a），如何获得页数和行数并赋值给变量？

下面是已经弄好的一个TEXT。
Sub text1()
'Dim a As String

Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
' a = Clipboard.gettext
' Selection.MoveDown Unit:=wdLine, Count:=4
' Selection.TypeParagraph 'enter
' Selection.Paste

End Sub

[hxy2003]

UP