Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
회원가입  \/ 
x

or

 Word 문서에서 확장자없이 파일 경로와 파일 이름을 삽입하는 방법은 무엇입니까?

일반적으로 파일 이름 필드 기능을 사용하여 Word 문서에 파일 이름 또는 파일 경로 및 이름을 삽입 할 수 있지만, 여기에 파일 확장자 docx 또는 doc를 포함하는 파일 이름이 삽입됩니다. 확장자없이 파일 이름 또는 파일 경로 및 이름을 어떻게 삽입 할 수 있습니까?

VBA 코드를 사용하여 확장자없이 파일 경로 및 이름 또는 파일 이름 삽입


VBA 코드를 사용하여 확장자없이 파일 경로 및 이름 또는 파일 이름 삽입

확장명이없는 파일 이름을 Word 문서에 삽입하려면 다음 VBA 코드를 적용하십시오.

1. 확장자없이 파일 경로와 이름을 삽입 할 위치에 커서를 놓습니다.

2. 그런 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

3. 그런 다음 끼워 넣다 > 모듈, 아래 코드를 복사하여 열린 빈 모듈에 붙여 넣습니다.

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 이 코드를 실행하기위한 키와 파일 경로 및 이름이 확장자없이 문서에 삽입되었습니다. 스크린 샷을 참조하십시오.

확장자가없는 문서 삽입 파일 이름 1

주의 사항: 문서에 확장자없이 파일 이름 만 삽입하려면 다음 코드를 적용해야합니다.

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



추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.