word内的内容加上行号

word内的内容加上行号

在word中的代码如果需要加上行号，可以编写一个宏，然后选中内容运行即可。

=====================================================

Sub HangHao()Dim parag As ParagraphDim nLineNum: nLineNum = 0Dim selRge As RangeSet selRge = Selection.RangeFor Each parag In Selection.ParagraphsnLineNum = nLineNum + 1selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & " ")NextEnd Sub

===================================================

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。