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 | 显示全部楼层

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

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

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

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

活跃 30642| 技术 11| 互助 42| 钻石 0

这个准确率高吗。

点评

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

活跃 25690| 技术 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 | 显示全部楼层

活跃 30642| 技术 11| 互助 42| 钻石 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 | 显示全部楼层

活跃 230| 技术 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 | 显示全部楼层

活跃 30719| 技术 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 | 显示全部楼层

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

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

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

本版积分规则

lxnbhh

130

活跃

0

技术

0

互助
签到任务
最火的业界新闻
  • i5-9600K抢先测试:取代i7-7700K
  • 1399元起!荣耀平板5今日首发开卖:双扬声
  • 酷冷至尊众筹24键ControlPad:Aimpad压感
  • 小米6S意外现身:骁龙835+6GB内存、安卓9.0
  • AMD Ryzen 7 2700X降至上市价88折:Intel i
  • 百度外卖被饿了么收购后正式改名“饿了么星
  • 魅族X8上市推迟 黄章:京东方定制屏幕出现
  • 华硕发布工作站主板WS Z390 Pro:支持双路x
  • 部分业主质疑基站有辐射拒安装 三大运营商
  • 内存、闪存未来还要降 美光1亿美元投资为AI
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 设计神殿的衣服
  • 10胞胎的阿拉斯加,看一眼就被帅到了...
  • 那些经典的神回复,哈哈简直精彩了
  • 这不是垃圾桶
  • 男女的差别
  • 高个子女生的烦恼
  • 研究变美
  • 宝宝和狗
  • 中国火锅排行榜看完口水都流出来了
  • 出轨
关注官方微信
快速回复 返回顶部 返回列表