求VB合并WORD文档?

2004-01-08 10:15:37 289 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

高速DAC时钟与配置实战：DAC5681Z硬件设计与寄存器编程详解在高速数据转换系统中，时钟信号是决定系统性能的核心要素，其稳定性和纯净度直接影响数模转换器（DAC）的输出频谱纯度与动态范围。时钟电路的设计原理涉及信号完整性、阻抗匹配与直流偏置，而内部锁相环（PLL）和延迟锁相环（DLL）的配置则是实现精确时序控制的关键技术。这些技术的价值在于，它们共同保障了高速通信、雷达和任意波形生成等应用对信号实时性与精度的严苛要求。本文聚焦于德州仪器（TI）的DAC5681Z，深入解析其外部时钟输入电路的硬件设计要点，包括端接电阻的计算与选型，并详细拆解通过串行外设接口（SPI）对阅读详情

1.把若干WORD文档合并到一个文档中.
2.查找当前目录下的今天创建的WORD文档.

两个问题,望各位大大给予指点.
最好可以给出详细代码.
谢谢先.

...全文

HTTP 代理服务器的设计与实现 HTTP 代理服务器的设计与实现首先当然是最重要的代码：github地址 1) 实验目的熟悉并掌握 Socket 网络编程的过程与技术；深入理解 HTTP 协议，掌握 HTTP 代理服务器的基本工作原理；掌握 HTTP 代理服务器设计与编程实现的基本技能。 2) 实验内容基于 java 实现了基本功能与全部附加功能，并增加了 https 的支持 (1) 设计并实现一个基本 HTTP 代理服... 阅读详情

aodzl

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

busisoft 2004-01-09

打赏
举报

查找当前目录下的今天创建的WORD文档.
用SoHo_Andy(冰) 就不错

busisoft 2004-01-09

打赏
举报

'合并word文档
Dim WordApp As Application

On Error Resume Next
Set WordApp = GetObject(, "word.application")
If Err Then
Err.Clear
Set WordApp = CreateObject("word.application")
If Err Then
MsgBox ("不能运行WORD，请检查是否安装了WORD！")
Exit Sub
End If
End If
WordApp.Visible = False
WordApp.Documents.Add
WordApp.Selection.InsertFile (App.Path + "\doc\ss01.doc")
WordApp.Selection.InsertFile (App.Path + "\doc\3-1b.doc")
WordApp.ActiveDocument.SaveAs (App.Path + "\doc\JSS.doc")

WordApp.Documents.Close
WordApp.Quit
Set WordApp = Nothing

aodzl 2004-01-09

打赏
举报

恩，谢谢大家。
揭帖

SoHo_Andy 2004-01-08

打赏
举报

'问题2
Dim strFileName() As String
Private Sub Command1_Click()
Dim i As Integer
Call 查找文件
For i = 0 To UBound(strFileName) - 1
Debug.Print strFileName(i)
Next
End Sub
Sub 查找文件()
Dim filename As String
Dim fs, f, s, filespec
Dim j As Long
j = -1
'filename = Dir(App.Path & "\*.doc")
filename = Dir("d:\*.doc")
Do While filename <> ""
If filename <> "." And filename <> ".." Then
Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFile(App.Path & "\" & filename)
Set f = fs.GetFile("d:\" & filename)
If DateDiff("d", f.DateCreated, Now) = 0 Then
j = j + 1
ReDim Preserve strFileName(j + 1)
strFileName(j) = filename
End If
End If
filename = Dir ' 查找下一个文件。
Loop
End Sub

SoHo_Andy 2004-01-08

打赏
举报

问题1
文件名使用变量，插入文件位置可以使用书签来定位

Private Sub cmd合并文档_Click()
Dim WordTemps As New Word.Application
WordTemps.Documents.Add App.Path + "\母文档.doc", False

WordTemps.Selection.InsertFile FileName:="d:\aa.doc", _
Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
WordTemps.Selection.InsertFile FileName:="d:\bb.doc", _
Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

WordTemps.Visible = True

End Sub

求VB合并WORD文档?

相关推荐