VBA 나는 다음과 같은 코드를 수정하려고

, 그것은 좋은 말씀 문서를 병합합니다,하지만 난 모든 라인은 "* 이름 * .DOCX" "* NAME2 * .DOCX"인 텍스트 파일이 파일에서 입력을 읽어 , 등, 나는 한 줄씩 텍스트 파일을 읽고 패턴과 일치하는 모든 문서를 병합하려면 VBA 매크로를 수행하고 완료되면 27 개의 문서 여야하며 "* 이름"태그가 포함 된 제목으로 각각을 저장하는 것이 바람직합니다 그래서 어느 것이 어떤 것인지 알 수 있습니다. 어떤 도움을 크게 VBA 나는 다음과 같은 코드를 수정하려고

Sub MergeDocs() 
Dim rng As Range 
Dim MainDoc As Document 
Dim strFile As String 
Const strFolder = "C:\test\" 
Set MainDoc = Documents.Add 
strFile = Dir$(strFolder & "*Name*.docx") 
Do Until strFile = "" 
    Set rng = MainDoc.Range 
    rng.Collapse wdCollapseEnd 
    rng.InsertFile strFolder & strFile 
    strFile = Dir$() 
Loop 
MsgBox ("Files are merged")

을 감상 할 수있다 끝 하위

출처

2016-07-28 Nolemonkey

나는 그냥 라인으로 입력 파일 라인을 읽고 여분의 루프를 추가하는 문제라고 생각하고 위의 루프를 사용합니다.

이 예제에서는 스크립트 파일 시스템 개체를 사용하여 파일을 열고 읽습니다.

위의 내용은 실제로 의미하는 것으로 가정하고 파일 사양은 텍스트 파일에 있습니다. 사용자의 필요에 맞게 상수 변경

출처

2016-07-28 04:05:24 dbmitch

감사합니다. 지금 이것을 테스트하십시오. 결과를 업데이트합니다. – Nolemonkey

좋아, 내가 처음 편집했을 때 나는 틀린 일을 했음에 틀림 없다. 그러나 이제는 거의 완벽하게 작동하고있다. 내 문서 중 일부는 내용을 잘 병합하고 일부는 그냥 빈 문서를 얻습니다. 무슨 일이 일어나고 있는지 확실하지 않지만 지금은 그것을 보려고합니다. 이름 지정 규칙이 있는데 거기에 일부 내용이 병합되고 다른 내용이 비어있는 이유를 확인하려고합니다. – Nolemonkey

멋진 픽업 - 편집 해 주셔서 감사합니다! – dbmitch

VBA 나는 다음과 같은 코드를 수정하려고

답변

관련 문제