VBA:从excel打开单词

Question

我无法从Excel宏(办公室xp)打开Word.如果我使用此代码,它将停止在线Set wdDoc = wordapp.Documents.Open(polozka.ShortPath)并且程序冻结.如果我使用Set wdDoc = GetObject(polozka.ShortPath)而不是这一行,程序在这里停止With wdDoc.Selection"对象不支持此属性..."错误

Dim wordapp As Word.Application
Dim wdDoc As Word.Document

Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder("C:\path").Files       
Set wordapp = CreateObject("Word.Application")

For Each polozka In files
    Set wdDoc = wordapp.Documents.Open(polozka.ShortPath)
    wordapp.Visible = True
    With wdDoc.Selection
        .HomeKey Unit:=6
        .Find.Text = "Název (typ):"
        .Find.Wrap = wdFindContinue
        ...
    End With
    ...
    wordapp.Quit
    Set wordapp = Nothing    
Next

Answer 1

你必须将你的变量声明为对象,如下所示

Dim Paragraphe As Object, WordApp As Object, WordDoc As Object

并使用文档:

File= "D:\path"
'Word session creation 
Set WordApp = CreateObject("Word.Application")
'word will be closed while running
WordApp.Visible = False
'open the .doc file 
Set WordDoc = WordApp.Documents.Open(File)

并关闭applcation

WordDoc.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

我希望他们可以帮助你