工作需要几千词几百文档标标红色本写词表已经实现文档标所关键词希望能高手帮忙给完善实现同文件夹word文档批量查找替换
自写宏概:(引号要标关键词)
Dim oDict, strKey
Set oDict = CreateObject("Scripting。
Dictionary")
oDict。Add "高技术", "高技术"
oDict。Add "阳光央企", "阳光央企"
oDict。Add "见光死", "见光死"
oDict。
Add "准入", "准入"
······‘处省略万字
oDict。Add "电商", "电商"
······
For Each strKey In oDict。
Keys
Selection。Find。ExecuteFindText:=strKey
Selection。Font。Color =wdColorRed
Selection。StartOfwdStory
Next Application。
Move Left:=39, Top:=22 ActiveDocument。Save MsgBox "完"End Sub
我想让每竖行单词都左齐每竖行文都左齐
哪位师告诉我啊。
答：在任务栏，也就是屏幕下方的蓝边上右键选择属性，点开始菜单标签，选择经典开始菜单，点自定义，看到清除按钮后点击，清除灰色后确定。详情>>
答：找到对方的IP，输入IE地址里就行了！详情>>
