分了好多节的word通过VBA调出某一节的页码范围
是这样啊,我想要分节另存为,比如说第一节另存为一个word,第二节另存为一个word;但是,另存为的选项只能是输入确定的页码(fromto),从第几页到第几页,不能像打印...
是这样啊,我想要分节另存为,比如说第一节另存为一个word,第二节另存为一个word;
但是,另存为的选项只能是输入确定的页码(from to),从第几页到第几页,不能像打印一样,可以直接输入S1打印第一节,或者输入S2打印第二节;
能不能自动获取第一节的页码范围,然后输入到另存为的 from 第几页 to 第几页 的公式中去?
怎么获取?VBA的方法,直接掰着指头数,倒是可以,忒麻烦!!!求VBA的方式来解决!
求指点!!!
大侠有点提示或者相关的都说一下,我初学VBA,不太懂,O(∩_∩)O谢谢 展开
但是,另存为的选项只能是输入确定的页码(from to),从第几页到第几页,不能像打印一样,可以直接输入S1打印第一节,或者输入S2打印第二节;
能不能自动获取第一节的页码范围,然后输入到另存为的 from 第几页 to 第几页 的公式中去?
怎么获取?VBA的方法,直接掰着指头数,倒是可以,忒麻烦!!!求VBA的方式来解决!
求指点!!!
大侠有点提示或者相关的都说一下,我初学VBA,不太懂,O(∩_∩)O谢谢 展开
1个回答
展开全部
sub test ()
istart = InputBox("输入你要打印的起始节")
iEnd = InputBox("输入你要打印的结束节") '为了方便搞了两个inputbox,你可以用一个,方法如下:
'规定一个格式,然后用instr,left,right等得到起始和结束的节数
Dim doc As Document
Dim rngDoc As Range
Set doc = ActiveDocument
Set rngDoc = doc.Range(Start:=doc.Paragraphs(istart).Range.Start, _
End:=doc.Paragraphs(iEnd).Range.End)
rngDoc.Select
doc.PrintOut Range:=wdPrintSelection
Set rngDoc = Nothing
Set doc = Nothing
end sub
istart = InputBox("输入你要打印的起始节")
iEnd = InputBox("输入你要打印的结束节") '为了方便搞了两个inputbox,你可以用一个,方法如下:
'规定一个格式,然后用instr,left,right等得到起始和结束的节数
Dim doc As Document
Dim rngDoc As Range
Set doc = ActiveDocument
Set rngDoc = doc.Range(Start:=doc.Paragraphs(istart).Range.Start, _
End:=doc.Paragraphs(iEnd).Range.End)
rngDoc.Select
doc.PrintOut Range:=wdPrintSelection
Set rngDoc = Nothing
Set doc = Nothing
end sub
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |