参考文献排版

hanjianhua06

原始参考文件摘录：

[1]CN105742713A. 东莞新能源科技有限公司等.全固态聚合物锂电池.20160706.

[2]CN104205467A. 住友电气工业株式会社.全固态锂二次电池.20141210.

[3]CN205004387U. 深圳市科恩环保有限公司. 一种基于石墨烯内衬的锂电池.20160127.

[4] CN103346307A. 中山大学等.一种锂离子电池负极材料及其制备方法.20131009.

[5] CN102623686A.松下电器产业株式会社. 全固体型聚合物电池. 20120801.


目标参考文献样式：
[1] 东莞新能源科技有限公司等. 全固态聚合物锂电池:中国，105742713[P]. 2016-07-06.


有上百篇文献代处理，特别想用通配符来替换，尤其是前后顺序（多步操纵无妨），请教各位大侠，有没有好办法？

smhf_6

这个东西只是一次性消费，手工操作一下可以了
在表格中数据分列，按“.“分列，然后重新组合一下。
特殊情况手工调整。

duquancai

使用通配符，查找框中填入(\[[0-9]@\])*CN([0-9]@)[A-Z].(*)[. ]@([0-9]{4})([0-9]{2})([0-9]{2}.)(^13)替换框中填入\1\3:中国，\2[P]. \4-\5-\6\7

duquancai

如果是很多很多篇文档，那么VBA遍历文件，按照3楼的通配符，逐个文档查找替换，保存关闭，再下一个文档，如此循环。。。。。。。。。

hanjianhua06

duquancai太强了！

hanjianhua06

我把样例拷贝到一个新word中，运行查找(\[[0-9]@\])*CN([0-9]@)[A-Z].(*)[. ]@([0-9]{4})([0-9]{2})([0-9]{2}.)(^13)  替换为\1\3:中国，\2[P]. \4-\5-\6\7命令，没有成功（替换0处）。
自己试图研究下，修改为(\[[0-9]@\])CN([0-9]@)[A-Z].(*)[. ]@([0-9]{4})([0-9]{2})([0-9]{2}.)(^13)，也不行。还有劳duquancai大侠解析解析。不胜感激！

hanjianhua06

hanjianhua06 发表于 2017-9-3 21:56
我把样例拷贝到一个新word中，运行查找(\[[0-9]@\])*CN([0-9]@)[A-Z].(*)[. ]@([0-9]{4})([0-9]{2})([0-9]{ ...

duquancai大侠，我忘记选择通配符了，愚昧，见笑见笑！

duquancai

hanjianhua06 发表于 2017-9-3 21:56
我把样例拷贝到一个新word中，运行查找(\[[0-9]@\])*CN([0-9]@)[A-Z].(*)[. ]@([0-9]{4})([0-9]{2})([0-9]{ ...

哎！既然是知道通配符，那么应该明白，查找替换这玩意儿，你不提供附件，胡说什么呢？