.txt 파일을 vbox로 저장하는 방법

Question

첫 번째 질문은 여기에 있습니다. 내가하고 싶은 것은 단어에 txt 파일을 열고 매크로로 다음을 수행하는 것입니다. 1. 파일 이름을 얻으십시오. 2. 문서에서 원하는 변경 사항을 적용하십시오. 3. PDF 및 DOC 버전. 4. 문서를 닫습니다.

문제는 1 단계에있을 때 Word에서 WordModel 문서의 .txt 파일이 열리므로 이름을 all "normal.dotm"입니다. 그리고 내가 필요한 것은, 예를 들어, car.txt 파일을 열고 그 이름으로 pdf와 doc 버전을 저장할 수 있도록 "car"라는 이름을 얻는 것입니다.

Dim esse As String 
esse = ThisDocument.Name 
MsgBox (esse) 

어떤 아이디어 :

코드의 조각 나는 이름을 얻기 위해 사용하고, 지금까지이 무엇입니까? Thks 사전에.

Answer 1

이전 웹을 조금 더 파고 해결책을 찾았습니다.

Dim path As String 
Dim name As String 

path = ActiveDocument.FullName 
name = Replace(Dir(path), ".txt", "")