>

무거운 인터넷 검색에도 불구하고, 이것이 무엇인지 알아낼 수 없습니다. 그래도 참조 또는 무언가가 누락 되었습니까? 오류가있는 곳을 볼 수 있다면 영원히 감사하겠습니다!

참고 문헌 :

  • 응용 프로그램 용 Visual Basic
  • Microsoft Excel 16.0 개체 라이브러리
  • OLE 자동화
  • Microsoft Office 16.0 개체 라이브러리
  • RefEdit 컨트롤
  • Microsoft Word 16.0 개체 라이브러리

변수 :

Public appWord As Word.Application
Public sapmWord As Word.Document
Dim asNimi As String 'in this current sub

코드 :

On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err <> 0 Then
    Set appWord = CreateObject("Word.Application")
End If
On Error GoTo 0
appWord.Visible = True
Set sapmWord = appWord.documents.Open("C:\ThisIsWorking\andDocOpens.docx")
'sapmWord.Activate 'doesn't make a difference
With sapmWord
    Selection.EndKey Unit = wdStory 'this line is first line to give an error. With or without a dot in the beginning of line.
    Selection.TypeText Text:=asNimi 'this line too, if previous is commented
'...and so on!
End With
sapmWord.Close savechanges:=True
Set appWord = Nothing
Set sapmWord = Nothing

  • 답변 # 1

    sapmWord  워드 문서입니다. 단어 문서에는 selection 가 없습니다  방법. Word 응용 프로그램 개체에 포함되어 있으므로 아마도 '.'가 필요합니다.

    With appWord 
        .Selection.EndKey Unit:= wdStory 
        .Selection.TypeText Text:=asNimi 
        '...and so on!
    End With
    
    

  • 답변 # 2

    With 를 사용하려면 , . 회원을 참조해야합니다 :

    With sapmWord
        .Selection.EndKey Unit = wdStory
        .Selection.TypeText Text:=asNimi
    End With
    
    

  • 답변 # 3

    결국 Word 문서에 책갈피를 추가하고 VBA로 채우는 것 외에는 선택의 여지가 없었습니다. 원래 코드가 왜 내 코드에서 작동하지 않는지 아직 알 수 없습니다. 도와 주셔서 감사합니다. 어쩌면 다른 누군가가 여기에 답을 얻고있을 수도 있습니다.

  • 이전 두 번 검색하여 Alfred 워크 플로를 만드는 방법은 무엇입니까?
  • 다음 sql - 공통 열을 식별하기 위해 별명을 사용하지 마십시오