请教老师写一个word vba代码

yslvictor

我是vba初学者，有关excel代码，知道一点，我更喜欢word，现在想知道word文档全部选中的代码怎么写？还有复制的代码怎么写？连在一起就是：复制第一行到最后一行的word的vba代码怎么写？请老师赐教。

413191246se

楼主，“复制第一行”这个“行”字不准确，应该说是第一段落才好。
另外，既然是初学者，学习 Word VBA 的最好的办法就是多多录制宏，一点一点地入门。
还有，微软官方免费的 Word-VBA 学习帮助文档，你有没有？如果没有，可以网络搜索“VBAWD10.CHM"关键词来下载学习之。
Sub test()
    ActiveDocument.Content.InsertAfter Text:=vbCr & ActiveDocument.Paragraphs(1).Range.Text
End Sub

约定的童话

Word.Documents.Open (lj & "\" & arr(i, 1)) '打开模板word数据
            Word.ActiveDocument.Bookmarks("\page").Range.Copy '选择数据复制粘贴
            Word.ActiveDocument.Close False '关闭当前这个word文件
'            Word.ActiveDocument.Range.InsertBefore (s)
            Word.Selection.PasteAndFormat (wdUseDestinationStylesRecovery) '粘贴在下面

yslvictor

谢谢两位老师。还得好好学呀