bitdust bitdust

🎯

Focusing

bitdust / 删除换行及空格

Created January 14, 2018 06:54

word宏，删除选中文字中的换行及空格，用于调整从PDF文件中复制出的文字格式

	Sub 删除换行及空格()
	'
	' 删除换行及空格宏
	' 用于调整从PDF文件中复制出的文字格式
	'
	Selection.Find.ClearFormatting
	Selection.Find.Replacement.ClearFormatting
	With Selection.Find
	.Text = " "
	.Replacement.Text = ""