‘\u7ed1\u5b9a Microsoft Word
Dim oWord As Object ‘Microsoft Word Application \u672c\u8eab
Call BindWord(True)
Dim oDocument As Object ‘Microsoft Word \u591a\u6587\u6863\u4e4b\u4e00<\/p>\n\n\n\n
‘\u6253\u5f00\u5e76\u7ed1\u5b9a\u6587\u4ef6 D:\/Test.rtf
Set oDocument = oWord.Application.Documents.Open(“D:\/Test.rtf”)<\/p>\n\n\n\n
‘\u7ed1\u5b9a\u5df2\u7ecf\u6253\u5f00\u6587\u4ef6 Demo.doc
Set oDocument = oWord.Documents.Item(“Demo.doc”)<\/p>\n\n\n\n
‘\u65b0\u5efa\u6587\u4ef6\u5e76\u7ed1\u5b9a
Set oDocument = oWord.Documents.Add<\/p>\n\n\n\n
‘\u7ed1\u5b9a\u5df2\u7ecf\u6253\u5f00\u7684\u5f53\u524d\u6587\u4ef6
Set oDocument = oWord.ActiveDocument<\/p>\n\n\n\n
‘\u53e6\u5b58\u6587\u4ef6\u5e76\u6307\u5b9a\u683c\u5f0f
oDocument.SaveAs \u201cD:\/TestBack\u201d, FileFormat:=6 ‘RTF Format<\/p>\n\n\n\n
‘\u9000\u51fa Microsoft Word \u5e76\u91ca\u653e\u8d44\u6e90
oWord.Quit
Set oWord = Nothing
Set oDocument = Nothing<\/p>\n","protected":false},"excerpt":{"rendered":"