精华内容
下载资源
问答
  • vba程序 Excel表内容转Word 每行生成一个word 并将对应内容写入word
  • 执行后,把BOOK1.xls打开,循环5次,a1、b1、e1数据写入word中,(注意,word也有格子,也有行列),然后保存5次到c盘下。 Sub Macro1() Dim devType As String  Dim devName As String  Dim devDes As String...

    vba代码

    执行后,把BOOK1.xls打开,循环5次,a1、b1、e1数据写入word中,(注意,word也有格子,也有行列),然后保存5次到c盘下。

    Sub Macro1()
    Dim devType As String
        Dim devName As String
        Dim devDes  As String
        Dim sTemp   As String
        Dim comTemp As String
        
        Dim xls As New Excel.Application
        Dim wk As New Excel.Workbook
        Dim sh As New Excel.Worksheet
        
        Set wk = xls.Workbooks.Open("C:\\BOOK1.xls")
        Set sh = wk.Sheets("1")
        
        For I = 1 To 5
            If ActiveDocument.Tables.Count >= 1 Then
                   
                sTemp = "A" & I
                devType = sh.Range(sTemp)
                With ActiveDocument.Tables(1).Cell(Row:=3, Column:=2).Range
                .Delete
                .InsertAfter Text:=devType
                End With
                
                sTemp = "B" & I
                devName = sh.Range(sTemp)
                With ActiveDocument.Tables(1).Cell(Row:=2, Column:=2).Range
                .Delete
                .InsertAfter Text:=devName
                End With
                
                sTemp = "E" & I
                devDes = sh.Range(sTemp)
                With ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range
                .Delete
                .InsertAfter Text:=devDes
                End With
           
                
            End If
        
            ActiveDocument.Save
            Set fso = CreateObject("scripting.filesystemobject")
            
            devType = Replace(devType, "/", "")
            sTemp = "C:\\" & devType & ".doc"
            
            fso.copyfile ActiveDocument.FullName, sTemp
                    
                    
        Next


        '清除excel资源
        Set sh = Nothing
        wk.Close
        Set wk = Nothing
        xls.Quit
        Set xls = Nothing
    End Sub


    BOOK1.xls



    展开全文
  • "请选择【WORD勘察报告】" .Filters.Clear .Filters.Add "Word文档", "*.doc;*.docx" If .Show Then iFileName = .SelectedItems(1) End If End With If iFileName = "False" Or Len(iFileName) = 0 Then Exit Sub ...
     **Dim iFileName As String
        Dim mFileName As String
       
        Dim i, n, c, r As Integer
                         
        Dim mWord, mDoc As Object
        Dim mTable, mCell
        Dim S, S1, S2 As String
    With Application.FileDialog(msoFileDialogFilePicker)
                .Title = "请选择【WORD勘察报告】"
                .Filters.Clear
                .Filters.Add "Word文档", "*.doc;*.docx"
                If .Show Then
                        iFileName = .SelectedItems(1)
                End If
        End With
        If iFileName = "False" Or Len(iFileName) = 0 Then Exit Sub
        Set mWord = CreateObject("Word.Application")
        Application.ScreenUpdating = False   ''WORD打开不要显示出来
        Set mDoc = mWord.Documents.Open(iFileName) ''一定要加上完整的路径
        If mDoc.tables.Count < 1 Then    ''至少需要有一个表
            MsgBox "文档中没有表格!", vbCritical
            GoTo err1
        End If
       n = 1   
       On Error Resume Next   
       For Each mTable In mDoc.tables ''定位到 分层统计表
       
          S = ""
          
          For c = 1 To mTable.Columns.Count
              mCell = mTable.cell(row:=1, Column:=c)
              S = S & Trim(WorksheetFunction.Clean(mCell))
          Next c
          
          If (S Like "*孔隙比*" And S Like "*液性指数*" And S Like "*压缩模量*") Then      
             Exit For
          End If
          
          n = n + 1
          
       Next mTable
       Set mTable = mDoc.tables(n)
       
       KXB = 0: IL = 0: AV = 0: ES = 0: CI = 0: FI = 0      ''查找固定列
       
       bKXB = False: bIL = False: bES = False: bAV = False: bCI = False: bFI = False: bAW = False
       
        For c = 1 To mTable.Columns.Count
        
              mCell = mTable.cell(row:=1, Column:=c)
              S2 = Trim(WorksheetFunction.Clean(mCell))
             
              If S2 Like "*孔隙比*" Then
                                 KXB = c
                                 bKXB = True
              End If
              If S2 Like "*液性指数*" Then
                                 IL = c
                                 bIL = True
              End If
              If S2 Like "*压缩系数*" Then
                                 AV = c
                                 bAV = True
              End If
              If S2 Like "*压缩模量*" Then
                                 ES = c
                                 bES = True
              End If
              If S2 Like "*聚力*" Then    ''标准叫法是 黏聚力
                                 CI = c
                                 bCI = True
              End If
              If S2 Like "*内摩擦角*" Then
                                 FI = c
                                 bFI = True
               End If
               If S2 Like "*含水比*" Then
                                 aw = c
                                 bAW = True
               End If
                              
          Next c
         
          i = 3         ''记录结果的 起始行号
       
          For Each mCell In mTable.Range.Cells
          
             S2 = Trim(WorksheetFunction.Clean(mCell))
                      
             If S2 = "n" Then
                Cells(i, "N") = Trim(WorksheetFunction.Clean(mTable.cell(mCell.RowIndex, 1)))    ''层号及名称
                bMC = True
             End If
                      
             If S2 = "μ" Then     '' 平均值
                   r = mCell.RowIndex
                   If bKXB Then
                       Cells(i, "O") = Trim(WorksheetFunction.Clean(mTable.cell(r, KXB)))   ''孔隙比
                       bAVE = True
                   End If
                   If bIL Then
                      Cells(i, "P") = Trim(WorksheetFunction.Clean(mTable.cell(r, IL)))        ''液性指数
                      bAVE = True
                   End If
                   If bES Then
                      Cells(i, "R") = Trim(WorksheetFunction.Clean(mTable.cell(r, ES)))      ''压缩模量
                      bAVE = True
                   End If
                   If bAV Then
                      Cells(i, "U") = Trim(WorksheetFunction.Clean(mTable.cell(r, AV)))     ''av
                      bAVE = True
                   End If
                   If bAW Then
                      Cells(i, "V") = Trim(WorksheetFunction.Clean(mTable.cell(r, aw)))     ''av
                      bAVE = True
                   End If
             End If
                      
             If bCI And bFI And (S2 = "标准值") Then  ''标准值  由于 标准值 格式的特殊性,故采用while的方式去定位。2020-9-27
          k = mCell.RowIndex
          c = mCell.ColumnIndex + 1
                  While CSng(WorksheetFunction.Clean(mTable.cell(k, c))) <= 0 And c < CI
                         c = c + 1
                  Wend
                      Cells(i, "S") = Trim(WorksheetFunction.Clean(mTable.cell(k, c)))   
                      Cells(i, "T") = Trim(WorksheetFunction.Clean(mTable.cell(k, c + 1)))  ''fi
                      bBZZ = True
             End If
            
            If Not CheckBox1.Value Then   ''不包含 C,FI值
               bBZZ = True
            End If
            
                If bMC And bAVE And bBZZ Then
                   i = i + 1
                   bMC = False
                   bAVE = False
                   bBZZ = False
                End If                  
          Next mCell**
    

    希望对大家有所帮助和启发,关键语句总结一下:
    Set mWord = CreateObject(“Word.Application”)
    Application.ScreenUpdating = False ''WORD打开不要显示出来
    Set mDoc = mWord.Documents.Open(iFileName) ''一定要加上完整的路径
    For Each mCell In mTable.Range.Cells
    s=WorksheetFunction.Clean(mTable.cell(r, ES)) ‘’清除表格中的一些无效字符,比如回车换行等:WorksheetFunction.Clean( )
    next mCell
    以上代码遍历某个表格中的所有单元格。
    而 For Each mTable In mDoc.tables 是遍历文档中所有的表格。

    展开全文
  • EXCEL与WORD相互写入VBA代码 在工作中相当方便,如写财务分析,在EXCEL中完成数据加工,并用公式写出部分财务分析指标,再将这些文字与数据写入WORD,相当的实用
  • 如何在Excel VBA 中读写word文档 步骤

    千次阅读 2012-12-06 18:48:05
    在默认情况下,新创建的excel vba中不支持定义word对象。 所以需要先引入word库,操作步骤如下: 1.1 打开excel vba 界面 1.2 选中其中的一个Module 1.3 选择菜单, Tools --> References  在打开的对话框中...

    1. 库的配置

    在默认情况下,新创建的excel vba中不支持定义word对象。

    所以需要先引入word库,操作步骤如下:

    1.1 打开excel vba 界面

    1.2 选中其中的一个Module

    1.3 选择菜单, Tools --> References

            在打开的对话框中选择类似 "Microsoft Word 14.0 Object Library".

    1.4 点击OK保存配置。

     

    2.  打开文档

       Set wordApplication = CreateObject("Word.Application")

       wordApplication.Visible = False

       Dim hasOpenDoc As Boolean

       hasOpenDoc = IsOpen(filePath)  ' is a self-defined function to check file is opend

       If hasOpenDoc = True then

             Set wordDoc = GetObject(filePath)

       End if

       If hasOpenDoc = False Then

           Set  wordDoc = wordApplication.Documents.Open(filePath)

       End if

       wordDoc.Active

    With wordApplication

              Dim aParagraph As Word.Paragraph

               For Each aParagraph In wordDoc.Paragraphs

                   ' do some thing to every paragraph.

               Next aParagraph

    End with

    wordDoc.Close

    Set wordDoc = nothing

     

     

    ' 如下这段代码引用某位牛人的,非常感谢他。由于路径丢失,不能给出链接, 抱歉

    ' 如下的找寻方式,能够正确的找出文件是否被打开

    Function IsOpen(fileName As String) As Boolean
        IsOpen = False
        Dim findFile As Integer
        findFile = FreeFile()
        On Error GoTo ErrOpen
        Open fileName For Binary Lock Read Write As findFile
        Close findFile
        Exit Function
    ErrOpen:
        If Err.Number <> 70 Then
            Msg = "Error # " & Str(Err.Number) & "was generated by " & Err.Source & Chr(13) & Err.Description
            MsgBox Msg, "Error", Err.HelpFile, Err.HelpContext
           
        Else
            IsOpen = True
        End If


    End Function

     

     

     

     

      

     

    展开全文
  • 在excel中,将Excel数据对应写入已做好的Word模板的指定位置
  • vba插入excel数据到word

    2014-09-14 01:37:55
    主要用来用于WORD文档的数据动态变化,可以自动更新数据
  • Python 技术篇-利用Office VBA实现word文档转化为pdf文档实例演示。 from win32com.client import * # 创建word程序对象 word = gencache.EnsureDispatch('Word.Application') # 读取word文件 f = word.Documents....
    # -*- coding: UTF8 -*-
    from win32com.client import *
    
    def switch_pdf(path, name):
        '''
         作用:将word文档转化为pdf文档
         参数1:文件夹路径
         参数2:文件名
        '''
        # 创建word程序对象
        word = gencache.EnsureDispatch('Word.Application')
        # 读取word文件
        f = word.Documents.Open(path + name)
        # 转化为pdf文件
        f.ExportAsFixedFormat(path + "hello.pdf", constants.wdExportFormatPDF)
        # 退出程序
        word.Quit();
        
    switch_pdf("C:\\Users\\Administrator\\Desktop\\word文档\\" , "hello.doc")
    

    运行效果图:

    在这里插入图片描述
    word 样式:

    在这里插入图片描述
    pdf 样式:

    在这里插入图片描述
    ExportAsFixedFormat() 转化方法的参数使用详情:

    在这里插入图片描述

    喜欢的点个赞❤吧!

    展开全文
  • 读取word内容写入excel

    2018-08-15 12:08:17
    python脚本,实现从word中读取数据块,写入到excel表格中
  • 将Excel数据对应写入已做好的Word模板的指定位置(分发)
  • 利用VBAWord文档字色

    2010-06-01 13:29:44
    一个有趣的改变Word文档每个字的宏,适合小朋友玩。修改后可以同时改变每个字的字体,字号。很好玩。
  • VBA实现了在word中自动填充表格单元格底纹的功能,开始做了个EXCEL,但EXCEL的颜色太少,便又用word做了一个,属于初学级,一上午一中午的时间才作出来哦!
  • 那么客户的这种需求就涉及到需要对很多份word的报告(少则几十份,多则数百份)进行特定信息的提取并汇总到一张表格。往往这种需求是不能向客户收费的,属于一种增值的服务。 这种情况我们通常是怎么解决呢?大多数...
  • 使用说明 功能:把一个文件夹下面的word文档按...把目录下的文档名称写入filelist.txt文件里面,调整测试用文档的顺序。 2、createManyToOneWordAndSave 把filelist.txt文档合并成一个文档,保存在《合并后文档.docx》
  • Sub create() ' ' create 宏 ' ' Dim docActive As Document  Dim tblNew As Table  Dim celTable As Cell  Dim intCount As Integer  Set docActive = ActiveDocument  Set tblNew = docAc
  • 3 VBA读取word到excel中

    千次阅读 2018-12-10 14:27:15
    案例: option explicit ...'创建一个word的Application对象,由w代表 set w=CreateObject("word.application")  '循环打开使用数字命名的各个word文档,由doc代表 for i=1 to 8  ...
  • 文章应用VBA二次开发编程,结合Word 2007对象模型Table对象,将Word 2007表格原始数据读出,然后新建行列转置的表格,将读出的数据写入到新表格的单元格中,完成表格的行列转置,再将其转换为Word 2007加载项,解决了工作中...
  • VBA脚本可以实现从word文档的多个表中提取数据,每个表格的信息提取到一行。 Sub word2els() Set wdApp = CreateObject(“kwps.application”) path_ = ThisWorkbook.Path wdApp.Documents.Open (path_ & “”...
  • 将数据从Excel写入Word

    2021-03-09 02:05:06
    当代码运行时,它需要一次一个地收集每个标记(逐行),在整个Word文档中搜索这些单词,并用相应的替代品替换它们 .我注意到页眉和页脚中的特殊标签没有被替换 . 我转向这篇文章...
  • 这个文件是接着上一个,深化了一些,可以从excel中读出数据,写到word的格式化好的表格中。可以帮助大家好好的利用代码操作word,生成的word文档保存在d盘根目录下 文章介绍: ...
  • vba 如何填写word表格中插入的表格的内容 代码怎么写
  • word通过VBA打开excel数据文件 可以将excel的内容作为word doc文件读取的代码
  • 1、在活动文档末尾插入文字: Sub InsertTextAtEndOfDocument() ActiveDocument.Content.InsertAfter Text:=" The end." End Sub ...2、在所选内容前插入文字 ... Selection.InsertBefore Text:="n
  • 今天女朋友工作上出了点麻烦,就是要向Word中批量添加图片以及整理成Excel数据的图片名。其中图片名需要设置段落和文字格式,有些图片还是共享一个图片名。这可是个繁琐而枯燥的工作。我一直相信重复劳动是对人这...
  • VBA查询word中的字符串

    千次阅读 2019-06-20 22:53:29
    '将结果写入到文本文件 Call Write2Txt ( result , "F:/24.txt" ) End Sub 'fileAdress 如 C : / FSOTest / TestFile . txt Function Write2Txt ( str As String , fileAdress As String ) Dim sFile ...
  • 要从Word中读取相应的内容并写入到Access或其它数据库中,可采用的方法1.使用Word.application读取 Word内容,根据关键字去判断这个是使用 用office的导入库,但是要求跑程序的机器上有安装office,而且版本必须和...
  • 因为工作需求,要把Excel中的数据写入到指定的word文件里(用链接的方式经常会出现word无响应的状况,而且数据量大的时候,打开速度实在太慢。),所以就研究了一下如何判断word文件是否被打开的情形。参考了一些...
  • Word VBA中读取Excel表格中的数据

    千次阅读 2020-10-30 09:14:13
    Word VBA中读取Excel表格中的数据 前天有一个项目需要写详细设计报告,其中有一块重要内容是把Excel中的每一行数据做成一个Word中的表格。一共将近100行数据,如果我一行一行地手动去做,估计手就废了,于是采用Word...
  • VBA读取word中的内容到Excel中 原文:VBA读取word中的内容到Excel中Public Sub Duqu() Dim myFile As String Dim docApp As Word.Application Dim docRange As Word.Range myFile = ThisWorkbo...
  • Sub 宏1() ' ' 宏1 宏 ...D:\VBA\被插入文字的文件.docx", ConfirmConversions:=False, ReadOnly _ :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _ ...

空空如也

空空如也

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

vba写入word

友情链接: ATmega16_CN.rar