Word 문서에 확장자 없는 파일 경로와 파일 이름을 삽입하려면 어떻게 해야 하나요?
일반적으로 Filename 필드 기능을 사용하여 Word 문서에 파일 이름이나 파일 경로와 이름을 삽입할 수 있지만, 이렇게 삽입된 파일 이름에는 docx 또는 doc 확장자가 포함됩니다. 확장자를 제외한 파일 이름이나 파일 경로와 이름을 삽입하려면 어떻게 해야 할까요?
VBA 코드를 사용하여 확장자 없는 파일 경로와 이름 또는 파일 이름 삽입하기
Word용 추천 생산성 도구
Kutools for Word: AI 🤖 통합, 100개 이상의 고급 기능으로 문서 처리 시간을 50% 절약할 수 있습니다.무료 다운로드
Office Tab: 브라우저와 같은 탭을 Word(및 기타 Office 도구)에 도입하여 다중 문서 탐색을 간소화합니다.무료 다운로드
VBA 코드를 사용하여 확장자 없는 파일 경로와 이름 또는 파일 이름 삽입하기
Word 문서에 확장자 없는 파일 이름을 삽입하려면 다음 VBA 코드를 적용하세요:
1. 확장자 없는 파일 경로와 이름을 삽입하고 싶은 위치에 커서를 놓으세요.
2. 그런 다음 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
3. 그리고 나서 Insert > Module을 클릭하고 아래 코드를 열린 빈 모듈에 복사하여 붙여넣으세요.
VBA 코드: 확장자 없는 파일 경로와 이름 삽입하기:
Sub InsertFileNameAndPath()
Dim xPathName As String
Dim xDotPos As Integer
With Application.ActiveDocument
If Len(.Path) = 0 Then .Save
xDotPos = VBA.InStrRev(.FullName, ".")
xPathName = VBA.Left(.FullName, xDotPos - 1)
End With
Application.Selection.TypeText xPathName
End Sub
4. 그런 다음 F5 키를 눌러 이 코드를 실행하면 확장자 없는 파일 경로와 이름이 문서에 삽입됩니다. 스크린샷을 참조하세요:
참고: 문서에 확장자 없는 파일 이름만 삽입하려는 경우, 이 코드를 적용해야 합니다:
VBA 코드: 확장자 없는 파일 이름만 삽입하기:
Sub InsertFileNameOnly()
Dim xPathName As String
Dim xDotPos As Integer
With Application.ActiveDocument
If Len(.Path) = 0 Then .Save
xDotPos = VBA.InStrRev(.Name, ".")
xPathName = VBA.Left(.Name, xDotPos - 1)
End With
Application.Selection.TypeText xPathName
End Sub
최고의 오피스 생산성 도구
Kutools for Word - 100가지의 뛰어난 기능으로 Word 경험을 한 단계 높여보세요!
🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (서식 유지) / Super Translate (서식 유지) / AI Redaction / AI Proofread...
📘 문서 마스터하기: 페이지 분할 / 문서 병합 / 다양한 형식(PDF/TXT/DOC/HTML 등)으로 선택 영역 솔루션 내보내기 / PDF로 일괄 변환...
✏ 텍스트 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...
🧹 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크를 깔끔하게 제거하세요. 더 많은 제거 도구는 '제거' 그룹에서 확인할 수 있습니다...
➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / 라디오 버튼 삽입 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 찾아보세요...
🔍 정밀 선택: 특정 페이지 / 표 / 도형 / 제목 단락을 정확히 선택하세요. 더 다양한 선택 기능으로 탐색을 더욱 향상하세요...
⭐ 특별 기능: 원하는 범위로 빠르게 탐색 / 반복 텍스트 자동 삽입 / 문서 창 간 토글 /11 가지 변환 도구...
🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!

✨ Kutools for Office – 한 번의 설치로5가지 강력한 도구 제공!
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint가 포함되어 있습니다
📦5가지 도구를 한 번에 이용 | 🔗 Microsoft Office와 무결점 통합 | ⚡ 즉시 저장 시간 절약 및 생산성 향상
최고의 오피스 생산성 도구
Kutools for Word - 100+ Word용 도구
- 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish / Super Translate / AI Redaction / AI Proofread
- 📘 문서 마스터하기: 페이지 분할 / 문서 병합 / PDF로 일괄 변환
- ✏ 텍스트 편집: 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정
- 🧹 손쉬운 정리: 여분의 공백 제거 / 구역 나누기 제거
- ➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / QR 코드 생성
- 🌍 40개 이상의 언어 지원: Kutools는 여러분의 언어를 지원합니다 –40개 이상의 언어 가능!