2012-07-03 5 views
2

HTML 문서를 조작하는 VBA 코드를 작성 중입니다. 문서가 텍스트로 열리므로 HTML을 작업 할 수 있습니다. 따라서 :Word 문서의 getElementByID

Dim oWordDoc As Word.Document 
Set oWordDoc = Documents.Open(FileName:=strFolder & "\" & strFileName, _ 
    Format:=wdOpenFormatText) 

HTML에는 ID로 액세스 할 수있는 메타 태그가 포함되어 있습니다. 내가 라인에 형식 불일치 오류가 발생, 그러나

Dim objHtmlDoc As HTMLDocument 
Dim objMetaTag As HTMLMetaElement 
Set objHtmlDoc = oWordDoc 
Set objMetaTag = objHtmlDoc.getElementById("keywords") 

:

Set objHtmlDoc = oWordDoc 

내가 oWordDoc.content에 objHtmlDoc을 설정하려고하고 얻을이 내가이 시도하려 코드입니다 같은 오류. 어쨌든 내가 HTMLDocument를 Word.Document로 설정할 수 있도록 Word.Document 객체를 HTMLDocument 객체로 변환 할 수 있습니까? 아니면 이것을 수행하기 위해 내 자신의 getElementbyID 함수를 개발해야합니까?

감사합니다.

+0

대안을 찾을 수 있습니까? –

+0

VBA/VBScript로 제한되어 있습니까? 그것은 당신의 업무에 거의 적합하지 않습니다. –

+0

그것은 내가 함께 작업 한 도구입니다. 나는 다른 것을 사용하여 도망 갈 수 있습니다. 너는 무엇을 제안 하는가? –

답변

3

내가 제안했던 대안.

Sub Sample() 
    Dim objHtmlDoc As HTMLDocument 
    Dim objMetaTag As HTMLMetaElement 
    Dim IE As Object 

    Set IE = CreateObject("InternetExplorer.Application") 
    IE.Visible = True 

    IE.navigate "C:\Sample.Htm" 

    Set objHtmlDoc = IE.Document 
    Set objMetaTag = objHtmlDoc.getElementById("keywords") 
End Sub 
관련 문제