将变量值粘贴到word中的问题

cunfu2010

Sub test()
    i = "路在每个人的脚下，只是看你如何去走"
    Set wordapp = CreateObject("Word.Application")
    wordapp.Documents.Add
    wordapp.Selection.Paste
    wordapp.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\感悟.doc"
    wordapp.Quit
End Sub
如何将i中的值粘贴到新建的word文档中？必须要用剪贴板吗？

Sub test()
    i = "路在每个人的脚下，只是看你如何去走"
    Open ThisWorkbook.Path & "\保存.doc" For Output As #1
    Print #1, i
    Close #1
End Sub
上面的方法能实现，但有问题：
1、保存格式为.doc时，打开文件时弹出文件转换窗口，要求选择文本编码（应该是与纯文本有关，但不知道如何解决）
2、保存格式为.docx时，打开文件时弹出文档损坏

而且文档中会有一对"

cunfu2010

请各位指点一句

duquancai

cunfu2010 发表于 2018-9-18 21:59
请各位指点一句

下面代码够详细了吧？

1. Sub test()
   
2.     Dim wordapp As Object, doc As Object, i As String
   
3.     i = "路在每个人的脚下，只是看你如何去走"
   
4.     Set wordapp = CreateObject("Word.Application")
   
5.     Set doc = wordapp.Documents.Add
   
6.     doc.Content.InsertAfter i
   
7.     doc.SaveAs ThisWorkbook.Path & "\感悟.doc", 0
   
8.     doc.Close
   
9.     wordapp.Quit
   
10. End Sub

复制代码

cunfu2010

duquancai 发表于 2018-9-18 22:09
下面代码够详细了吧？

请教：为什么保存为.docx格式会出错？

duquancai

cunfu2010 发表于 2018-9-19 12:31
请教：为什么保存为.docx格式会出错？

大家都很忙，哪有那么多闲功夫扯这些鸡毛蒜皮的小事。

excelstatic

cunfu2010 发表于 2018-9-18 21:59
请各位指点一句

    i = "路在每个人的脚下，只是看你如何去走1"
    Set doc_app = GetObject("d:\a.docx")
    doc_app.Range.Text = i
    doc_app.SaveAs