提取文件夹下所有WORD文档的文件名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提取文件夹下所有WORD文档的文件名

共有5694人关注过本帖树形打印复制链接主题：提取文件夹下所有WORD文档的文件名

zhuxinhui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

提取文件夹下所有WORD文档的文件名 发帖心情

Post By：2022/5/5 12:53:00 [显示全部帖子]

Dim r As String

Dim rr As String

For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\")

''If FileSys.GetName(File) Like ".DOC" Then

r = r &"|"& File

rr = rr &"|"& FileSys.GetName(File)

''End If

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")

cmb.ComboList = rr

想提取文件夹下所有WORD文档的文件名,放在e.form.Controls("ComboBox1")供选择使用

这个文件格式怎样加条件呢??

zhuxinhui

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/5 14:40:00 [显示全部帖子]

提取完文本后想设置打印页置

Dim f As String = e.Form.Controls("ComboBox1").value

Dim TemplateName As String = ProjectPath & "Attachments\" & f

Dim ReportName As String = ProjectPath & "Reports\" & f

Dim doc As New WordReport(Tables("销售出库"), TemplateName, ReportName)

doc.BuildOne(Tables("销售出库").Current)

doc.Show()

Dim doc As New PrintDoc() '= ProjectPath & "Attachments\销售出库.doc" '定义一个报表

doc.PageSetting.Width = 210

doc.PageSetting.Height = 140

doc.PageSetting.LeftMargin = 10 '设置左边距

doc.PageSetting.RightMargin = 10 '设置右边距

doc.PageSetting.Landscape = False ''''''''逻辑型,是否横向打印

doc.PageSetting.TopMargin = 10 ''''''上边距,单位为毫米

doc.PageSetting.BottomMargin = 10 ''''''''底边距,单位为毫米

doc.Preview() '预览

怎样把这二个连在一起,想把生成的WORD文档设置为210*140的连续打印格式

zhuxinhui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/5 15:52:00 [显示全部帖子]

有点蓝老师：现在是不是，先生成WORD文档保存起来先，再使用VBA代码对文档进行设置并打印

zhuxinhui

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/5 17:05:00 [显示全部帖子]

Dim f As String = e.Form.Controls("ComboBox1").value

Dim TemplateName As String = ProjectPath & "Attachments\" & f

Dim ReportName As String = ProjectPath & "Reports\" & f

Dim Doss As New WordReport(Tables("销售出库"), TemplateName, ReportName)

Doss.BuildOne(Tables("销售出库").Current)

Doss.Show()

Dim app As New MSWord.Application

Dim WordD As MSWord.Document = app.Documents.Open(ReportName)

With WordD.PageSetup

'.LineNumbering.Active = False

.Orientation = False '''''''页面方向为纵向

.TopMargin = 3.3 '''''''''''上边距

.BottomMargin = 3.3 '''''''''''''''''下边距

.LeftMargin = 2.8 '''''''''''' '左边距

.RightMargin = 2.8 '''''''''''''右边距

.Gutter = 0 '''''''''''''''''''装订线

'.HeaderDistance = 1.5 '''''''''''''''''''页眉

'.FooterDistance = 1.8 '''''''''''''页脚

.PageWidth = 21 ''''''''''页面宽度

.PageHeight = 14 '''''''''''页面高度'

'.OddAndEvenPagesHeaderFooter = False '不勾选"奇偶页不同"

'.DifferentFirstPageHeaderFooter = False '不勾选"首页不同"

'.SuppressEndnotes = False '不隐藏尾注

'.MirrorMargins = False '不设置首页的内外边距

'.TwoPagesOnOne = False

'.BookFoldPrinting = False

'.BookFoldRevPrinting = False '不设置手动双面打印

'.BookFoldPrintingSheets = 1 '默认打印份数为1

End With

WordD.PrintPreview()

生成还是达不到210*140打印格式设置的效果

哪里出错了呢？？??

这个连打搞了我好几日了

zhuxinhui

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/5 17:57:00 [显示全部帖子]

.PageWidth = CentimetersToPoints(21) '纸张宽21cm

.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm

.TopMargin = CentimetersToPoints(2) '上边距2cm

.BottomMargin = CentimetersToPoints(1.5) '下边距1.5cm

.LeftMargin = CentimetersToPoints(2.5) '左边距2.5cm

.RightMargin = CentimetersToPoints(1.5) '右边距1.5cm

.HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm

.FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm

这个不能用于FT吗？

zhuxinhui

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/6 9:32:00 [显示全部帖子]

用WORD的格式生成数据，再使用VBA进行页面设置，预览都不是按设定的宽高进行的，打印出来就是按这个宽高度进行打印，是否可以预览也是按自定义的宽高纸进行

zhuxinhui

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/6 11:48:00 [显示全部帖子]

是用代码设定页面宽高值

zhuxinhui

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/6 13:53:00 [显示全部帖子]

Dim f As String = e.Form.Controls("ComboBox1").value

Dim f1 As Integer = e.Form.Controls("NumericComboBox1").value

Dim f2 As Integer = e.Form.Controls("NumericComboBox2").value

Dim TemplateName As String = ProjectPath & "Attachments\" & f

Dim ReportName As String = ProjectPath & "Reports\" & f

Dim Doss As New WordReport(Tables("销售出库"), TemplateName, ReportName)

Doss.BuildOne(Tables("销售出库").Current)

Doss.quit

Dim app As New MSWord.Application

Dim WordD As MSWord.Document = app.Documents.Open(ReportName)

With WordD.PageSetup

.LineNumbering.Active = False

.Orientation = False '''''''页面方向为纵向

.TopMargin = app.CentimetersToPoints(0.2) '''''''''''上边距

.BottomMargin = app.CentimetersToPoints(0.2) '''''''''''''''''下边距

.LeftMargin = app.CentimetersToPoints(2.0) '''''''''''' '左边距

.RightMargin =app.CentimetersToPoints(0.5) '''''''''''''右边距

.PageWidth = app.CentimetersToPoints(f1) '595 ''''''''''页面宽度

.PageHeight =app.CentimetersToPoints(f2) ''397 '''''''''''页面高度'

.BookFoldPrintingSheets = app.CentimetersToPoints(1) '默认打印份数为1

End With

APP.Visible = True

WordD.PrintPreview()

App.Quit

MessageBox.Show("已生成", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)

zhuxinhui

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/6 16:04:00 [显示全部帖子]

安装了2007/2003，安装什么的office有好些

zhuxinhui

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2036 积分：6620 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2022/5/6 16:06:00 [显示全部帖子]

此主题相关图片如下：qq截图20220506160529.png

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：提取文件夹下所有WORD文档的文件名