IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[分享] 作为初学者写的一个word转pdf小程序(写的比较糙,多多包涵)

[复制链接]
lxnbhh 发表于 2018-1-29 23:49:52 | 显示全部楼层 |阅读模式

本帖最后由 lxnbhh 于 2018-1-31 00:14 编辑

[code]#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_Icon=4.ico
#AccAu3Wrapper_Outfile=word转pdf.exe
#AccAu3Wrapper_UseX64=n
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#include <Word.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <process.au3>
#include <GuiToolbar.au3>
#include <DateTimeConstants.au3>
#include <ColorConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <GuiStatusBar.au3>
#include <FontConstants.au3>
#include <File.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>


$form1=GUICreate("word文档转换为pdf文档                     " & _timer(),460,320,-1,-1,-1,$WS_EX_ACCEPTFILES);..1.跟2相呼应



$process=GUICtrlCreateProgress(0,270,460,20)

;.................................输入区
Local $group1=GUICtrlCreateGroup("       请选择文件(可以将文件直接拖到这里)",10,10,440,80)
Local $button1=GUICtrlCreateButton("选择",370,40,70,25)
Local $input1=GUICtrlCreateInput("",25,40,320,25,$ES_READONLY)
GUICtrlSetState($input1,$GUI_DROPACCEPTED );...........2.可以直接拖文件进输入框

GUICtrlCreateGroup("",-99,-99,-1,-1)
;.................................输出区
Local $group2=GUICtrlCreateGroup("                  请选择保存的位置",10,100,440,80)
Local $button2=GUICtrlCreateButton("保存",370,140,70,25)
Local $input2=GUICtrlCreateInput("",25,140,320,25,$ES_READONLY)
GUICtrlCreateGroup("",-99,-99,-1,-1)

;................................结束区
Local $button3=GUICtrlCreateButton("开始转换",170,220,70,25)
Local $button4=GUICtrlCreateButton(" 退出 ",370,220,70,25)

;.....................日期和时间
$time=_GUICtrlStatusBar_Create($Form1)

GUISetState(@SW_SHOW)


While 1
        $nmsg=GUIGetMsg()
        Switch $nmsg
                Case $GUI_EVENT_CLOSE,$button4
                        ExitLoop
               Case $button1
                        $doc=_WinAPI_GetOpenFileName("请选择文件","word文档(*.docx;*.doc)")
                        $txt=$doc[1] & "\" & $doc[2]
                        GUICtrlSetData($input1,$txt)
                        GUICtrlSetData($process,20)
                    
                Case $button2
                        $doc2=_WinAPI_GetSaveFileName("请选择保存位置","所有文件 (*.*)","","请输入文件名")
                        $txt2=$doc2[1] & "\" & $doc2[2]
                        $date1=GUICtrlSetData($input2,$txt2)
                        GUICtrlSetData($process,40)
                       
                Case $button3
                        If GUICtrlRead($input1)="" Then
                                MsgBox(0,"","您尚未选择文件!")
                        ElseIf GUICtrlRead($input2)="" Then
                                MsgBox(0,"","您尚未选择保存路径!")
                        Else
                                $b=_Word_Create(False,False)
                                Local $oDoc = _Word_DocOpen($b, GUICtrlRead($input1), Default, Default,True)
                                Local $sFileName = @TempDir & "\" & $doc2[2] & ".pdf"
                                _Word_DocExport($oDoc, $sFileName, Default, Default,Default,Default)
                                _Word_DocClose($oDoc)
                                Sleep(100)
                                ProcessClose("WINWORD.EXE")
                                FileMove($sFileName,$doc2[1] & "\")
                                Sleep(300)
                                GUICtrlSetData($process,100)
                                MsgBox(0,"提示","转换成功!!!!!!!!!!!!!",1)
                                Sleep(200)
                                GUICtrlSetData($process,0)
                        EndIf
        EndSwitch
              $d= _GUICtrlStatusBar_SetText($time,_time() & "                         " & "By:  lxnbhh")
                Sleep(50)
WEnd
Func _time()
       
                $t=@TAB & _NowDate() & "  " & _NowTime()
                Return $t
       
EndFunc

Func _timer()
        Switch @HOUR
    Case 6 To 11
        Return ("上午好")
    Case 12 To 17
       Return ("下午好")
    Case 18 To 21
        Return ("晚上好")
    Case Else
        Return ("还不准备睡觉吗")
        EndSwitch
        EndFunc
QQ截图20180131000849.png
最近访问 头像模式 列表模式
时代中风 发表于 2018-1-30 08:38:08 | 显示全部楼层

活跃 24028| 技术 0| 互助 7| 钻石 10

鼓励一下
zjw424260912 发表于 2018-1-30 08:42:45 | 显示全部楼层

活跃 5615| 技术 0| 互助 0| 钻石 0

不错,不错!
noender 发表于 2018-1-30 09:21:13 | 显示全部楼层

活跃 27819| 技术 6| 互助 19| 钻石 0

这个准确率高吗。

点评

还可以,,,你们也可以测试下~。~  详情 回复 发表于 2018-1-30 10:10
pengfakui 发表于 2018-1-30 10:07:41 | 显示全部楼层

活跃 24472| 技术 14| 互助 22| 钻石 40

厉害。赞一个。
 楼主| lxnbhh 发表于 2018-1-30 10:10:18 来自手机 | 显示全部楼层

活跃 130| 技术 0| 互助 0| 钻石 0

noender 发表于 2018-1-30 09:21
这个准确率高吗。

还可以,,,你们也可以测试下~。~
noender 发表于 2018-1-30 11:43:39 | 显示全部楼层

活跃 27819| 技术 6| 互助 19| 钻石 0

哦。。我在网上找的这一些程序。用过后。只有70-80左右的。好多的都是要改动。呵呵。哪就先用用看。。谢了。

点评

可能是有限制的,但是里面没有说明,就不知道限制在哪。。。。可能达到某个字数或者页数就不行了  详情 回复 发表于 2018-1-30 12:47
高瑞 发表于 2018-1-30 12:09:17 | 显示全部楼层

活跃 23| 技术 0| 互助 0| 钻石 0

怎么弄啊

点评

??????????????  详情 回复 发表于 2018-1-30 12:48
 楼主| lxnbhh 发表于 2018-1-30 12:47:43 | 显示全部楼层

活跃 130| 技术 0| 互助 0| 钻石 0

noender 发表于 2018-1-30 11:43
哦。。我在网上找的这一些程序。用过后。只有70-80左右的。好多的都是要改动。呵呵。哪就先用用看。。谢了 ...

可能是有限制的,但是里面没有说明,就不知道限制在哪。。。。可能达到某个字数或者页数就不行了
 楼主| lxnbhh 发表于 2018-1-30 12:48:27 | 显示全部楼层

活跃 130| 技术 0| 互助 0| 钻石 0


??????????????

点评

如何做成软件  详情 回复 发表于 2018-1-30 20:26
14531212 发表于 2018-1-30 13:32:48 | 显示全部楼层

活跃 226| 技术 0| 互助 0| 钻石 10

AU3看着好强大,我也想学习下了

点评

学啊!挺有趣的  详情 回复 发表于 2018-1-30 13:58
 楼主| lxnbhh 发表于 2018-1-30 13:58:03 来自手机 | 显示全部楼层

活跃 130| 技术 0| 互助 0| 钻石 0

14531212 发表于 2018-1-30 13:32
AU3看着好强大,我也想学习下了

学啊!挺有趣的
zbbsrh 发表于 2018-1-30 18:09:01 | 显示全部楼层

活跃 29823| 技术 0| 互助 2| 钻石 0

感谢您的分享!!
高瑞 发表于 2018-1-30 20:26:39 | 显示全部楼层

活跃 23| 技术 0| 互助 0| 钻石 0

lxnbhh 发表于 2018-1-30 12:48
??????????????

如何做成软件

点评

下个au3啊  详情 回复 发表于 2018-1-30 21:29
 楼主| lxnbhh 发表于 2018-1-30 21:29:24 来自手机 | 显示全部楼层

活跃 130| 技术 0| 互助 0| 钻石 0

高瑞 发表于 2018-1-30 20:26
如何做成软件

下个au3啊

点评

好的,谢谢了  详情 回复 发表于 2018-1-30 22:41
高瑞 发表于 2018-1-30 22:41:51 | 显示全部楼层

活跃 23| 技术 0| 互助 0| 钻石 0


好的,谢谢了
 楼主| lxnbhh 发表于 2018-1-31 00:18:54 | 显示全部楼层

活跃 130| 技术 0| 互助 0| 钻石 0

稍微改良了一下,晚上发现这个程序在我笔记本上不行,但是家里台式机跟网吧的都可以,不知道为啥,有没有大神知道

点评

是不是WORD版本问题  详情 回复 发表于 2018-2-8 20:33
yuhomesheng 发表于 2018-2-8 20:33:46 | 显示全部楼层

活跃 6626| 技术 47| 互助 66| 钻石 20

lxnbhh 发表于 2018-1-31 00:18
稍微改良了一下,晚上发现这个程序在我笔记本上不行,但是家里台式机跟网吧的都可以,不知道为啥,有没有大 ...

是不是WORD版本问题
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

lxnbhh

130

活跃

0

技术

0

互助
签到任务
最火的业界新闻
  • 小米8充电测试:支持QC4+快充 2小时充满
  • 京东全面转型无界零售基础设施服务商
  • 博通发布10万兆“网卡”:8核A72处理器、双
  • 回击AMD 32核撕裂者 Intel谋划28核超发烧X5
  • AMD二代锐龙“线程撕裂者”现已全球上市
  • 华硕推新款入门级电竞显示器:防撕裂+1ms响
  • Nvidia发布Quadro RTX高端GPU新品 采用Turi
  • 全球DRAM内存市场营收再创纪录 三星毛利率
  • 2399元性价凸显!荣耀Play 64GB升级128GB:
  • 西数蓝盘SSD深度评测:就凭这告别机械时代
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 兄弟,来中国学习真是难为你了。。。
  • 如果我变成鬼之后
  • 看懂这幅图的年纪都不小了吧?你今年几岁呢
  • 我也不知道这是怎么了
  • 原以为是这样但实际是这样
  • 一看都是泪
  • 爬山
  • 说的有道理
  • 一念之间
  • 橘子
关注官方微信
快速回复 返回顶部 返回列表