求批量创建word,并简单修改内容的方法
用邮件合并。
管理员。
是楼主逼我去做复制党的。
在日常办公事务中,许多邮件除了对收信人的公司、地址、姓名及称谓等不同外,其他内容 基本上相同。
Word能够自动地按给出的一批收信人的信息,生成一批相应的邮件,这便是邮件合 并的功能。
邮件合并是把每份邮件中都重复的内容与区分不同邮件的数据合并起来。
前者称为" 主文档",后者称为"数据源"。
在邮件合并操作中,主文档中包含对每个版本的合并文档都相同 的文字和图形,如返回套用信函的地址和正文。
即主文档中包含邮件中重复的全部内容。
数据源 中则包含不相重复的内容。
通过在文档中插入特殊的"合并域",告诉Word应在什么地方打印来自 数据源的变化信息。
如果使用"工具"菜单中的"邮件合并"命令生成数据源,Word将在一个表格中 建立该数据源。
该表格的每一列对应于数据源中的每一数据域。
域名列于表格的第一行(域名行)。
以下每一行包括一个数据记录。
当数据源和主文档进行合并操作时,Word将把主文档中的合并域 替换成来自数据源中的相应信息,从而迅速生成多份格式文档。
由于合并文档在书信、信封、邮 件标签等方面最为常用,故称为邮件合并(Mail Merge)。
邮件合并可分为四个步骤:1. 建立主文档;2. 建立或打开数据源;3. 在主文档中插入合并域,告诉Word要在何处插入数据源中的相应数据;4. 执行合并操作,将数据源中的可变数据与主文档中的标准文本内容合并,形成合并文档。
8.1 文档的创建与使用 打开"工具"菜单,选择"邮件合并"命令,系统便弹出"邮件合并帮助器"对话框。
单击"1 主文档" 下的"创建"按钮,打开一个菜单,从中选择"套用信函"。
这时,便出现消息对话框。
这时系统 询问是否利用当前的活动窗口作为主文档或再新建一个新文档, Word将在工作区自动显示邮件 合并工具栏,用户可按下"活动窗口"按钮,返回"邮件合并帮助器"对话框,在"1 主文档 "下面 又出现了一个"编辑"按钮。
同时"2 数据源"下的"获取数据"按钮,从暗淡显示变为有效, 如果 单击该按钮,可以进入下一步建立数据源的工作。
8.2 数据源的打开与建立 邮件合并帮助器对话框的"2 数据源"下,按下"获取数据"按钮,便会出现一个菜单,其中 包括"建立数据源"、"打开数据源"、"使用通讯录"和"域名选项"四条命令。
一、打开数据源 如果用户已拥有所需的数据源,如收信人的姓名、公司名称、地址、电话号码、邮政编码等数 据文件,可选择"打开数据源"命令,这时会弹出"打开数据源"对话框,便能选择数据源文件。
二、建立数据源 如果需要建立数据源,可选择"建立数据源"命令,Word便会弹出"建立数据源"对话框。
在"域名行中的域名"列表框中,Word列出了常用的域名。
利用"删除域名"按钮,可以对域名进 行删除;利用对话框右侧的上下移动按钮,还可以调整各个域名在列表框中的相对位置(当在 列表框中选中一个域名,按向上或向下移动箭头,便可使该域名上(或下)移一行位置);如 果要增加新的域名,可在"域名"文本框内输入新的域名,"新增域名"按钮便由暗淡显示变为有 效,按下该按钮,就能在右边的"域名行中的域名"列表框内增加新的域名。
经增减域名后,单 击"确定"按钮,进入"保存数据源"对话框,确定数据源文件放在哪个盘、哪个目录下,以什么 文件名保存,按下"确定"按钮,Word将显示消息对话框,询问是否对数据源或主文档进行编辑。
选择"编辑数据源"按钮,便进入"数据表单"对话框,其中左边的列表框内的域是源自于"建立 数据源"对话框中最终出现在"域名行中的域名"框内的域名,表示前面曾设置了五个域名。
在 这个列表框中,可以输入所需的数据,这些数据以记录的形式输入,最后一般是以表格的形式 出现在文档窗口。
输入一条记录后,单击"新增"按钮,便可继续输入下一条记录。
记录输入完 毕后,单击"确定"按钮,便可关闭"数据表单"对话框,返回主文档编辑窗口。
这时按下"插入 合并域"按钮,便有了五个域名作为合并域。
单击邮件合并工具栏上的"编辑数据源"按钮 ,仍 可回到"数据表单"对话框。
"数据表单"对话框中各命令按钮功能如下:l "记录"按钮:用于键入或选择所要显示的记录号;l "删除"按钮:从数据源中删除当前数据表单的记录信息;l "还原"按钮:将当前记录还原到编辑前的状态;l "查找"按钮:在当前数据库中搜索指定信息;l "查看数据源"按钮:以表格形式显示数据源,每个记录为一行。
在查看数据源时,Word还会显示一条数据库工具栏,以方便用户的操作。
8.3 在主文档中插入合并域 在建立或打开了主文档和数据源之后,为了进行文档合并,必须要在主文档中插入合并域。
当把某个文档指定为主文档后,Word会自动加上邮件合并工具栏。
8.4 合并文档与合并打印 在主文档中插入了合并域,便能进行文档合并。
合并操作有两种方法:方法一:单击邮件合并工具栏上的"合并到文件"按钮 ,合并结果先送到文件中,然后可以再对 其进行修改。
这便是合并文档。
方法二:单击邮件合并工具栏上的"合并到打...
怎样建立Word文档
1、office 2003版,需要安装虚拟打印机,打印文件时选择虚拟打印机,将文档打印成PDF文件,或者安装Adobe Acrobat 软件,打开软件,从文件创建PDF---浏览找到需要转换的文件后创建PDF。
2、office2007版,首先需要从官网http://www.microsoft.com/zh-cn/download/details.aspx?id=7 下载另存PDF格式插件,安装后,保存时有PDF格式可选。
3、office 2010 2013或2016版自带输出PDF格式功能。
文件----保存并发送----创建PDF文档。
4、wps office 也自带输出PDF格式功能。
保存时有PDF格式可选。
5、百度去下载个迅捷pdf转换器就可以了,可以批量的转换。
具体的转换方法如下:第一步,选择文本模式。
在格式转换栏中勾选“word转pdf”。
第二步,点击“添加文件。
添加文件中,在弹出的对话框中找到原PDF文件所在的位置,如果是多个文件按住Ctrl键,一一选定文本,点击”打开“就OK啦。
第三步,选择”文件保存路径“。
第四步,单击“开始转换”。
这时等到显示转换完成即可。
6、利用WORD的宏批量把WORD转换为PDF宏代码如下:Option Explicit Dim FileAddress As String Dim TargetAddress As String Sub Main() Application.ScreenUpdating = False Dim tempStr FileAddress = "C:\Userfile " TargetAddress = "C:\Userfile \PDF\" tempStr = Dir(FileAddress & "\*.docx") While tempStr "" Documents.Open FileAddress & "\" & tempStr SaveAsPdfFile Documents(tempStr).Close False tempStr = Dir Wend Application.ScreenUpdating = True End Sub Sub SaveAsPdfFile() Dim strDocName, strPdfName As String Dim intPos As Integer ' Find position of extension in file name strDocName = ActiveDocument.Name intPos = InStrRev(strDocName, ".") If intPos = 0 Then ' If the document has not yet been saved ' Ask the user to provide a file name strDocName = InputBox("Please enter the name " & _ "of your document.") Else ' Strip off extension and add ".txt" extension strDocName = Left(strDocName, intPos - 1) strPdfName = strDocName & ".pdf" End If ' Save file with new extension ActiveDocument.SaveAs2 FileName:=TargetAddress & strPdfName, _ FileFormat:=wdFormatPDFEnd Sub
请帮忙写点代码批量建立折线图!!(图非常建单)如题,请下载附件...
'可以用以下程序来实现图表的复制 Sub 复制图表() n = 1 For i = 200 To 1002 Step 200 n = n + 1 ActiveSheet.ChartObjects("图表 1").Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy Range("A" & i + 3).Select ActiveSheet.Paste ActiveChart.PlotArea.Select ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B" & i & ":D" & i + 1), PlotBy:=xlRows Next i End Sub '有问题请联络yxb22@ ,顺送祝福
word文档怎么建
word文档创建:创建Word主控文档,首先将要Word文档视图切换至“大纲”视图:在Word2003菜单栏依次单击“视图”→“大纲”菜单命令切换视图,然后利用“大纲”工具栏可以执行与主控文档有关的所有功能,单击“创建子文档”按钮即可。
在Word文档中将光标移动到某一个空段落处,在“样式”列表中选择合适的样式应用于该空白段落。
然后在“大纲”工具栏上单击“创建子文档”按钮创建一个Word子文档,并在Word子文档编辑框中输入Word子文档名称。
成功创建Word子文档后,在保存Word主控文件时Word子文档会自动以刚刚输入的Word子文档名称为文件名保存为单独的文件。
重复这个步骤创建多个Word子文档。
单击“大纲”工具栏上的“折叠/展开子文档”按钮可以使Word子文档变成超链接,在按住Ctrl键的同时单击相应的超链接可以将相应的Word子文档插入当前Word文档进行处理。
...
如何在手机上建立word文档
在手机上建立word文档,主要的步骤为:1. 在手机上的app菜单里搜索word,并按照程序安装。
2. 打开手机版word软件,上方有工作菜单,可以新建一个word文件。
3. 输入内容,编辑自己需要的文档文字内容。
4. 保存编辑完善后的内容,即可得到需要的word文档。
怎样创建word文档
注:vba偶并不太熟(偶一般是用c#和delphi的),VBA只是稍有了解,以下代码大部分是偶google到的内容拼出来的。
。
。
。
。
如下,使用时先更改test下的docpath和xlspath路径设定,docpath即你的word的目录,此目录包括子目录下的所有doc将被读取,xlspath即输出目录,需要存在 在VBA窗口中,先在视图下显示立即窗口以观察进度,程序最后的输出类似这样 正在读取[1]:->D:\1\Resume.doc 正在生成:->d:\2\Resume 正在读取[2]:->D:\1\简历(简).doc 正在生成:->d:\2\简历(简) 正在读取[3]:->D:\1\计数器说明.doc 正在生成:->d:\2\计数器说明 共耗时0分41秒 Option Explicit Dim docpath As String, xlspath As String'ResultFlag=0 获取路径'ResultFlag=1 获取文件名'ResultFlag=2 获取扩展名 Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String Dim SplitPos As Integer, DotPos As Integer SplitPos = InStrRev(FullPath, "\") DotPos = InStrRev(FullPath, ".") Select Case ResultFlag Case 0 SplitPath = Left(FullPath, SplitPos - 1) Case 1 If DotPos = 0 Then DotPos = Len(FullPath) + 1 SplitPath = Mid(FullPath, SplitPos + 1, DotPos - SplitPos - 1) Case 2 If DotPos = 0 Then DotPos = Len(FullPath) SplitPath = Mid(FullPath, DotPos + 1) Case Else Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!" End Select End Function Public Function FileFolderExists(ByVal strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True EarlyExit: On Error GoTo 0 End Function Sub Test() '使用双字典,旨在提高速度 Dim MyName, Dic, Did, I, T, F, TT, MyFileName, Doc, Ke Dim count As Integer count = 0 T = Time docpath = "D:\1\" xlspath = "d:\2\" Set Dic = CreateObject("Scripting.Dictionary") '创建一个字典对象 Set Did = CreateObject("Scripting.Dictionary") Dic.Add (docpath), "" I = 0 Do While I Ke = Dic.keys '开始遍历字典 MyName = Dir(Ke(I), vbDirectory) '查找目录 Do While MyName "" If MyName "." And MyName ".." Then If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then '如果是次级目录 Dic.Add (Ke(I) & MyName & "\"), "" '就往字典中添加这个次级目录名作为一个条目 End If End If MyName = Dir '继续遍历寻找 Loop I = I + 1 Loop 'Did.Add ("文件清单"), "" '以查找D盘下所有EXCEL文件为例 For Each Ke In Dic.keys MyFileName = Dir(Ke & "*.doc") Do While MyFileName "" Doc = Ke & MyFileName Did.Add (Doc), "" count = count + 1 Debug.Print "正在读取[" & count & "]:->" & Doc doc2xls (Doc) MyFileName = Dir Loop Next ' For Each Sh In ThisWorkbook.Worksheets ' If Sh.Name = "XLS文件清单" Then ' Sheets("XLS文件清单").Cells.Delete ' F = True ' Exit For ' Else ' F = False ' End If ' Next 'If Not F Then ' Sheets.Add.Name = "XLS文件清单" 'End If 'Sheets("XLS文件清单").[A1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys) TT = Time - T Debug.Print "共耗时" & Minute(TT) & "分" & Second(TT) & "秒" End Sub Sub doc2xls(filename As String) Dim xlApp As Object, xlSheet As Object, outfile As String, c As Object Set xlApp = CreateObject("Excel.Application") Set xlSheet = xlApp.Workbooks.Add.Sheets(1) Dim Wapp As Object, Doc As Object, GetDocText As Object 'Word Application 对象、Document 对象 Set Wapp = CreateObject("Word.Application") '创建Word Application 对象 Set Doc = Wapp.Documents.Open(filename, ReadOnly:=True) '打开文档,返回一个文档对象'xlSheet.Range("A1") = Doc.Content.Text Doc.Application.Selection.WholeStory ''''全选 Doc.Application.Selection.Copy ''''''''''复制 xlSheet.Range("A1").Select xlSheet.Paste outfile = xlspath + Replace(SplitPath(filename, 1), ".doc", ".xls") Debug.Print "正在生成:->" & outfile xlSheet.Parent.SaveAs outfile xlApp.Quit Set xlSheet = Nothing Set xlApp = Nothing Wapp.Quit Set Doc = Nothing Set Wapp = Nothing End Sub
转载请注明出处51数据库 » etl批量创建word