Notes

@echo off

SET "WordRegPath=HKCUSoftwareMicrosoftOffice"
SET "Versions=10.0 11.0 12.0 14.0 15.0 16.0 16.0"

FOR %%V IN (%Versions%) DO (
reg add "%WordRegPath%%%VWordOptions" /v "CheckSpellingAsYouType" /t REG_DWORD /d 0 /f
reg add "%WordRegPath%%%VWordOptions" /v "CheckGrammarAsYouType" /t REG_DWORD /d 0 /f
)

echo Pemeriksaan ejaan dan tata bahasa telah dinonaktifkan di Microsoft Word untuk semua versi yang didukung.
pause



@echo off

SET "OfficeRegPath=HKCUSoftwareMicrosoftOffice"
SET "Versions=16.0 15.0 14.0 12.0 11.0 10.0"

FOR %%V IN (%Versions%) DO (
REM Mengubah unit ukuran di Word
reg add "%OfficeRegPath%%%VWordOptions" /v "MeasurementUnit" /t REG_DWORD /d 2 /f

REM Mengubah unit ukuran di Excel
reg add "%OfficeRegPath%%%VExcelOptions" /v "MeasurementUnit" /t REG_DWORD /d 2 /f
)

echo Ukuran unit telah diubah dari inci ke sentimeter di Word dan Excel untuk semua versi yang didukung.
pause


@echo off
SET "OfficeRegPath=HKLMSOFTWAREMicrosoftOffice"

REM Cek untuk versi 16.0 (Office 2016/2019/2021/365)
reg query "%OfficeRegPath%16.0CommonLicenses" /s | findstr /i "LicenseStatus"

REM Cek untuk versi 15.0 (Office 2013)
reg query "%OfficeRegPath%15.0CommonLicenses" /s | findstr /i "LicenseStatus"

REM Cek untuk versi 14.0 (Office 2010)
reg query "%OfficeRegPath%14.0CommonLicenses" /s | findstr /i "LicenseStatus"

REM Cek untuk versi 12.0 (Office 2007)
reg query "%OfficeRegPath%12.0CommonLicenses" /s | findstr /i "LicenseStatus"

REM Cek untuk versi 11.0 (Office XP)
reg query "%OfficeRegPath%11.0CommonLicenses" /s | findstr /i "LicenseStatus"

REM Cek untuk versi 10.0 (Office 2000)
reg query "%OfficeRegPath%10.0CommonLicenses" /s | findstr /i "LicenseStatus"

echo.
pause


@echo off
SET "WordRegPath=HKLMSOFTWAREMicrosoftOffice"

echo Memeriksa versi Microsoft Word...

REM Cek untuk versi 16.0 (Office 2016/2019/2021/365)
reg query "%WordRegPath%16.0WordInstallRoot" /v Path > nul 2>&1
IF %ERRORLEVEL% EQU 0 (
echo Microsoft Word 2016/2019/2021/365 terinstal.
)

REM Cek untuk versi 15.0 (Office 2013)
reg query "%WordRegPath%15.0WordInstallRoot" /v Path > nul 2>&1
IF %ERRORLEVEL% EQU 0 (
echo Microsoft Word 2013 terinstal.
)

REM Cek untuk versi 14.0 (Office 2010)
reg query "%WordRegPath%14.0WordInstallRoot" /v Path > nul 2>&1
IF %ERRORLEVEL% EQU 0 (
echo Microsoft Word 2010 terinstal.
)

REM Cek untuk versi 12.0 (Office 2007)
reg query "%WordRegPath%12.0WordInstallRoot" /v Path > nul 2>&1
IF %ERRORLEVEL% EQU 0 (
echo Microsoft Word 2007 terinstal.
)

REM Cek untuk versi 11.0 (Office XP)
reg query "%WordRegPath%11.0WordInstallRoot" /v Path > nul 2>&1
IF %ERRORLEVEL% EQU 0 (
echo Microsoft Word XP terinstal.
)

REM Cek untuk versi 10.0 (Office 2000)
reg query "%WordRegPath%10.0WordInstallRoot" /v Path > nul 2>&1
IF %ERRORLEVEL% EQU 0 (
echo Microsoft Word 2000 terinstal.
)

echo.
pause