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 このコードを実行するためのキーと、ファイルのパスと名前が拡張子なしでドキュメントに挿入されています。スクリーンショットを参照してください。
注意:拡張子なしのファイル名をドキュメントに挿入するだけの場合は、次のコードを適用する必要があります。
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の高度な機能で50%の時間を節約
- 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
- 複数の画像をフォルダ間でWord文書に一度に挿入します。
- フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
- 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
- DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...