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. そして、挿入 > モジュールをクリックし、以下のコードをコピーして開かれた空白のモジュールに貼り付けます。
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機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ(書式維持)/ スーパー トランスレート(書式維持)/ AI編集 / AI校正...
📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式(PDF/TXT/DOC/HTMLなど)でソリューションをエクスポート / 一括PDF変換...
✏ テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...
🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...
➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...
🔍 高精度な選択: 特定のページや表、図形、見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...
🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応!

✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます!
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む
📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ
最高のオフィス生産性ツール
Kutools for Word - 100+ のツールでWordをよりパワフルに
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書マスター: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ テキスト編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単クリーン:余分なスペースを削除 / セクション区切りを削除
- ➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックスを挿入 / QRコードを作成
- 🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただける ―40以上の言語をサポート!