JiaHe

使用VBA批量将Word转成PDF

发表于 2023-05-12 分类于 VBA 本文字数： 158 阅读时长 ≈ 1 分钟

Sub ConvertWordToPDF()
    Dim folderPath As String
    Dim wordFile As String
    Dim pdfFile As String
    Dim wordApp As Object

    '设置要转换的文件夹路径
    folderPath = "C:\Users\JIAHE\Desktop\Output\"

    '创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")

    '关闭屏幕更新，加快转换速度
    wordApp.ScreenUpdating = False

    '循环遍历目录下的所有Word文件
    wordFile = Dir(folderPath & "*.doc*")
    Do While wordFile <> ""
        '构造PDF文件名
        pdfFile = Left(wordFile, Len(wordFile) - 4) & ".pdf"

        '打开Word文件
        wordApp.Documents.Open folderPath & wordFile

        '将Word文件保存为PDF文件
        wordApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            folderPath & pdfFile, ExportFormat:=17, OpenAfterExport:=False

        '关闭Word文档
        wordApp.ActiveDocument.Close

        '获取下一个Word文件名
        wordFile = Dir()
    Loop

    '关闭Word应用程序
    wordApp.Quit

    '恢复屏幕更新
    Application.ScreenUpdating = True

End Sub

CentOS7+OpenVPN2.4+EasyRsa3的安装和配置

发表于 2023-05-11 分类于 Linux ， CentOS7 本文字数： 1.8k 阅读时长 ≈ 6 分钟

设备环境

设备	IP	网卡	系统
外网主机	192.168.56.30	NAT	Windows
虚拟机OpenVPN-Server	192.168.56.29 172.16.30.101	ens33 ens36	CentOS7
虚拟机内网设备	172.16.30.102	ens36	CentOS7

阅读全文 »

根据地址检索匹配完整省市区县

发表于 2023-05-09 分类于编程技术本文字数： 331 阅读时长 ≈ 1 分钟

步骤

AreaCity 省市区镇，下载ok_data_level4.csv
创建数据库，数据表，导入数据

SET NAMES utf8mb4;
SET FOREIGN_KEY_CHECKS = 0;

DROP TABLE IF EXISTS `region`;
CREATE TABLE `region`  (
  `id` int(9) UNSIGNED NOT NULL COMMENT '城市编号',
  `pid` int(9) NOT NULL COMMENT '上级ID',
  `deep` int(1) NOT NULL COMMENT '层级深度',
  `name` varchar(255) NOT NULL COMMENT '简短地区名称',
  `pinyin_prefix` varchar(255) NOT NULL COMMENT '拼音前缀',
  `pinyin` varchar(255) NOT NULL COMMENT '完整拼音',
  `ext_id` bigint(13) NOT NULL COMMENT '数据源原始的编号',
  `ext_name` varchar(255) NOT NULL COMMENT '数据源原始的完整名称',
  PRIMARY KEY (`id`) USING BTREE,
  INDEX `pid_idx`(`pid`) USING BTREE,
  INDEX `name_idx`(`name`) USING BTREE,
  INDEX `ext_name_idx`(`ext_id`) USING BTREE
) ENGINE = InnoDB CHARACTER SET = utf8mb4 COLLATE = utf8mb4_general_ci ROW_FORMAT = Dynamic;

SET FOREIGN_KEY_CHECKS = 1;

测试SQL

SELECT
	t2.province_name 省, t2.city_name 市, t2.district_name 区, t2.county_name "乡/县/街道"
FROM
	(
		SELECT
			r.id province_code, r.name province_name, r1.name city_name, r2.name district_name, r3.name county_name
		FROM
			region r
			LEFT JOIN region r1 ON r.id = r1.pid AND r1.deep = 1
			LEFT JOIN region r2 ON r1.id = r2.pid AND r2.deep = 2
			LEFT JOIN region r3 ON r2.id = r3.pid AND r3.deep = 3
		WHERE
			r.deep = 0
	) t2
WHERE
	-- '亚运村街道' 替换为需要补全或检索的地址关键词
	(
		INSTR ( '亚运村街道', t2.province_name )
		OR INSTR ( '亚运村街道', t2.city_name )
		OR INSTR ('亚运村街道', t2.district_name)
		OR  INSTR ('亚运村街道', t2.county_name)
	)
	AND INSTR ( '亚运村街道', t2.county_name)