开通会员
- 尊享所有功能
- 文件大小最高200M
- 文件无水印
- 尊贵VIP身份
- VIP专属服务
- 历史记录保存30天云存储
帮助中心 >
vba的word转pdf-Access VBA,创建Word文件后,怎样保存为PDF格式? - ...
2023-01-02 07:01:41
access vba,创建word文件后,怎样保存为pdf格式? - ...
恭喜你有了解决办法。
或者如果你电脑有pdf虚拟打印机的话，你可以不用安装另外的插件，用pdf打印机直接打印即可：
appword.activeprinter = "cutepdf writer" '选择pdf打印机
appword.printout
vba,将word的一段文字自动保存为rtf文件
sub 宏2()
'
' 宏2 宏
'
'
selection.copy
documents.add template:="normal", newtemplate:=false, documenttype:=0
selection.pasteandformat (wdpastedefault)
selection.wholestory
selection.copy
fname = mid(selection.text, 1, 5) & ".doc"
activedocument.saveas2 filename:=fname, fileformat:=wdformatrtf, _
lockcomments:=false, password:="", addtorecentfiles:=true, writepassword _
:="", readonlyrecommended:=false, embedtruetypefonts:=false, _
savenativepictureformat:=false, saveformsdata:=false, saveasaoceletter:= _
false, compatibilitymode:=0
activewindow.close
end sub
在执行宏之前要选中一段文字。默认的文件名是前5个字,保存的位置是我的文档，如果不行的话，可以搜索*.rtf。
在线交流。
'
' 宏2 宏
'
'
selection.copy
documents.add template:="normal", newtemplate:=false, documenttype:=0
selection.pasteandformat (wdpastedefault)
selection.wholestory
selection.copy
fname = mid(selection.text, 1, 5) & ".doc"
activedocument.saveas2 filename:=fname, fileformat:=wdformatrtf, _
lockcomments:=false, password:="", addtorecentfiles:=true, writepassword _
:="", readonlyrecommended:=false, embedtruetypefonts:=false, _
savenativepictureformat:=false, saveformsdata:=false, saveasaoceletter:= _
false, compatibilitymode:=0
activewindow.close
end sub
在执行宏之前要选中一段文字。默认的文件名是前5个字,保存的位置是我的文档，如果不行的话，可以搜索*.rtf。
在线交流。
vba 将 word 字符复制到excel 或txt
你的代码可以用的。
sub test()
dim i
dim wrd as range
i = selection.font.colorindex
for each wrd in activedocument.words
if wrd.font.colorindex <> i then wrd.copy
saveastxtfile '调用saveastxtfile
next wrd
end sub
sub saveastxtfile()
const 指定文件名 = "autosave01.txt"
documents.add template:="normal", newtemplate:=false, documenttype:=0
selection.pastespecial link:=false, datatype:=wdpastetext
activedocument.saveas2 filename:=指定文件名, fileformat:=wdformattext, encoding:=936
activedocument.close
end sub
