求助！代码优化！

然後

我们每个月要写经济运行分析报告Word版本，里面涉及几百个数据，一个个敲上去太痛苦。

简单说，就是Excel里做好所需数据，全部位于某一列（有200-300个数据），然后替换Word模板中的预制文本（如C1、C2....C200...）

网上找了个代码，结果运行达不到效果。请大神帮助修改完善。



Sub ReplaceValuesInWordTemplate()
    Dim excelWorksheet As Worksheet
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim templatePath As String
    Dim i As Integer
    Dim cValues(1 To 300) As Variant

    ' 获取 Excel 活动工作表
    Set excelWorksheet = ActiveSheet

    ' 从第一列开始将数值赋值给变量
    For i = 1 To 300
        cValues(i) = excelWorksheet.Cells(Application.ActiveCell.Row, i).Value
    Next i

    ' 获取 Word 模板路径
    templatePath = GetWordTemplatePath()
    If templatePath = "" Then
        MsgBox "未选择 Word 模板"
        Exit Sub
    End If

    ' 创建 Word 应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False

    ' 打开 Word 模板
    Set wordDoc = wordApp.Documents.Open(templatePath)

    ' 替换 Word 模板中的预置文本内容
    For i = 1 To 300
        With wordApp.Selection.Find
            .Text = "C" & i  ' 修改为您想要的预置文本形式，例如 "预置文本" & i
            .Replacement.Text = CStr(cValues(i))
            .Execute Replace:=2
        End With
    Next i

    ' 选择生成的 Word 文件的保存路径
    savePath = Application.GetSaveAsFilename(FileFilter:="Word Documents (*.docx), *.docx")
    If savePath = "False" Then
        MsgBox "未选择保存路径"
        Exit Sub
    End If

    ' 保存并另存为新的 Word 文件
    wordDoc.SaveAs2 savePath

    ' 关闭并退出 Word 应用程序
    wordDoc.Close SaveChanges:=False
    wordApp.Quit

    ' 释放对象变量
    Set wordDoc = Nothing
    Set wordApp = Nothing

    MsgBox "生成的 Word 文件保存成功"
End Sub

Function GetWordTemplatePath() As String
    Dim fileDialog As Object
    Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)

    With fileDialog
        .Title = "选择 Word 模板"
        .Filters.Clear
        .Filters.Add "Word Documents", "*.docx"
        .AllowMultiSelect = False
        If .Show = -1 Then
            GetWordTemplatePath = .SelectedItems(1)
        Else
            GetWordTemplatePath = ""
        End If
    End With

    Set fileDialog = Nothing
End Function

ykcbf1100

这个代码就是Ai写的，没有附件此代码也没有更改的必要。

边缘码农

类似这种问题，没有附件和模拟结果，盲改代码，不过是盲人摸象，很难切合实际情况。
经济运行分析报告已经模式化了？每个月只改数据？文字分析不改了？
我觉得，应该在Excel中用公式准备好分析文本，写入Word。
常规数据分析，均可搞定。

心的启点

建议以后像这种直接扔一段代码上来的，都不用理会他。这是让大家不光给他改写代码，还要给他做模拟数据测试，不知道哪位大神会这么闲得慌。

然後

好的。我错了。接受大家批评。

gwjkkkkk

看了一下代码，你码应该问题不大。。。