精华内容
下载资源
问答
  • 如何在文件夹下建立word文件
    千次阅读
    2021-02-08 08:59:39

    答:

    (1)步骤1:打开考生文件夹下的文档“WORD.docx”。

    步骤2:单击“页面布局”选项卡一“页面设置”组的对话框启动器,打开“页面设置”对话框,在“页边距”选项卡中的“页边距”区域中设置页边距(上、下)为2厘米,页边距(左、右)为3厘米。

    步骤3:在“纸张”选项卡中的“纸张大小”区域设置为,“自定义”,然后设置页面高度18厘米,页面宽度为30厘米。

    (2)单击“页面布局”选项卡→“页面背景”组的“页面颜色”右侧的下三角,打开“页面颜色”下拉列表,选择“填充效果”,打开“填充效果”对话框,单击“图片”选项卡中的“选择图片”按钮,然后选择考生文件夹下的图片“背景图片.jPg”,这样就设置好了背景。

    (3)步骤1:选中文本“大学生网络创业交流会”,设置字号为“初号”、字体为“黑体”和颜色为“深蓝”。对齐方式为“居中”。

    步骤2:选中文本“邀请函”,设置字号为“初号”、字体为“黑体”和颜色为“黑色”。

    (4)选中文本,单击“开始”选项卡→“段落”组,在“段落”组对话框中选择对齐方式为“居中”。

    (5)选中剩下的文本,单击“开始”选项卡→“段落”组的对话框启动器,打开“段落”对话框,在“行距”中选择“多倍行距”,在“设置值”中设置“3”。

    (6)步骤1:单击“邮件”选项卡→“开始邮件合并”组→“开始邮件合并”→“邮件合并分步向导”命令。

    步骤2:打开“邮件合并”任务窗格,进入“邮件合并分步向导”的第1步(共6步),在“选择文档类型”中选择“信函”。

    步骤3:单击“下一步:正在启动文档”链接,进入“邮件合并分步向导”的第2步,在“选择开始文档”中选择“使用当前文档”,即以当前的文档作为邮件合并的主文档。

    步骤4:接着单击“下一步:选取收件人”链接,进入“邮件合并分步向导”的第3步。在“选择收件人”中选择“使用现有列表”,然后单击“浏览超链接”按钮。

    步骤5:打开“选择数据源”对话框,选择保存拟邀请的专家和老师姓名(在考生文件夹下的“通讯录.xlsx”文件中)。然后单击“打开”按钮;此时打开“选择表格”对话框,选择保存专家和老师姓名信息’的工作表名称,然后单击“确定”按钮。

    步骤6:打开“邮件合并收件人”,可以对需要合并的收件人信息进行修改,然后单击“确定”按钮,完成了现有工作表的链接。

    步骤7:接着单击“下一步:撰写信函”链接,进入“邮件合并分步向导”的第4步。如果用户此时还没有撰写邀请函的正文,可以在活动文档窗口输入与输出一致的文本。如果需要将收件人信息添加到信函中,先将鼠标指针定位在文档中的合适位置,然后单击“地址块”等超链接,本例单击“其他项目”超链接。

    步骤8:打开“编写和插入域”对话框,在“域”列表中,选择要添加邀请函的邀请人的姓名所在位置的域,本例选择姓名,单击“插入”按钮。插入完毕后单击“关闭”按钮,关闭“插入合并域”对话框。此时文档中的相应位置就会出现已插入的标记。

    步骤9:单击“邮件”选项卡→“开始邮件合并”组→“规则”→“如果…那么…否则”命令,打开“插入Word域”对话框,进行信息设置,单击“确定”按钮。

    步骤10:在“邮件合并”任务窗格单击“下一步:预览信函”链接,进入“邮件合并分步向导”的第5步。

    步骤11:在“邮件合并”任务窗格单击“下一步:完成合并”链接,进入“邮件合并分步向导”的第6步。选择“编辑单个信函”超链接。

    步骤12:打开“合并到新文档”对话框,选中“全部”按钮,单击“确定”按钮。这样Word将Excel中存储的收件人信息自动添加到邀请函正文中,并合并生成一个新文档。

    (7)将该文档以“Word.docx”作为文件名保存在考生文件夹下。

    更多相关内容
  • 能够统计一个文件夹在的所有word的总页数。 代码如下: package com.chedb.controller; import java.io.File; import com.jacob.activeX.ActiveXComponent; import com.jacob.com.Dispatch; import ...

    能够统计在一个文件夹在的所有word的总页数。

    代码如下:

     

    package com.chedb.controller;
    
    import java.io.File;
    import com.jacob.activeX.ActiveXComponent;
    import com.jacob.com.Dispatch;
    import com.jacob.com.Variant;
    
    public class Test1 {
        public static void main(String[] args) throws Exception {
            /*String dateStr = new SimpleDateFormat("yyyy/MM/dd").format(new Date());
            System.out.println(dateStr);*/
            
            String filepath = "E:\\sy\\51";//D盘下的file文件夹的目录
            File file = new File(filepath);//File类型可以是文件也可以是文件夹
            File[] fileList = file.listFiles();//将该目录下的所有文件放置在一个File类型的数组中
            String[] str={};
            int total = 0;
            for(int i = 0;i<fileList.length;i++){
                //str[i] = fileList.
                //System.out.println(fileList[i]);
                total = total + xsys(fileList[i]);
                System.out.println(fileList[i]);
                System.out.println("总页数为"+total+"页!!!!");
            }
        }
        
        static int xsys(File fileList){
            //String filePath = "E:\\sy\\51\\word名称.doc";// word文档所在路径
            String filePath = fileList+"";
            // 建立ActiveX部件
            ActiveXComponent wordCom = new ActiveXComponent("Word.Application");
            //word应用程序不可见
            wordCom.setProperty("Visible", false);
            // 返回wrdCom.Documents的Dispatch
            Dispatch wrdDocs = wordCom.getProperty("Documents").toDispatch();//Documents表示word的所有文档窗口(word是多文档应用程序)
            // 调用wrdCom.Documents.Open方法打开指定的word文档,返回wordDoc
            Dispatch wordDoc = Dispatch.call(wrdDocs, "Open", filePath, false, true, false).toDispatch();
            Dispatch selection = Dispatch.get(wordCom, "Selection").toDispatch();
            int pages = Integer.parseInt(Dispatch.call(selection,"information",4).toString());//总页数 //显示修订内容的最终状态
            System.out.println(pages);
          //关闭文档且不保存
            Dispatch.call(wordDoc, "Close", new Variant(false));
            //退出进程对象
            wordCom.invoke("Quit", new Variant[] {});
            return pages;
        }
    }

    其中需要   (1)、jacob-1.14.3.jar这个jar包,下载地址为:链接:https://pan.baidu.com/s/1VsZ2iAuQPZzy9x6RXbRy0g    提取码:xjfx 

                     (2)、jacob-1.14.3.dll这个dll文件,下载地址为:链接:https://pan.baidu.com/s/1VsZ2iAuQPZzy9x6RXbRy0g    提取码:xjfx   放置在c盘下的windows下的system32下

    展开全文
  • Windows操作:(1)C:盘根目录下建立SUB文件夹SUB文件夹下建立SUBl子文件夹和SUB2子Windows操作:(1)C:盘根目录下建立SUB文件夹SUB文件夹下建立SUBl子文件夹和SUB2子文件夹。(2)查找note.exe文件。(3)...

    Windows操作:(1)在C:盘根目录下建立SUB文件夹.在SUB文件夹下建立SUBl子文件夹和SUB2子

    Windows操作:

    (1)在C:盘根目录下建立SUB文件夹.在SUB文件夹下建立SUBl子文件夹和SUB2子文件夹。

    (2)查找note.exe文件。

    (3)将note.exe文件复制到SUBl中。

    (4)将SUBl中note.exe文件移动到SUB2中。

    (5)将note.exe文件改名为book.exe,并将book.exe的属性设置为隐藏。

    Windows操作 考试要求: (1)在C盘根目录下建立TL文件夹,在T1。文件夹下建立Tll子文件夹和

    Windows操作

    考试要求:

    (1)在C盘根目录下建立TL文件夹,在T1。文件夹下建立Tll子文件夹和Tl2子文件夹。

    (2)查找CALC.exe文件。

    (3)将CAlC.exe文件复制到Tll中。

    (4)将T11中文件CALC.exe改名为JS.exe。

    (5)将Tl2文件夹直接删除,不放入回收站中。

    Windows操作(1)在D盘根目录下建立K1文件夹,在kl文件夹下建立kll子文件夹和k12子文件夹。(2)查找Wo

    Windows操作(1)在D盘根目录下建立K1文件夹,在kl文件夹下建立kll子文件夹和k12子文件夹。(2)查找Word. exe文件。(3)将Word. exe文件复制到kll中。(4)将k11中word.exe文件移动到k12中。(5)将Word. exe文件改名为wzcl. exe。(6)将k12中wzcl. exe的属性设置为系统。

    Windows基本操作题(1)在D盘根下建立“TL”文件夹,在TL文件夹下建立“AA”子文件夹和“BB”子文件夹。(2)

    Windows基本操作题 (1)在D盘根下建立“TL”文件夹,在TL文件夹下建立“AA”子文件夹和“BB”子文件夹。 (2)查找“CALC.exe”文件,将“CALC.exe”文件复制到“AA”中。 (3)将“AA”中“CALC.exe”文件改名为“JS.exe”。 (4)将“CC”文件夹直接删除,不放入回收站中。 (5)将“AA”中“JS.exe”的属性设置为只读。

    Windows操作: (1)在D盘根目录下建立k1文件夹,在k1文件夹下建立k11子文件夹和k12子文

    Windows操作:

    (1)在D盘根目录下建立k1文件夹,在k1文件夹下建立k11子文件夹和k12子文件夹;

    (2)查找Word.exe文件;

    (3)将Word.exe文件复制到k11中;

    (4)将k11中Word.exe文件移动到k12中;

    (5)将Word.exe文件改名为wzc1.exe;

    (6)将k12中wzc1.exe的属性设置为系统。

    Windows操作 考试要求: (1)在E盘根文件夹下建立一个名为Kst的文件夹,在Kst中建立一个文件夹Basic

    Windows操作

    考试要求:

    (1)在E盘根文件夹下建立一个名为Kst的文件夹,在Kst中建立一个文件夹Basic。

    (2)将Kst文件文件夹中的Basic文件夹更名为Basic2。

    (3)将calc.eke文件复制到Basic文件夹下。(先查找,再复制操作)

    Windows操作(1)在D盘根目录下建立k1文件夹,在k1文件夹下建立k11子文件夹和k12子文件夹。(2)查找Wo

    Windows操作

    (1)在D盘根目录下建立k1文件夹,在k1文件夹下建立k11子文件夹和k12子文件夹。

    (2)查找Word.exe文件。

    (3)将Word.exe文件复制到k11中.

    (4)将k11中Word.exe文件移动到k12中。

    (5)将Word.exe文件改名为wzc1.exe。

    (6)将k12中wzc1.exe的属性设置为系统。

    Windows操作: (1)在D:盘根下建立TL文件夹,在TL文件夹下建立T11子文件夹和T12子文件

    Windows操作:

    (1)在D:盘根下建立TL文件夹,在TL文件夹下建立T11子文件夹和T12子文件夹。

    (2)查找CALC.EXE文件。

    (3)将CALC.EXE文件复制到T11中。

    (4)将T11中CALC.EXE文件改名为JS.EXE。

    (5)将T22文件夹直接删除。不放人回收站中。

    (6)将T11中JS.EXE的属性设置为只读。

    Windows操作(1)在D盘根目录下建立k1文件夹,在k1文件夹下建立k11子文件夹和k12于,文件夹。(2)查找W

    Windows操作

    (1)在D盘根目录下建立k1文件夹,在k1文件夹下建立k11子文件夹和k12于,文件夹。

    (2)查找Word.exe文件。

    (3)将Word.exe文件复制到k11中。

    (4)将k11中Word.exe文件移动到k12中。

    (5)将Word.exe文件改名为wzcl.exe。

    (6)将k12中wzcl.exe的属性设置为系统。

    Windows操作:考试要求:(1)在D:盘根下建立KL文件夹,在KL文件夹下建立K11子文件夹和K12子

    Windows操作:

    考试要求:

    (1)在D:盘根下建立KL文件夹,在KL文件夹下建立K11子文件夹和K12子文件夹。

    (2)查找Word.exe文件。

    (3)将Word.exe文件复制到K11中。

    (4)将K11中Word.exe文件移动到K12中。

    (5)将Word.exe文件改名为WZC L.exe。

    (6)将K12中Word.exe的属性设置为系统。

    展开全文
  • 文件夹内已经汇总了几十上百篇Doc/Docx文档,可能是各部门的总结,可能是工会入会申请,或者其它半格式化(毕竟不是表格)内容,如果没有VBA帮忙,你就要挨个打开,之后copy-n-paste里面的特定内容到你的Excel表里;...

    任务场景:

    1. 文件夹内已经汇总了几十上百篇Doc/Docx文档,可能是各部门的总结,可能是工会入会申请,或者其它半格式化(毕竟不是表格)内容,如果没有VBA帮忙,你就要挨个打开,之后copy-n-paste里面的特定内容到你的Excel表里;
    2. 你在网上白嫖了一段代码,但是发现能用是能用,但是摘出来的信息有几个突出问题:1)到处夹空格、夹不可见符号;2)因为Word排版的关系,抓到Excel里面有很多空单元格;3)抓出来的同类信息不在同一列(举例来说,同是一份俱乐部申请,A的“自我介绍“部分写1段,B的“自我介绍”部分写了5段,抓出来肯定占的单元格数量不同)。

    配料和思路

    这次结合我工作中遇到的问题先解决1、2里面的主要部分即:1.文件抓取;2.基本清理(去除字符串内空格);3.对导出到Excel表里的内容进行再排序,去掉因为排版问题造成的空单元格。水平有限,代码相当冗长,但好处在于用到的知识点少,操作简单粗暴合适和我水平类似的非IT专业人士。

    精确抓取特定内容的放在(下)里面介绍。

    1. 需要用到的技能

    • 文件系统操作:从Excel VBA里面打开(world.application.Document.Open)、关闭Word文档、判断文件夹内文件的个数(文件指针.Files.Count)
    • 字符串操作: 清理非打印字符(clean)、消除两端空格(trim)、后续还要用到查找(InStr)、截取(Left)等
    • 判断和循环:基础的If判断,Do While循环嵌套使用
    • Excel VBA里的单元格操作:对单元格里内容的删改

    2. 流程(建议结合代码看)

    1. 定义各种变量,告诉电脑给我在内存里准备好位置,我要出Excel外到Windows里面找文件,对他们进行操作了
    2. 生成Scripting FSO(即“为了把文件里的内容写到别的地方而设置的文件系统对象”)
    3. 把文件所在的文件夹地址丢给电脑,建立FP(文件指针),这时候电脑已经准备好对目标文件夹里的文件“动手”了
    4. 与此同时,把要写入的表格的内容框架搭建好,这里用的是数组(arr)形式,数组的第一行格列是表头。行数由目标文件夹里的文件数决定,列数由你自己决定(通常就是你想抓Word文档里多少次换行前的内容)。
    5. For each循环,开始逐一查看文件夹里的文件
    6. IF判断是否为doc/docx文档,是的话就打开文件,开始在文档里逐行读取再写入到数组里。word里面每一次换行(.Paragraph(行数))就往数组里向右写一个格,读好写好关闭文件。
    7. 遍历完文件夹内所有文件以后退出For each循环……假设一共读了10个文件,每个文件读前20列,那么这个数组的的size就是11行(带“表头”)20列
    8. 回到我们的Excel表,用UBound取出上面用的数组在两个维度上的最大值(比如11行、20列就是11、20)在工作表里划出一片区域。然后把数组里存的内容写到这个区域里面来。至此,最基本的抓取已经结束,代码见 Text_Capturing()部分**
    9. 对特定列里面的字符串去空格(详见本博客另一篇讲邮件中空格专杀的文章),代码见Space_Killer()部分
      10.检查表格里的空单元格:1.如果一个单元格式空的但它右边的非空,就把右边的挪过来(内容赋值进来,再从原位置删掉);2.如果一个单元格和它右边的都是空的,就把再右边一个里的内容放进来…,大部分情况下很少有连续空三个的,代码见Empty_Cell_Killer()部分

    3. 结果

    几十个Word文档内前20多个换行里的内容别抓到了Excel里,而且没有因为排版空行造成的空单元格。

    假设我们抓的是几十位老师的教案信息,那么现在就差把他们长度不一的“摘要”、“教学目标”、“适用课程”等信息合并整理了到专门的列里面去了。

    咱们下回分解!

    上代码(小白级别,所以注释多且冗长)

    第一段,抓取部分主体

    Sub Text_Capturing()
    
        Rem 先进行系统层面上的准备
        Dim fso 'File System Obeject文件系统对象,要执行操作,先要在内存里生成一个任务对象
        Dim fp  'File Pointer文件指针。在新建的fso基础上进一步为其制定工作表所在路径
        Dim f_num '为了最后给用户报数用
        
        Rem 然后进行Office套件层面上的准备
        Dim wd  '定义Word程序对象,说白了就是告诉系统要用Word这个应用了,请加载到内存里
        Dim f   '在Word程序对象基础上创建文件对象,每遍历到一个doc/docx就是一个f
        Dim fname As String
        
        Rem 最后定义Excel内部要用到的变量
        Dim arr '数组对象,用数组的方式去写range
        Dim n As Long
        
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets("操作界面")
        Path = ws.Cells(8, 2) & "\" '即操作界面里请用户输入文件夹地址的那个地方
        Debug.Print Path
        
    
        
        Set fso = CreateObject("scripting.filesystemobject")
        Set fp = fso.getfolder(Path)
        f_num = fp.Files.Count
        
        ReDim arr(1 To f_num + 1, 1 To 24) '行数= 1到文件个数,列数=看要摘多少行内容了
        Rem 注意这里数组中表示行数部分要加1,才能容纳表头,如不加1,回导致下标越界
        
        arr(1, 1) = "被抓取文件名": arr(1, 2) = "案例编号与出版日期": arr(1, 3) = "1行"
        arr(1, 4) = "第2": arr(1, 5) = "3": arr(1, 6) = "4": arr(1, 7) = "5行"
        arr(1, 8) = "第6": arr(1, 9) = "7": arr(1, 10) = "8": arr(1, 11) = "9行"
        arr(1, 12) = "第10": arr(1, 13) = "11": arr(1, 14) = "12行"
        arr(1, 15) = "第13": arr(1, 16) = "14": arr(1, 17) = "15行"
        arr(1, 18) = "第16": arr(1, 19) = "17": arr(1, 20) = "18行"
        arr(1, 21) = "第19": arr(1, 22) = "20": arr(1, 23) = "21行"    
        
        Set wd = CreateObject("word.application")    
        n = 1
        
        For Each f In fp.Files
        
            If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then
    
                n = n + 1
                arr(n, 1) = fso.getbasename(f) '如果此步骤显示下标越界,检查数组中行数部分是不少加了1
                fname = fso.getfilename(f)
                Debug.Print fname
                
                With wd.Documents.Open(Path & fname, True, True)
                    wd.Visible = True
                    Rem Word排版常常夹杂很多不可见符号和空格,所以在这一步就最好把clean、trim都用上,以防万一
                    arr(n, 2) = .Paragraphs(1).Range
                    arr(n, 2) = VBA.Trim(Application.WorksheetFunction.Clean(arr(n, 2)))
                    arr(n, 3) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(2).Range))
                    arr(n, 4) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(3).Range))
                    arr(n, 5) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(4).Range))
                    arr(n, 6) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(5).Range))
                    arr(n, 7) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(6).Range))
                    arr(n, 8) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(7).Range))
                    arr(n, 9) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(8).Range))
                    arr(n, 10) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(9).Range))
                    arr(n, 11) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(10).Range))
                    arr(n, 12) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(11).Range))
                    arr(n, 13) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(12).Range))
                    arr(n, 14) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(13).Range))
                    arr(n, 15) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(14).Range))
                    arr(n, 16) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(15).Range))
                    arr(n, 17) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(16).Range))
                    arr(n, 18) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(17).Range))
                    arr(n, 19) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(18).Range))
                    arr(n, 20) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(19).Range))
                    arr(n, 21) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(20).Range))
                    arr(n, 22) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(21).Range))
                    arr(n, 23) = VBA.Trim(Application.WorksheetFunction.Clean(.Paragraphs(22).Range))
                    .Close
                    
                End With
                
            End If
            
        Next
        
        wd.Quit
        
        'Sheets("初步输出").[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
        ThisWorkbook.Worksheets("初步输出").[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
        
        Call Space_Killer
        Call Empty_Cell_Killer
        
        MsgBox "本次共抓取目标文件夹内Doc/Docx文件" & f_num & "个,请在<初步输出>表查看内容后回<操作界面>进行进一步清理。"
    
        
        
        
    End Sub
    
    

    第二段,去掉抓取后特定列里面的各种空格(比如邮箱、电话、文件编号)

    这块我前面的博文里面写过,详细了解请点此移步

    Sub Space_Killer()
    
        Dim ridx As Long
        Dim ws_OutPut As Worksheet
        Dim org_content
        Dim space
        Dim L_part
        Dim R_part
        Dim Re_Concatenated
        
        Set ws_OutPut = ThisWorkbook.Worksheets("初步输出")
        ridx = 2
        
        Do While ws_OutPut.Cells(ridx, 2) <> ""
            
            Do While VBA.InStr(ws_OutPut.Cells(ridx, 2), " ") <> 0 '找不到才会等于0,找得到就不等于零
                
                Debug.Print org_content
                
                space = VBA.InStr(ws_OutPut.Cells(ridx, 2), " ") '找到现行字符串内空格的下标
                
                L_part = VBA.Trim(VBA.Left(ws_OutPut.Cells(ridx, 2), space)) '空格左边的截出来
                
                R_part = VBA.Trim(VBA.Right(ws_OutPut.Cells(ridx, 2), VBA.Len(ws_OutPut.Cells(ridx, 2)) - space)) '空格右边的部分截出来
                
                Re_Concatenated = L_part & R_part '把截好去了空格的两部分再重新对起来
                Debug.Print Re_Concatenated
                
                ws_OutPut.Cells(ridx, 2) = Re_Concatenated '把对起来的重新写入单元格
                
                Rem 如果字符串里面还有空格,那么下一轮循环的时候就会触发InStr()<> 0条件从而再去一遍
            
            Loop
            ridx = ridx + 1 '这个不要忘,忘了的话一个有空格的单元格就能让你EXCEL无响应
            
        Loop
    
    End Sub
    

    第三段,去掉Excel里面因为Word排版造成的空单元格

    Sub Empty_Cell_Killer()
    
        Dim ridx As Long
        Dim cidx As Long
        Dim ws_OutPut As Worksheet
        
        Set ws_OutPut = ThisWorkbook.Worksheets("初步输出")
        ridx = 2
        
        Do While ws_OutPut.Cells(ridx, 1) <> "" '只要有被被抓取的文件名就接着执行
            
            cidx = 3 '起始行列标为3,即编号和出版日期后面开始
            
            Do While cidx < 24 '最多23列,发现下一圈要转24自动跳出循环
            Rem 实际抓取情况千奇百怪,有的连续两个格子都是空格,就不能一个if走天下了
            
                Rem 情况1:如果本单元格为空,但是右边的不为空,就把右边的挪过来
                If ws_OutPut.Cells(ridx, cidx) = "" And ws_OutPut.Cells(ridx, cidx + 1) <> "" Then
                    ws_OutPut.Cells(ridx, cidx) = ws_OutPut.Cells(ridx, cidx + 1)
                    ws_OutPut.Cells(ridx, cidx + 1) = "" '☆重点再此
                    Rem 不要忘了清空挪到左边填空的单元格,如果仅是“复制”了内容去填左边的空,那么右边既有的信息就多余了
                   
                Rem 情况2:本单元格为空,右边一个也为空,那就得挪它右边第二个来了
                ElseIf ws_OutPut.Cells(ridx, cidx) = "" And ws_OutPut.Cells(ridx, cidx + 1) = "" Then
                    ws_OutPut.Cells(ridx, cidx) = ws_OutPut.Cells(ridx, cidx + 2)
                    ws_OutPut.Cells(ridx, cidx + 2) = ""
                
                Rem 情况3:如果本单元格为空,它右边两个也为空,直接跳出并报错,请求人工检查
                ElseIf ws_OutPut.Cells(ridx, cidx) = "" And ws_OutPut.Cells(ridx, cidx + 1) = "" And ws_OutPut.Cells(ridx, cidx + 2) = "" Then
                    
                    MsgBox "第 " & ridx & "" & cidx & "" & cidx + 1 & "" & cidx & "列连续出现空单元格,请检查原文件。"
                
                End If
                
                cidx = cidx + 1 '下次再往右挪一个单元格执行
            
            Loop
            
            ridx = ridx + 1 '下次再往下挪一个单元格执行
            
        Loop
        
        Rem 再来一遍……扫清漏网之鱼
        ridx = 2
        
        Do While ws_OutPut.Cells(ridx, 1) <> "" '只要有被被抓取的文件名就接着执行
            
            cidx = 3 '起始行列标为3,即编号和出版日期后面开始
            
            Do While cidx < 24 '最多23列,发现下一圈要转24自动跳出循环
            Rem 实际抓取情况千奇百怪,有的连续两个格子都是空格,就不能一个if走天下了
            
            Rem 情况1:如果本单元格为空,但是右边的不为空,就把右边的挪过来
            If ws_OutPut.Cells(ridx, cidx) = "" And ws_OutPut.Cells(ridx, cidx + 1) <> "" Then
                ws_OutPut.Cells(ridx, cidx) = ws_OutPut.Cells(ridx, cidx + 1)
                ws_OutPut.Cells(ridx, cidx + 1) = "" '☆重点再此
                Rem 不要忘了清空挪到左边填空的单元格,如果仅是“复制”了内容去填左边的空,那么右边既有的信息就多余了
                   
            Rem 情况2:本单元格为空,右边一个也为空,那就得挪它右边第二个来了
            ElseIf ws_OutPut.Cells(ridx, cidx) = "" And ws_OutPut.Cells(ridx, cidx + 1) = "" Then
                ws_OutPut.Cells(ridx, cidx) = ws_OutPut.Cells(ridx, cidx + 2)
                ws_OutPut.Cells(ridx, cidx + 2) = ""
                
            Rem 情况3:如果本单元格为空,它右边两个也为空,直接跳出并报错,请求人工检查
            ElseIf ws_OutPut.Cells(ridx, cidx) = "" And ws_OutPut.Cells(ridx, cidx + 1) = "" And ws_OutPut.Cells(ridx, cidx + 2) = "" Then
                    
                MsgBox "第 " & ridx & "" & cidx & "" & cidx + 1 & "" & cidx & "列连续出现空单元格,请检查原文件。"
                
            End If
                
            cidx = cidx + 1 '下次再往右挪一个单元格执行
            
        Loop
            
            ridx = ridx + 1 '下次再往下挪一个单元格执行
            
        Loop
        
        
    
    End Sub
    
    展开全文
  • 考生文件夹下完成如下操作: (1)考生文件夹下建立“图片2”文件夹;(2)考生文件夹下查找所有的jpg文件,并将文件移动到“图片2”文件夹中;(3)将名为“2.jpg”文件设为只读文件。操作提示:①打开考生...
  • 1、打开word文档-点击左上角知图标-打开【word选项】道-打开【保存】-点击【将此文件格式保存为】-选择想要保存的格式; 2、或者使用回另存为docx,存完以后,原文件删除; 3、产生的文件夹是微软新设计答的思路,...
  • 考生文件夹下完成如下操作

    万次阅读 2021-01-14 10:16:34
    1、请考生文件夹下完成如下操作:(1)考生文件夹下建立"图片2"文件夹;(2)考生文件夹下查找所有的jpg文件,并将文件移动到"图片2"文件夹中;(3)将名为"2.jpg"文件设为只读文件。评析:操作提示:①打开考生...
  • 总体思想:扫描文件夹文件,逐个读取追加入word中。 代码: from docx import Document from docx.enum.text import WD_BREAK import os from docx.oxml.ns import qn # 主要用于读取 文件的内容 def getContent...
  • 电脑上的word怎么新建文档

    千次阅读 2021-07-27 06:28:00
    1.怎样电脑上建一个word文档准备工具:电脑,word2010或者WPS 1.桌面中选择一个空白区域,鼠标右键单击该区域调出功能页面,如图所示。2.功能页面中找到新建选项,点击该选项进入新建页面,如图所示。 3....
  • 我们使用电脑办公的时候,常常都使用到Word文档来进行一定的信息编辑会文章的编辑等,一般情况,只需要所使用的电脑中下载安装一个Office办公软件就可以达到这一目的。但是就前短时间,就有用户向小编咨询,...
  • Linux世界的软件包如果有些遗憾...安装微软网站提供的免费DOS版本的Word。你可以使用DOSBox来运行这个软件,并且真的可以运行(但是无法打印)。步骤如下:1、新立得里面搜索并安装dosbox。DosBox是一个DOS模拟器,...
  • 1、要求:当前窗口中,将名为“练习”的文件用TXT的方式将其打开:双击“练习”→从列表中选择程序→确定→拖动滚动条到下边→记事本→确定。2、要求:当前窗口中,将名为“网页”的文件用Internet Explorer的...
  • word文档页面顺序调换

    2021-07-31 01:13:18
    word文档基本操作新建文档 我们讲了Word第一课后,有位朋友和我说用起来太麻烦了,问他怎么个麻烦法,他说,有时要打印几份文件,每打印一份就要退出一次Word重来,所以特别麻烦。 其实根本用不着新建文档我们讲了...
  • 使用Python指定文件夹新建一个文本文档(其他类型文件也可) 今天做一个信息查询系统时需要对读入的信息进行保存,自然需要建立文件,于是就网上寻找了很多见文件的方法。我选择了一种操作比较简单的文件处理...
  • 2020年7月网络教育统考《计算机应用基础》操作系统应用模拟题试卷操作题操作题1、请考生文件夹下完成如下操作:(1)通过资源管理器,考生文件夹下建立“学生”文件夹;(2)“学生”文件夹下建立“成绩”﹑“英语...
  • #includeintmain(){system("notepad.exe");return0;...2、打开“我的”,选择“工具→文件夹选项”,弹出的对话框中选择“文件类型”选项卡,选中要添加打开方式的“文本文档”,单击“高知级...
  • word的筛选什么地方1.按快捷键Ctrl+A全选文档内容,然后快捷键Ctrl+H打开【查找和替换】窗口。2.鼠标单击【查找内容】文本框,输入“(3.然后点击【替换为】文本框,输入"\1\2" ,单击勾选下面【使用通配符】前的...
  • 测序的项目,每一个样本的数据都存放各自的名称文件夹下,我需要下载一批数据的variant文件(.vcf),但是如果一个一个找,太麻烦了,会眼酸手酸,想偷一下懒; 需求: 肯定不能改动文件的名字,就是拷贝到一个...
  • 网络教育统考一般都需要考计算机应用基础、 ...2020年9月网络教育统考《计算机应用基础》操作系统应用模拟题试卷操作题1、请考生文件夹下完成如下操作:(1)考生文件夹下建立“我的练习”文件夹;(2)“我的练习...
  • Microsoft Word文件在某些情况可能会丢失。例如:强制退出、电源中断或没存档就关闭。文章中将介绍几种恢复丢失文件的有效方法,您可以用其中一种方法来尝试找回已删除的Word文件。 方法 1. 从资源回收站中找回 ...
  • 新版中央电大本科计算机应用基础操作题题库新版中央电大本科计算机应用基础操作题题库100通过这是2015年之后中央电大推出的统考本科2010 ...一Windows操作系统1、请考生文件夹下进行如下操作:(1)将考生文件夹下的...
  • 教师机端建立文件夹。此方法利用半个小时就建立好全校3—6年级500余名学生姓名的文件夹。1、相信很多信息技术老师都教导处帮忙,对于“教务员”这个软件比较熟悉。利用“教务员”软件将全校3—6年级各班学生...
  • 电脑中右键不能新建word和excel文档怎么办开始,找到运行命,输入regedit,打开注册表。左侧找到hkey_classes_root目录,并展开。首先,我们利用ctrlf快捷键,查找“docx”的位置,当然这里也可以自己下拉查找。...
  • 数据源为excel,word建立表模板,利用邮件合并功能实现批量填表,利用VBA技术将填表结果分成独立的文档
  • 打开Word文档的方法有几种?rt.急... 求高手速解。有以下两种打开方式。 工具/原料 Word2003 电脑一台 方法/步骤 方法一:双击桌面上Word图标,打开wold文档上方工具栏里点击“文件”点击“打开”。打开窗口中...
  • word文档基本操作

    千次阅读 2021-06-28 10:27:22
    新建文档 (电脑入门到精通网 www.58116.cn)我们讲了Word...你可以在Word里面关掉已经打印出来的文件,然后新建一个文档或者打开另外的文档,同时打开几个文件也可以。 (电脑入门到精通网 www.58116.cn)怎么做呢?很...
  • 电脑word文档软件中一屏两页的效果如何设置电脑word文档软件中一屏两页的效果如何设置 有的小伙伴电脑上使用Word文档软件时,想要设置一屏两页的效果,但是却不知道如何进行设置,那么小编就来为大家介绍一下吧....
  • (新建文件夹的操作步骤)文件夹作为数据文件的目录,使用计算机的过程中不可或缺,因此如何新建文件夹便成了计算机入门的必学点。说来也简单,当我们掌握新建文件夹的步骤后,可以任何存储目录、文件对话框、网络...
  • 使用记事本就可以建立“.html”文件。操作如下:首先电脑桌面空白处右键鼠标,新建“文本文档”;新建的文本文档中输入要显示的内容;然后返回桌面,将文本文档的名称和后缀名更改为“index.html”;更改之后...
  • 2016-05-09 15:24:29 浏览量:10892正常情况,我们win7系统桌面点击鼠标右键都会出现一个菜单,里面的新建选项有一个子菜单,用户可以子菜单中选择新建文件夹、公文包、文档等。不过,有一朋友使用Win7系统...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 35,137
精华内容 14,054
关键字:

如何在文件夹下建立word文件