下面是一个简单的VBA代码示例，可以将桌面上的Word文件批量另存为网页格式：
```
Sub SaveAsWebPage()
Dim objWord As Object
Dim objDoc As Object
Dim strDesktopPath As String
Dim strDocName As String
Dim strSavePath As String
' 获取桌面路径
strDesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
' 创建Word对象
Set objWord = CreateObject("Word.Application")
' 遍历桌面上的Word文件
For Each objFile In CreateObject("Scripting.FileSystemObject").GetFolder(strDesktopPath).Files
If Right(objFile.Name, 4) = ".doc" Or Right(objFile.Name, 5) = ".docx" Then ' 如果是Word文件
' 打开Word文档
Set objDoc = objWord.Documents.Open(objFile.Path)
' 获取文档名称
strDocName = objDoc.Name
' 构建保存路径
strSavePath = strDesktopPath & "\" & Replace(strDocName, ".doc", ".html") ' 将扩展名改为.html
' 另存为网页格式
objDoc.SaveAs2 strSavePath, FileFormat:=wdFormatHTML
' 关闭Word文档
objDoc.Close
' 输出保存路径
Debug.Print "Saved " & strSavePath
End If
Next
' 退出Word应用程序
objWord.Quit
End Sub
```
该代码首先获取桌面路径，然后遍历桌面上的文件，如果是Word文件，则打开并将其另存为网页格式。最后输出保存路径，并退出Word应用程序。请注意，该代码仅在Windows操作系统上有效，且需要启用Microsoft Word对象库。