［新手一问］excel资料库选择条款导出word文本

gwjkkkkk

stonexp 发表于 2024-5-14 17:53
推一下，希望大家帮帮忙吧

Option Explicit
Sub TEST()
    Dim wdApp As Object, wdDoc As Object, ar, i&, strTxt$, f$
   
    Application.ScreenUpdating = False
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
   
    ar = [B4].CurrentRegion.Value
    For i = 2 To UBound(ar)
        If Len(ar(i, 1)) Then
            If strTxt = "" Then
                strTxt = strTxt & ar(i, 1) & "." & ar(i, 2)
            Else
                strTxt = strTxt & vbCrLf & ar(i, 1) & "." & ar(i, 2)
            End If
        End If
    Next i
    f = ThisWorkbook.Path & "\test"
    Set wdDoc = wdApp.Documents.Add
        With wdDoc
            .Content.Text = strTxt
            .SaveAs f
            .Close
        End With
   

    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing: Set wdDoc = Nothing
    Beep
End Sub

gwjkkkkk

上传附件，应该很快解决，给你简单模拟一下，记得以后上传附件。。。

stonexp

gwjkkkkk 发表于 2024-5-14 18:30
上传附件，应该很快解决，给你简单模拟一下，记得以后上传附件。。。

谢谢
但运行不到
是否因为用了字典？

gwjkkkkk

stonexp 发表于 2024-5-14 19:27
谢谢
但运行不到
是否因为用了字典？

我这里没问题，同目录 下有个test 文件看一下。。。

stonexp

gwjkkkkk 发表于 2024-5-14 18:30
上传附件，应该很快解决，给你简单模拟一下，记得以后上传附件。。。

成功了，謝謝

stonexp

gwjkkkkk 发表于 2024-5-14 19:30
我这里没问题，同目录 下有个test 文件看一下。。。

刚才可以运行，现在又不行了

stonexp

現在又可以了

stonexp

能设定字型吗？不能也不要紧，只是问问
好像一般的字型代码
如Font.Name, Font.Size改变字体无效

stonexp

gwjkkkkk 发表于 2024-5-14 18:30
上传附件，应该很快解决，给你简单模拟一下，记得以后上传附件。。。

想抽起一个cell的文字作标题，这可行吗?