如何把word文档转换成markdown格式

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/i042416/article/details/86748233

比如我有一个word文档,我想把它的内容复制粘贴到社交媒体上去,但是全选之后,只能把纯文本复制粘贴到社交媒体网站上,所有word文件里的格式和图片都无法复制过来。

解决方案:使用软件Typora -> import:

clipboard1.png

选择本地的word文件:

clipboard2.png

然后markdown格式的源代码就得到了:

clipboard3.png

要获取更多Jerry的原创文章,请关注公众号"汪子熙":

展开阅读全文

如何word文档转换成html格式?大伙帮我看看.

03-05

Dim strErrrnrnstrErr = WordToHtmrnrnFunction WordToHtm()rnrn On Error Resume Nextrn Dim wrdApp, wrdDoc, strPath, strFileNamernrn strFileName = "B41.doc"rn Set wrdApp = CreateObject("word.application")rn Set wrddoc = wrdapp.Documents.Open("D:\Liangx\TestDoc\" & strFileName, True, False)rnMsgbox "aaa" & Err.Descriptionrn wrdApp.ChangeFileOpenDirectory "D:\liangx\TestDoc\"rnrn wrdDoc.SaveAs "B41.htm", wdFormatHTMLrnMsgbox "bbb" & Err.Descriptionrn wrdDoc.Closern wrdApp.Quitrn Msgbox Err.DescriptionrnEnd FunctionrnrnFunction Test()rn On Error Resume Nextrn Dim objReg, objFA, strFileName, strFileData, strAbsPathrn Dim strCipher, strSafety_gradernrn strAbsPath = "D:\ExOA2000\Server\ExFLow\FlowData\DF3\"rn strFileName = "B41.doc"rn Set objReg = CreateObject("EXREGTOOLS.RegInfo")rn strSafety_grade = objReg.ReadValue("ExFlow","safety grade")rn strCipher = objReg.ReadValue("ExFlow","cipher")rn Set objReg = Nothingrn rn Set objEncrypt = CreateObject("ExEncrypt.IEncrypt")rn objEncrypt.DecryptFileToData Cstr(strAbsPath & strFileName),strCipher,strFileDatarn set objEncrypt = nothingrnrn Set objFA = CreateObject("ExFileAccess.ExFileSys") rn 'objFA.readFile strAbsPath & strFileName, strFileDatarn rn objFA.WriteFile "D:\Liangx\TestDoc\" & strFileName, strFileDatarn strFileData = ""rnrn Set objFA = Nothingrn Test = Err.DescriptionrnrnEnd Functionrn当我把上面的函数存成VBS执行的时候,转换出来的html是乱码.rn 论坛

没有更多推荐了,返回首页