excel vba 打开名为123的Word文件，找到你好两个字，在下面插入一个表格，然后在表格下面再插入一个图片

你可以使用以下VBA代码实现：

Sub addTableAndPicture()
    '打开Word文件
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Open("路径\123.docx")
    
    '查找“你好”关键字
    Set objSelection = objWord.Selection
    objSelection.Find.ClearFormatting
    objSelection.Find.Text = "你好"
    objSelection.Find.Execute
    
    '在下面插入表格
    Set objTable = objDoc.Tables.Add(objSelection.Range, 3, 3)
    
    '在表格下面插入图片
    Set objRange = objTable.Range
    objRange.Collapse wdCollapseEnd
    objRange.InsertParagraphAfter
    objRange.Collapse wdCollapseEnd
    Set objInlineShape = objRange.InlineShapes.AddPicture("路径\图片.jpg")
End Sub

希望能帮到你！

相关问题

VBA将WORD所有表格数据复制粘贴到一个excel sheet中

以下是一个将WORD中所有表格数据复制到一个Excel Sheet中的VBA代码示例：

Sub CopyWordTableToExcel()
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    
    '打开WORD文档
    Set wdDoc = GetObject("C:\your\file\path.docx")
    
    '创建一个新的Excel应用程序
    Set xlApp = CreateObject("Excel.Application")
    
    '打开一个新的Excel工作簿
    Set xlWb = xlApp.Workbooks.Add
    
    '选择第一个工作表
    Set xlWs = xlWb.Worksheets(1)
    
    '遍历WORD文档中的所有表格
    For i = 1 To wdDoc.Tables.Count
        Set wdTable = wdDoc.Tables(i)
        
        '将表格数据复制到Excel工作表中
        For j = 1 To wdTable.Rows.Count
            For n = 1 To wdTable.Columns.Count
                xlWs.Cells(j, n) = wdTable.Cell(j, n).Range.Text
            Next n
        Next j
        
        '在Excel工作表中插入一个空行，以便区分不同的表格数据
        xlWs.Rows(j).Insert
    Next i
    
    '保存Excel工作簿
    xlWb.SaveAs "C:\your\file\path.xlsx"
    
    '关闭Excel应用程序
    xlApp.Quit
    
    '释放资源
    Set wdDoc = Nothing
    Set wdTable = Nothing
    Set xlWs = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
End Sub

请将代码中的文件路径替换为您的WORD文档路径和Excel文件路径，并在VBA编辑器中运行该代码。该代码将遍历WORD文档中的所有表格，并将表格数据复制到一个新的Excel工作簿中的第一个工作表中。每个表格数据之间将插入一个空行以便区分。最后，将Excel工作簿保存到指定路径，并关闭Excel应用程序。

excel VBA打开一个文件并导入

你可以使用以下代码在Excel VBA中打开文件并导入数据：

Sub ImportData()

Dim filename As String
Dim wb As Workbook
Dim ws As Worksheet

'选择要打开的文件
filename = Application.GetOpenFilename()

If filename <> "False" Then
    '打开文件
    Set wb = Workbooks.Open(filename)
    
    '选择要导入数据的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '将数据从打开的工作簿中复制到当前工作簿中
    wb.Sheets("Data").Range("A1:D10").Copy ws.Range("A1")
    
    '关闭打开的工作簿
    wb.Close False
End If

End Sub

在上面的代码中，我们首先使用`Application.GetOpenFilename()`函数让用户选择要打开的文件。如果用户选择了一个文件，则使用`Workbooks.Open()`方法打开它并将其存储在变量`wb`中。接下来，我们选择要将数据导入的工作表，然后使用`Copy`方法将从打开的工作簿中复制的数据粘贴到当前工作簿中。最后，我们使用`Close`方法关闭打开的工作簿。

请注意，上面的代码假定要导入的数据在打开的工作簿的名为“Data”的工作表中，并且将数据复制到当前工作簿的名为“Sheet1”的工作表中。你需要根据自己的需求进行修改。