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

2024-11-02 07:22:57

推荐回答（2个）

回答（1）：

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

回答（2）：

你可以做一个记号，文档不出现的符号，或者是文字，例如“0”，写完之后可以用“查找与替换”就可以了