我是在编WORD的宏时遇到的问题。
我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