如何在word中每行末尾加入同一标点

1.如何在word中每行末尾加入同一标点

用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 ，再点“运行”