精华内容
下载资源
问答
  • Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹...
    Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 
    Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
    ' On Error Resume Next '忽略错误
    '定义一个文件夹选取对话框
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
    .Filters.Clear '清除所有文件筛选器中的项目
    .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
    .AllowMultiSelect = True '允许多项选择
    If .Show = -1 Then '确定
    Application.ScreenUpdating = False
    For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
    Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
    With Doc
    With .PageSetup '进行页面设置
    .Orientation = wdOrientPortrait '页面方向为纵向
    .TopMargin = CentimetersToPoints(2.2) '上边距为2.2cm
    .BottomMargin = CentimetersToPoints(2.2) '下边距为2.2cm
    .LeftMargin = CentimetersToPoints(2.5) '左边距为2.5cm
    .RightMargin = CentimetersToPoints(2.5) '右边距为2.5com
    .Gutter = CentimetersToPoints(0) '装订线0cm
    .HeaderDistance = CentimetersToPoints(1.5) '页眉1.5cm
    .FooterDistance = CentimetersToPoints(1.75) '页脚1.75cm
    .PageWidth = CentimetersToPoints(21) '纸张宽21cm
    .PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm
    .SectionStart = wdSectionNewPage '节的起始位置:新建页
    .OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同”
    .DifferentFirstPageHeaderFooter = False '不勾选“首页不同”
    .VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐”
    .SuppressEndnotes = False '不隐藏尾注
    .MirrorMargins = False '不设置首页的内外边距
    .BookFoldRevPrinting = False '不设置手动双面打印
    .BookFoldPrintingSheets = 1 '默认打印份数为1
    .GutterPos = wdGutterPosLeft '装订线位于左侧
    .LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格”
    End With
    With .Content.ParagraphFormat '段落格式设置
    .LeftIndent = CentimetersToPoints(0) '左缩进0cm
    .RightIndent = CentimetersToPoints(0) '右缩进0cm
    .SpaceBefore = 0 '段前间距0cm
    .SpaceBeforeAuto = False '段前间距不设为“自动”
    .SpaceAfter = 0 '段后间距0cm
    .SpaceAfterAuto = False '段后间距不设为“自动”
    .LineSpacingRule = wdLineSpaceExactly
    .LineSpacing = 24 '行距24磅
    .Alignment = wdAlignParagraphJustify '段落设置为两端对齐
    .WidowControl = False '不勾选“孤行控制”
    .KeepWithNext = False '不勾选“与下段同页”
    .KeepTogether = False '不勾选“段中不分页”
    .PageBreakBefore = False '不勾选“段前同页”
    .NoLineNumber = False '不勾选“取消行号”
    .Hyphenation = True '不勾选“允许西文在单词中间换行”
    .FirstLineIndent = CentimetersToPoints(0) '首行缩进0cm
    .OutlineLevel = wdOutlineLevelBodyText '大纲级别为“正文文本”
    .CharacterUnitLeftIndent = 0 '段落左缩进0cm
    .CharacterUnitRightIndent = 0 '段落右缩进0cm
    .CharacterUnitFirstLineIndent = 0 '特殊格式为“无”
    .LineUnitBefore = 0 '段前间距为0
    .LineUnitAfter = 0 '段后间距为0
    .AutoAdjustRightIndent = True '自动调整段落的右缩进
    .DisableLineHeightGrid = False '勾选“如果定义了文档网格,则对齐网格”,即指定段落中的字符与行网格对齐
    .FarEastLineBreakControl = True '将东亚语言文字的换行规则应用于指定的段落
    .WordWrap = True '在指定段落或文本框的西文单词中间断字换行
    .HangingPunctuation = True '指定段落中的标点将可以溢出边界
    .HalfWidthPunctuationOnTopOfLine = False
    .AddSpaceBetweenFarEastAndAlpha = True '自动在指定段落的中文文字和拉丁文字之间添加空格。
    .AddSpaceBetweenFarEastAndDigit = True '自动在指定段落中的中文文字与数字之间添加空格
    .BaseLineAlignment = wdBaselineAlignAuto '自动调整基线字体对齐方式
    End With
    ''''''''''新增部分
    With .Content
    With .Font
    .NameFarEast = "宋体"
    .NameAscii = "Times New Roman"
    .Size = 12
    End With
    With .Paragraphs.First
    .Range.Font.Size = 16
    .Alignment = wdAlignParagraphCenter
    End With
    End With
    .Close True
    End With
    Next
    Application.ScreenUpdating = True
    End If
    End With
    MsgBox "格式化文档操作设置完毕!", vbInformation
    End Sub
    展开全文
  • Word VBA代码

    2012-10-04 20:36:10
    电子书 微软Word_VBA范例源代码
  • 为了提高录入的效率,同事分别安排下属录入不同的文本,并以数字序号进行命名,最后再在...其实,我们也可以利用VBA代码实现快速合并文本的任务:打开Word文档,按下“Alt+F11”组合键,打开Microsoft Visual Basi...

    为了提高录入的效率,同事分别安排下属录入不同的文本,并以数字序号进行命名,最后再在Word中将这些文本文档合并起来。常规的方法是切换到“插入”选项卡,在“文本”功能组选择“对象→文件中的文字”,如图1所示,按照提示插入相关的文本,操作起来比较麻烦一些。其实,我们也可以利用VBA代码实现快速合并文本的任务:

    打开Word文档,按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入→模块”,在右侧窗格插入一个空白模块,如图所示,手工输入或粘贴如下代码:

    c310bcf0809685be8b7694dde7621d7f.png

    Sub hebin()

    Dim fs1, f1

    Set fs1 = CreateObject("Scripting.FileSystemObject")

    For i = 1 To 4

    file1 = "h:\Download\文本合并\" & i & ".txt"

    Set f1 = fs1.OpenTextFile(file1, 1, 0)

    Selection.TypeText f1.Readall

    Selection.TypeParagraph

    f1.Close

    Next i

    Set f1 = Nothing

    Set fs1 = Nothing

    End Sub

    上述代码中的代码名“hebin”可以任意命名,“h:\Download\文本合并\”表示文本文档所在的路径名称,“For i = 1 To 4”表示待合并文本的数量,代码检查没有错误之后,依次选择“文件→关闭并返回到Microsoft Word”命令,返回Word主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,很快就可以完成合并文本的任务。

    补充:如果文本文档的数量发生变化,只需要修改“ For i = 1 To 4”即可,但必须保证这些文本文档的文件名都是数字的形式。

    展开全文
  • 编写该代码的目的:初衷该代码最初用于我自己弄得...将已有的word文档报告改造成模板,在一个Excel表格中定义一些变量,包括变量名与变量的值(也有一些数组变量)使用VBA代码批量的将word中的变量名替换为变量的值...

    编写该代码的目的:

    初衷

    该代码最初用于我自己弄得一个用于批量化写word报告的东西,因为我原来需要写一堆格式化的报告,不同报告间除了数据发生了变化,其他几乎一模一样,我想偷懒(主要是我容易写错),就使用VBA写了一段代码用于实现自动化,

    将已有的word文档报告改造成模板,

    在一个Excel表格中定义一些变量,包括变量名与变量的值(也有一些数组变量)

    使用VBA代码批量的将word中的变量名替换为变量的值

    然后就可以开心的仅更新Excel表格,批量的生成报告了~

    这个理想很美丽,但实际执行过程中,只有简单点的报告可以这样弄,复杂点的报告因为需要可知化的地方很多,实现起来很痛苦,(特别是一些word中语句需要注意单复数的变换,有些参数缺失时需要完全移除语句),所以该工具旨在我这里用于部分报告的生成。

    现在

    现在我已经不用写报告了 :)

    所以再次想到该代码是最近在翻译一些资料时,机翻总是将一些词汇翻译为一些特定的不合时宜的词,然后需要手动改,改多了我有懒了,再次想到了我之前的代码,修修改改一下又能接着使用了~

    正文

    代码

    '替换word
    Public wdApp, WrdDoc '定义公共变量类,wdapp, WrdDoc代表文档
    
    Sub 批量查找替换()
    Application.ScreenUpdating = False
    
    '获取目标word文档
    Call getwd
    'wdapp.Visible = False
    
    '开始替换
     Call StReplace
    
    '清空变量
    Set WrdDoc = Nothing
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    MsgBox "转换完成", vbOKOnly, ""
    'Application.ScreenUpdating = False
    End Sub
    
    
    Sub getwd()
    '获取当前打开的word文档
        Set wdApp = GetObject(, "Word.Application")
        Set WrdDoc = wdApp.Documents(1)
    End Sub
    
    
    Sub StReplace()
    Application.ScreenUpdating = False
    Dim wt, urow1 As Long, lrow1 As Long
    Dim i1 As Long
    Dim chaz1 As String, tih1 As String, lsa
    
    Set wt = ThisWorkbook.ActiveSheet
    
    lrow1 = 2
    urow1 = wt.Cells(2000, 1).End(xlUp).Row
    For i1 = lrow1 To urow1
        chaz1 = wt.Cells(i1, 1).Value
        tih1 = wt.Cells(i1, 2).Value
        If chaz1 = "" Then
        Else
            lsa = czth1(chaz1, tih1)
        End If
    Next
    Application.ScreenUpdating = False
    
    'MsgBox "转换完成", vbOKOnly, ""
    End Sub

    使用方法

    把上述代码放在Excel的宏模块中,然后在当前活动的工作表中,A列填须在word中查找的目标(从第二行开始),B列中填对应的替换的值,之后打开需要查找替换的word,然后运行“批量查找替换()”过程即可完成自动的查找替换。

    展开全文
  • Word合并VBA代码

    2019-09-26 04:26:16
    .Filters.Add "所有 WORD 文件", "*.doc", 1 End With On Error Resume Next If myDialog.Show <> -1 Then Exit Sub For i = 1 To myDialog.SelectedItems.count Selection.InsertFile FileName:=myDialog....
    Sub DocMerge()
    ''' 合并多个文档
    '''用法:先创建一个目标文档,依次加入源文件,最后保存
    '''by:CMooon
    '''2012.02.26
    
    Dim myDialog As FileDialog
    Dim i As Long
    Const wdPageBreak = 7 ' 分页符
    
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    With myDialog
          .Title = "请选择要合并的文档(可以多选)"
          .AllowMultiSelect = True
          .Filters.Clear
          .Filters.Add "所有 WORD 文件", "*.doc", 1
    End With
    
    On Error Resume Next
    If myDialog.Show <> -1 Then Exit Sub
    
    For i = 1 To myDialog.SelectedItems.count
        Selection.InsertFile FileName:=myDialog.SelectedItems(i)
        Selection.InsertBreak wdPageBreak
        MsgBox myDialog.SelectedItems(i) & " 成功合并!"
    Next
    
    End Sub

    转载于:https://www.cnblogs.com/cmooon/archive/2012/02/27/2369333.html

    展开全文
  • 项目中,我们用word撰写各类技术文件时,常常需要编辑或加载大量的Visio图,例如各类业务流程图、组织架构图、系统架构图... 后期我将整理并分享针对图形对象大小批量处理以及批量处理题注格式的VBA代码,敬请期待哦!
  • 介绍VBA操作word的书籍
  • Word 利用 vba 代码实现拆分文档页数

    千次阅读 2020-09-24 23:03:29
    Word使用VBA实现拆分文档页数实现步骤: 新建一个记事本,添加以下代码 Sub 利用VBA实现Word文档的拆分() On Error Resume Next Dim doc1 As Document, newdoc As Document, a, page1%, page2%, i1%, i2%, i3%, dk...
  • 我写的Word VBA代码

    2008-10-27 19:41:57
    word 里拥有单词本,语音朗读等功能。
  • EXCEL与WORD相互写入VBA代码 在工作中相当方便,如写财务分析,在EXCEL中完成数据加工,并用公式写出部分财务分析指标,再将这些文字与数据写入WORD,相当的实用
  • vba代码大全,大量的应用实例,WORD形式,粘贴在VBA上就可以测试了。vba代码大全,大量的应用实例,WORD形式,粘贴在VBA上就可以测试了。vba代码大全,,粘贴在VBA上就可以测试了。
  • 转自:https://blog.csdn.net/ssson/article/details/88771194?utm_medium=distribute.pc_relevant.none-task-blog-BlogCommendFromBaidu-7.control&depth_1-utm_source=distribute.pc_relevant.none-task-blog-...
  • Word_vba例子源代码.pdf

    2012-11-25 14:16:39
    Word_vba例子源代码,是学习VBA的好助手。
  • 需频繁批量替换文档的可以试试,可选定待替换文件夹,替换doc,xls文档,一次性替换多个字符串
  • 如果无法确定要使用的 Visual Basic 方法或属性,可打开宏录制器并进行手动操作。宏录制器会将操作译成 Visual Basic 代码。录制操作完成后,可根据需要修改代码
  • VBA代码把一个多页的word拆分成任意页数的多个文档,可直接粘贴运行。
  • 1打开所有隐藏工作表 Sub 打开所有隐藏工作表 ) Dim i As Integer For i = 1 To Sheets.Count Sheets(i.Visible = True Next i End Sub 2循环宏 Sub循环 ) AAA= Range"C2) Dim i As Long Dim times As Long times = ...
  • 抄抄书,省得到处找 ...Word-VBA Code Samples for Newbies &amp; Others by JoJo Zawawi This code was written for Word 97 and worked fine for Word 2000.No guarantees are given fo...
  • VBA代码 介绍 VBA代码是重新组合Access和Excel的VBA代码的项目。 这些文件位于.vb扩展名中,您可能需要复制才能粘贴鳕鱼以使其正常工作。 支持/发展 如果您有兴趣参加我参与的其他一些项目,这些项目与我目前所做的...
  • vba代码 执行后,把BOOK1.xls打开,循环5次,a1、b1、e1数据写入word中,(注意,word也有格子,也有行列),然后保存5次到c盘下。 Sub Macro1() Dim devType As String  Dim devName As String  Dim devDes ...
  • 介绍word通用接口中的各种有效代码。用户可以通过这些代码来调用OFFICE WORD中的对象。
  • Option Explicit Private WithEvents WdApp...'事件代码必须在ThisDocument中,这是前提2 Dim aStory As Range Sub myUpDate() Application.ScreenUpdating = False For Each aStory In ActiveDocument.StoryRan.
  • Word本身具有很强的可扩展性,尤其是支持用户自定义功能,其实现 的主要方式就是通过VBA代码来实现的。在“工具->宏->Visual Basic编辑器”里面就可以看 到具体的宏代码,可以直接进行编辑。而且还可以使用录制宏的...
  • 请哪位大神知道如何用VBA(visual basic)代码word索引,求代码啊。。拜托拜托。。
  • 有时候需要将一个word文档每一页另存为一个word文档,如果手工操作,量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码,然后执行Sub SaveParagraph() 即可: Option ...
  • 使用VBA代码,自定义页面数拆分大Word文件为多个小文档并指定名称保存 alt+F11打开开发选项-->选择【插入】-->【模块】-->弹出代码编辑窗口,插入下面代码,按照需要修改页数和要重命名的每个文档按顺序的...
  • ActiveDocument.Tables(1).Cell(3, 1).Select Selection.InlineShapes.AddPicture FileName:="C:a.jpg", LinkToFile:=True, SaveWithDocument:=True End Sub HF Private Sub Command1_Click() Dim xApp As New Word....
  • 守柔WORD编程代码

    2012-08-21 13:26:52
    最出名的Word VBA代码集 我的另外一个资源其实已经报告本内容 资源ID:4512562

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,431
精华内容 2,172
关键字:

word的vba代码