一般问题:如何将由 Microsoft Office 中的“录制”创建的 VBA 宏中的功能“翻译”为可能位于 .vbs 文件中的 Windows 可执行 VBScript?
具体问题:如何批量创建Word文档的缩略图以便在Windows资源管理器中查看?
替代问题:我在哪里可以找到有关使用 VBS 操作 MS Word 文档的文档?
我的最终目标是批处理为 MS Word 文档创建缩略图的过程。
我的人工方法是:
- 打开 Word 文档
- 按“另存为”
- 勾选“保存缩略图”
- 保存和替换
我从一个小网站上发现,VBS 以 .vbs 文件的形式可以操作 Word 文档。可以通过在 Windows 资源管理器中双击 .vbs 文件来执行的示例:
'in a file called "something.vbs"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "Network Adapter Report"
objSelection.TypeParagraph()
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
我还发现通过“录制宏”,我可以获得一些用缩略图保存文档的 VBA 代码。这是我录制的一个宏:
Sub save_with_thumbnail()
'
' save_with_thumbnail Macro
'
'
ChangeFileOpenDirectory _
"E:\"
ActiveDocument.SaveAs2 FileName:="as90520.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=0
End Sub
这两种方法中的每一种都解决了我的部分问题,但我无法将它们两者结合起来。因此我问是否有人-
- 可以通过将 VBA 宏所做的转换为 Windows 可执行脚本来帮助集成/组合/无论这两种方法,或者
- 可以就如何在 Windows 资源管理器中为 MS Word 文档批量创建缩略图提供建议,或者
- 知道某处存在一些参考文档,这些参考文档提供了更多关于这个
CreateObject.("Word.Application")
和.Documents.Add()
和.Selection
和..SaveAs
- 无论如何,各种各样的信息。
希望我对这个问题的措辞足够好。提前感谢您的帮助。