20190226_xlVba提取查新标题和关键词
Sub MainProc()
Dim Sht As Worksheet
Dim Wb As Workbook
Set Wb = Application.ThisWorkbook
Set Sht = Wb.Worksheets(1)
Sht.Cells.Clear
Sht.Range("A1:D1").Value = Array("中文标题", "英文标题", "关键词", "文件名称")
'FolderPath = Wb.Path & "\指定文件夹\"
FolderPath = FolderPicker
If FolderPath = "" Then Exit Sub
Filename = Dir(FolderPath & "*.doc*")
Dim wdApp As Object
Dim doc As Object
Dim tb As Object
Dim p As Object
Dim keys As String
Dim IsGet As Boolean
Dim chnTitle As String
Dim enTitle As String
Set wdApp = CreateObject("Word.Application")
counter = 1
Do While Filename <> ""
FilePath = FolderPath & Filename
Set doc = wdApp.documents.Open(FilePath)
IsGet = False
keys = ""
chnTitle = ""
enTitle = ""
counter = counter + 1
With doc
Set tb = .Tables(1)
chnTitle = tb.Cell(1, 2).Range.Text
enTitle = tb.Cell(2, 2).Range.Text
For Each p In doc.Paragraphs
i = i + 1
' Debug.Print i; " "; p.Range.Text
If p.Range.Text Like "*中文关键词*" Then IsGet = True
If p.Range.Text Like "*查新项目的查新点*" Then IsGet = False
If IsGet And Not p.Range.Text Like "*关键词*" Then
keys = keys & p.Range.Text
End If
Next
End With Sht.Cells(counter, 1).Value = chnTitle
Sht.Cells(counter, 2).Value = enTitle
Sht.Cells(counter, 3).Value = keys
Sht.Cells(counter, 4).Value = Filename
doc.Close False
Filename = Dir
Loop
wdApp.Quit
Set wdApp = Nothing
Set doc = Nothing
Set Wb = Nothing
Set Sht = Nothing
End Sub
Function FolderPicker() As String
Dim FolderPath As String
InitialPath = Application.ActiveWorkbook.Path
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = InitialPath
If .Show = -1 Then
FolderPath = .SelectedItems(1)
Else
MsgBox "您没有选中任何文件夹,本次汇总中断!"
End If
End With
If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath & "\"
FolderPicker = FolderPath
End Function
20190226_xlVba提取查新标题和关键词的更多相关文章
- dedecms头部标签(标题,关键词,描述标签)(借用)
先说说dedecms头部标题,关键词,描述标签的作用我相信网络上也有很多这样的信息,那为什么我还要写这个?因为这个对我们初学者来说还是比较重要的,因为做SEO就要用到这些标签.首先我写下首页头部标签我 ...
- excel批量提取网页标题
最近时间比较忙,有时候很多网页需要临时保存,以便空闲的时候查看.单纯的保存网页链接会让人很枯燥,所以需要自动批量提取标题. 为了这个小功能去写个小程序有点不划算,所以就利用excel实现了这个功能. ...
- WordPress简洁的SEO标题、关键词和描述
WordPress标题.关键词和描述,之所以简洁,那是站在SEO的角度来考虑的. 首先,现在关键词这个标签早已被搜索引擎扔进历史的垃圾堆,所以这个keywords标签已经没用了,不写也罢. 其次,描述 ...
- python提取百度经验<标题,发布时间,平均流量,总流量,具体的链接>
之前想研究下怎么抓网页数据.然后就有了下面的练习了. 如有BUG.也纯属正常. 只是练习.请勿投入产品使用. #!/usr/bin/python # -*- coding: utf-8 -*- #Fi ...
- java 使用正则表达式从网页上提取网站标题
如何从网页上抓取有价值的东西?看懂了下面的程序(非常简单),想从网页上抓取什么信息(标题.内容.Email.价格等)就能抓取什么信息. package catchhtml; import java.i ...
- Gradle +HanLP +SpringBoot 构建关键词提取,摘要提取 。入门篇
前段时间,领导要求出一个关键字提取的微服务,要求轻量级. 对于没写过微服务的一个小白来讲.有点赶鸭子上架,但是没办法,硬着头皮上也不能说不会啊. 首先了解下公司目前的架构体系,发现并不是分布式开发,只 ...
- hanlp提取文本关键词的使用方法记录
本文是csu_zipple 分享的关于使用hanlp汉语言处理包提取关键词的过程一个简单的记录分享.想要使用hanlp提取文本关键词的新手朋友们可以参考学习一下! 如何在一段文本之中提取出相应的关键词 ...
- 基于TextRank提取关键词、关键短语、摘要
一.TextRank原理 TextRank是一种用来做关键词提取的算法,也可以用于提取短语和自动摘要.因为TextRank是基于PageRank的,所以首先简要介绍下PageRank算法. 1. Pa ...
- 关键词提取算法-TextRank
今天要介绍的TextRank是一种用来做关键词提取的算法,也可以用于提取短语和自动摘要.因为TextRank是基于PageRank的,所以首先简要介绍下PageRank算法. 1.PageRank算法 ...
随机推荐
- python2,python3同时安装时,python3可以安装并升级pip库,python2报错的解决办法
最近在使用pip安装包的的时候出现下面错误 UnicodeEncodeError: 'ascii' codec can't encode character u'\u258f' 查询资料后发现原因是p ...
- [js]面向对象1
数据赋值拷贝 1,值得赋值是独立的 num1=12; num1=num2 将存储值赋值一份存储. 2, var age=22; age2=age; age=24 console.log(age); a ...
- python 爬虫-2
小白新手完全不懂的什么,还有一个robots.txt限制文件,稀里糊涂的 还是百度 可以看一下:http://www.baidu.com/robots.txt 里面会有一些限制,常见的一些配 ...
- Centos7.2 Install subversion server
l 安装svn yum install subversion l 查看svn版本 svnserve --version l 创建svn版本库目录 mkdir -p /projects/ ...
- [openjudge-搜索]城堡问题(The Castle)
题目描述 描述 图1是一个城堡的地形图.请你编写一个程序,计算城堡一共有多少房间,最大的房间有多大.城堡被分割成mn(m≤50,n≤50)个方块,每个方块可以有0~4面墙. 输入 程序从标准输入设备 ...
- mybatis源码解析12---ResultSetHandler解析
说完了StatementHandler和ParameterHandler,接下来就需要对查询的结果进行处理了,而对于sql结果的处理是由ResultSetHandler处理的,ResultHandle ...
- java中的ElasticSearch搜索引擎介绍。
ElasticSearch是一个基于Lucene的搜索服务器.它提供了一个分布式多用户能力的全文搜索引擎,基于RESTful web接口.Elasticsearch是用Java开发的,并作为Apach ...
- pssh批量管理
因为公司金融项目正式上线,有等保的要求,所有的线上服务器对操作过历史命令都要记录下来,需要修改一部分的配制文件.总共有300多台Linux服务器,总不能一台一台去改吧.首先想到是ansble,salt ...
- openGL学习----相机
0.参考:https://learnopengl-cn.github.io/01%20Getting%20started/09%20Camera/ 0.0其实相机就是搞清楚cameraPos,came ...
- nodejs cannot find module 'mysql' 问题分析
在windows平台下,测试nodejs连接mysql数据库. 首先 在控制台中安装mysql依赖包 npm install mysql 安装成功后,mysql依赖包可以在User目录中的node_m ...