No.1ベストアンサー
- 回答日時:
こんばんは。
フィールドは、単純計算は出来ても、文字処理のコマンドが少ないようですね。
マクロでないと無理のようです。
例えば、
まず、ファイルのプロパティで、[ユーザー設定]
プロパティ名 word1
種類 テキスト
値 test (ダミーの文字)
追加(A) をクリック
次に、
ドキュメントに戻り、フィールドを挿入(Ctrl + F9)
{DOCPROPERTY word1 \* MERGEFORMAT}
ThisDocument モジュールに以下のように入れます。
Sub Test1()
Dim fn As String
fn = ThisDocument.Name
fn = Mid(fn, 1, InStrRev(fn, ".") - 1) '拡張子を取る
fn = Mid(fn, 2, Len(fn) - 1)
ThisDocument.CustomDocumentProperties("word1").Value = fn
ThisDocument.Fields.Update
End Sub
そして、実行
12345.doc → 12345 → 234
という経緯で、ファイル名が変化しています。
もし自動的に入れるなら、上記のプロシージャ名の
Sub Test1() の代わりに、
Private Sub Document_Open()
と入れ替えて、Wordを再起動します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
word差込印刷 _空白だった場合...
-
相互参照箇所を知りたいです
-
右クリックで、フィールドの更...
-
Access2003 クエリで、空の列...
-
差込み印刷について(連続した数...
-
Wordの差し込み印刷でルビもい...
-
Wordで印刷時に通し番号を付けたい
-
(Word)ページごとにひと月分...
-
ワードでの差込印刷の差し込み...
-
Word 差込印刷 一ページに同...
-
ワードで下付き文字にさらに下...
-
ワード差込でデータエクセルの...
-
差し込み印刷ができません(--)
-
差し込み印刷で郵便番号を表示...
-
WORD2010の差込印刷で数字を縦...
-
Excelで、ヘッダに挿入する日付...
-
Word2007 差し込み印刷の途中...
-
ワード2003差し込み印刷の...
-
差し込み印刷で「Next Record I...
-
Word2003で複数のファイルから...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access2003 クエリで、空の列...
-
word差込印刷 _空白だった場合...
-
相互参照箇所を知りたいです
-
ワードでの差込印刷の差し込み...
-
右クリックで、フィールドの更...
-
差込み印刷について(連続した数...
-
Wordの差し込み印刷でルビもい...
-
Wordで印刷時に通し番号を付けたい
-
WORD2010の差込印刷で数字を縦...
-
差し込み印刷で「Next Record I...
-
0になってしまいます
-
Wordの文書を開いたときに、「...
-
ワードで下付き文字にさらに下...
-
差し込み印刷で郵便番号を表示...
-
ワード差込でデータエクセルの...
-
Word2007 差し込み印刷の途中...
-
差し込み印刷で、ある条件でフ...
-
【Word】差し込みデータを連続...
-
差し込み印刷ができません(--)
-
Wordで条番号等の連動変換について
おすすめ情報