如何在word中提取特定词组计数？

a15143026461 · 发表于 2018-8-15 19:06

要求：1、word里面提取江西地名（省、市、县）并计数 2、县一级取数后归类到市一级

最后的格式是这样：江西共计X篇，其中南昌X、赣州X、上饶X、九江X、萍乡X、吉安X、鹰潭X、新余X、宜春X等等。。

请问各位大神，用vba怎么弄？

小花鹿 · 发表于 2018-8-15 19:17

问题是怎么弄清隶属关系？

a15143026461 · 发表于 2018-8-15 19:24

小花鹿发表于 2018-8-15 19:17
问题是怎么弄清隶属关系？ ...

市县
南昌市南昌县
南昌市新建区
南昌市安义县
南昌市进贤县
景德镇市乐平市
萍乡市湘东区
萍乡市莲花县
萍乡市上栗县
萍乡市芦溪县
九江市共青区
九江市九江县
九江市武宁县
九江市修水县
九江市永修县
九江市德安县
九江市星子县
九江市都昌县
九江市湖口县
九江市彭泽县
九江市瑞昌市
新余市分宜县
鹰潭市余江县
鹰潭市贵溪市
赣州市赣县
赣州市信丰县
赣州市大余县
赣州市上犹县
赣州市崇义县
赣州市安远县
赣州市龙南县
赣州市定南县
赣州市全南县
赣州市宁都县
赣州市于都县
赣州市兴国县
赣州市会昌县
赣州市寻乌县
赣州市石城县
赣州市瑞金市
赣州市南康区
吉安市吉安县
吉安市吉水县
吉安市峡江县
吉安市新干县
吉安市永丰县
吉安市泰和县
吉安市遂川县
吉安市万安县
吉安市安福县
吉安市永新县
吉安市井冈山市
宜春市奉新县
宜春市万载县
宜春市上高县
宜春市宜丰县
宜春市靖安县
宜春市铜鼓县
宜春市丰城市
宜春市樟树市
宜春市高安市
抚州市临川区
抚州市南城县
抚州市黎川县
抚州市南丰县
抚州市崇仁县
抚州市乐安县
抚州市宜黄县
抚州市金溪县
抚州市资溪县
抚州市东乡县
抚州市广昌县
上饶市上饶县
上饶市广丰区
上饶市玉山县
上饶市铅山县
上饶市横峰县
上饶市弋阳县
上饶市余干县
上饶市鄱阳县
上饶市万年县
上饶市婺源县
上饶市德兴市

182197315 · 发表于 2018-8-15 21:37

本帖最后由 182197315 于 2018-8-15 21:50 编辑

Sub 统计()
Dim i%, k%, mat, d, reg, sr$
Set d = CreateObject("scripting.dictionary")
Set reg = CreateObject("VBScript.RegExp")
With reg
.Global = True
.Pattern = "\d+．\[江西\]\[地行\]([一-龢]+)"
Set mat = .Execute(ActiveDocument.Content)
End With
For i = 0 To mat.Count - 1
d(mat(i).SubMatches(0)) = d(mat(i).SubMatches(0)) + 1
Next
For k = 0 To d.Count - 1
If sr <> "" Then sr = sr & "，"
sr = sr & d.Keys()(k) & d.Items()(k) & "次"
Next
Debug.Print sr
End Sub

a15143026461 · 发表于 2018-8-16 08:34

182197315 发表于 2018-8-15 21:37
Sub 统计()
Dim i%, k%, mat, d, reg, sr$
Set d = CreateObject("scripting.dictionary")

大神，还是有bug，运行后的结果出现了一个宜春、一个宜春市。还有就是没有实现统计"江西"出现的频次.
运行结果如下：
上饶市2次，景德镇市1次，抚州市1次，新余市6次，萍乡1次，九江1次，萍乡市1次，宜春市3次，宜春2次

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

[求助] 如何在word中提取特定词组计数？