ppt 启用宏和控件及webbrowser控件不能使用解决办法

yangqianming

当一个不懂vba的人拿到一个包含宏和控件的ppt，在使用时不会启用宏和控件，还有webbrowser控件注册问题，让人不知所措，
我弄了一个批处理代码，可以解决这个问题，启用和禁用两个差不多，要启用就双击哪个就可以解决。发上来供大家参考使用。

启用和禁用宏控件wb注册.zip (1.37 KB, 下载次数: 17)

2023-5-16 18:48 上传

点击文件名下载附件

yangqianming

启用宏和控件就是用批处理修改了一下注册表键值：复制代码粘贴到记事本，把文件名后缀txt改为bat，双击一下就启用成功了，代码如下：
@echo off
echo 正在获取ppt版本值：
set ppt_version=
for /f "delims=. skip=2 tokens=3" %%i in ('reg query "HKEY_CLASSES_ROOT\PowerPoint.Application\CurVer"') do set ppt_version=%%i
set /a a= %ppt_version% *1000
set a=%a:~,-3%.%a:~-3,1%
echo a=%a%

echo 正在启用宏：
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\%a%\PowerPoint\Security" /v "VBAWarnings" /t REG_DWORD /d 1 /f

reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\%a%\Excel\Security" /v "VBAWarnings" /t REG_DWORD /d 1 /f

echo 正在启用Office 的 ActiveX控件 ：

REG ADD "HKCU\Software\Microsoft\Office\Common\Security" /v "DisableAllActiveX" /t REG_DWORD /d 0 /f

shenjianrong163

yangqianming 发表于 2023-5-22 21:36
启用宏和控件就是用批处理修改了一下注册表键值：复制代码粘贴到记事本，把文件名后缀txt改为bat，双击一下 ...

请问下，如果同时安装有两个Office版本，怎样将两个版本都获取出来呢？谢谢！

yangqianming

shenjianrong163 发表于 2023-6-3 09:15
请问下，如果同时安装有两个Office版本，怎样将两个版本都获取出来呢？谢谢！

@echo off
echo 正在获取ppt版本值：
set ppt_version=
for /f "delims=. skip=2 tokens=3" %%i in ('reg query "HKEY_CLASSES_ROOT\PowerPoint.Application\CurVer"') do set ppt_version=%%i
set /a a= %ppt_version% *1000
set a=%a:~,-3%.%a:~-3,1%
echo a=%a%

echo 正在启用宏：
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\%a%\PowerPoint\Security" /v "VBAWarnings" /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\%a%\PowerPoint\Security" /v "Level" /t REG_DWORD /d 1 /f

reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\%a%\Excel\Security" /v "VBAWarnings" /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\%a%\Excel\Security" /v "Level" /t REG_DWORD /d 1 /f