在特定段落的段首添加字符

yym_0114 · 发表于 2016-7-18 00:32

再次感谢大家的热心帮助！因为是第一次在这里发帖求助，所以弱弱的问一句，这里有没有结贴的功能？我的问题已经解决，之后看到此贴的大虾们就不要再费心思了。

13907933959 · 发表于 2016-7-18 07:27

yym_0114 发表于 2016-7-17 23:33
非常感谢您的回复！实际测试之后没问题。虽然是分三步达到目的，但以我粗浅的VBA知识，可以很快理解代码 ...

网友好！
真正高级的是5楼duquancai前辈提供的代码！我的虽能满足您的要求，毕竟还处在最低的录制宏级，不过能用就好。

hhjjpp · 发表于 2016-7-18 10:35

yym_0114 发表于 2016-7-17 23:37
感谢您的回复！我把您的代码复制到我的word VBA里面，运行之后※标记在一个段落中无限复制，直到word崩溃 ...

我估计是你拷贝代码时没有完全照搬我的，开始调试我也出现这种情况，注意其中的.Text = "^13[!※]"
,而不是.Text = "^13[!※]^13"

hhjjpp · 发表于 2016-7-18 14:20

另外，我的附件有你的问题和网址，并不想加符号

正式的附件，应该还加一句，自动把光标移至文头：
Selection.HomeKey Unit:=wdStory

		自动登录	找回密码
密码			免费注册

[求助] 在特定段落的段首添加字符