zoukankan      html  css  js  c++  java
  • beyondcompare 的word 直接转txt 脚本

    自带的word转换不稳定,直接调用word转出来的格式好看,缺点当然是依赖word。

    命令行:wscript Helpers\doc2txt.vbs %s %t

    脚本内容:(转换UTF-8的文本格式)

    ' ==> doc2txt.cmd <==
    ' cscript //Nologo "%~dpn0.vbs" "%~1"
    ' if errorlevel 1 pause
    
    Option Explicit
    On Error Resume Next
     
    Dim objWordApp
    Dim objWordDoc
    
    Dim objFileSys
    Dim objFile
    
    Dim strWordFilePath
    Dim strTextFilePath
     
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
    
    
    strWordFilePath = WScript.Arguments(0)
    Set objFile     = objFileSys.GetFile(strWordFilePath)
    
    strTextFilePath = WScript.Arguments(1)
    
    
    Set objWordApp = WScript.CreateObject("Word.Application")
    
    If Err.Number = 0 Then
      'WScript.Echo "create success"
    
      Set objWordDoc = objWordApp.Documents.Open(objFile.Path, false, true)
      'WScript.Echo "will save to" & strTextFilePath
      If Err.Number = 0 Then
    
        'WScript.Echo "open success"
        objWordDoc.SaveAs2 strTextFilePath, 2, false, "", true, "", false, false, false, false, false, 65001
     
        objWordDoc.Close
        objWordApp.Quit
      Else
        WScript.Echo "error:" & Err.Description
      End If
    Else
      WScript.Echo "error:" & Err.Description
    End If
     
    Set objWordDoc = Nothing
    Set objWordApp = Nothing
    Set objFileSys = Nothing
    Set objFile    = Nothing
  • 相关阅读:
    Java阶段测试题一
    HttpClient配置及运用(一)
    字符串数组及链表的应用:例题
    Java多线程
    String普通方法测试;可变参数
    Java连接mysql数据库
    JS练习
    foreach遍历、包装类、Object类
    Java多态总结
    类的关联,不同类属性的调用
  • 原文地址:https://www.cnblogs.com/dongzhiquan/p/15693748.html
Copyright © 2011-2022 走看看