用VBA吧,按ALT+F11
复制横线内的代码 并粘贴到里面
---------------------------------------------------------------------
Sub jiafuhao()
Dim x
x = 1
hh:
If x < 1000 Then '1000为要加符号的总行数 可根据需要改
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:="?" '?每行未加的标点号 可根据需要改
x = x + 1
GoTo hh
Else
End If
End Sub
----------------------------------------
然后把光标定到要加符号的开始行
点“工具”-“宏”-“宏”
选中jiafuhao ,再点“运行”
你可以做一个记号,文档不出现的符号,或者是文字,例如“0”,写完之后可以用“查找与替换”就可以了