帮我将下面的WORD宏代码写成可以单独运行的VBS代码： ChangeFileOpenDirectory "C:\1\" Documents.Open FileName:="1.docx", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto, XMLTransform:="" With ActiveDocument .UpdateStylesOnOpen = True .AttachedTemplate = "Normal" .XMLSchemaReferences.AutomaticValidation = True .XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False End With ActiveDocument.Save ActiveDocument.Close

以下是将WORD宏代码转换为VBS代码的示例：

Dim objWord, objDoc

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

objWord.ChangeFileOpenDirectory "C:\1\"
Set objDoc = objWord.Documents.Open("C:\1\1.docx", False, False, False, "", "", False, "", "", wdOpenFormatAuto, "", False, False, False, False)

With objDoc
    .UpdateStylesOnOpen = True
    .AttachedTemplate = "Normal"
    .XMLSchemaReferences.AutomaticValidation = True
    .XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
    .Save
    .Close
End With

Set objDoc = Nothing
Set objWord = Nothing

请注意，这段代码涉及到了许多Word对象和属性，如果您对VBA和Word对象模型不熟悉，可能需要花费一些时间来理解代码中的各个部分。