A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
#2です。
このマクロが難しいのは、自ブックでは、BeforeSave イベントが使えても、任意のブックではイベントが使えないということなのですね。だから、クラス・インスタンスを設けなくてはならないのです。
No.3
- 回答日時:
VBAの知識が無いと実現は難しいでしょう。
下記で言っていることが、何を言っているか判らない段階だと
無理でしょう。
エクセルで
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "AAA"
End Sub
でテストすると、上書き保存でも、このイベントで捉えられるようなのでこれが使えそう。Msgboxの行に下記コードを組む。
現在開いている自分のファイル名を採る。
自分の名前の文字列をファイル名の中に入れて、継ぎ接ぎする。
その名前でsaveAsする。
ワードも似たコードになろうが、2通りで別に考えないといけない。
No.2
- 回答日時:
こんばんは。
Word側は、こちらは、Office 2003 ですが、初期起動では、直接働きません。
新規をクリックしていただくか、既存のファイルを開かないと、設定されません。
Excel側では、そのまま初期起動で、設定が働きます。
本来は、保存ボタン側につけると確実ですが、内容的に、複雑になりすぎます。掲示板では不向きです。私の試した感じでは、Word側は、どこかに無理があるという感じが否めないです。
本来は、コマンドボタンにして取り付けたほうがよいかもしれませんね。
イメージはこのようにしました。
tasklist_Suzuki1025.doc
----------------------------------------------------------------
Word 編 (Normal.Dot )
VBEditor 画面-挿入-クラスモジュール
Class1
Public WithEvents objApp As Application
Private Sub objApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim Fname As String
Cancel = True
If Not Doc.Name Like "*.???*" Then
Fname = objApp.UserName & Format$(Date, "mmdd")
Fname = Replace(Fname, Space(1), "_", , , vbTextCompare)
With Dialogs(wdDialogFileSaveAs)
.Name = Fname
.Show
End With
End If
End Sub
'ThisDocument モジュール
Dim myClass As Class1
Private Sub Document_New()
Set myClass = New Class1
Set myClass.objApp = Application
End Sub
Private Sub Document_Open()
Set myClass = New Class1
Set myClass.objApp = Application
End Sub
===========================================================
Excel 編 (Personal.xls)
Class 1
Private Sub NewApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Fname As String
If Not Wb.Name Like "*.???*" Then
Fname = NewApp.UserName & Format$(Date, "mmdd")
Fname = Replace(Fname, Space(1), "_", , , vbTextCompare)
Application.EnableEvents = False
With Application.Dialogs(xlDialogSaveAs)
.Show (Fname)
End With
End If
Application.EnableEvents = True
If Wb.Name <> ThisWorkbook.Name Then
Cancel = True
End If
End Sub
'----------------------------------
'ThisWorkbook モジュール
Dim myClass As Class1
Private Sub Workbook_Open()
Set myClass = New Class1
Set myClass.NewApp = Application
End Sub
No.1
- 回答日時:
Wordなどの、テキストのトップに[タイトル名]を書き込めば
作業終了時に[上書き保存]を選択で先ほどの[タイトル名]がファイル名になる筈ですが。
この様に成りませんか?
この回答への補足
はい、Wordだとファイル名が自動的にテキストの最初の何文字かになると思いますが求めているものは例えば以下のような例です
1.斉藤さんが「●●契約書.doc」というファイルを作成しました
2.鈴木さんはそのファイルを受け取り内容を確認、訂正箇所があったのでファイルに上書きする形で修正を加え上書き保存。
3.そこで保存されたファイルが「●●契約書_Suzuki.doc」といった様に自動的に保存される
といった具合です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excel、Wordのファイル 3 2023/05/07 04:58
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Word(ワード) office 2021へ自分用のクイックアクセスとマクロをコピーしたい 2 2023/03/11 21:15
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Word(ワード) Word 2016のマクロを Word 2021のWordでキー動作させたい 3 2023/04/12 16:14
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ワードで保存するファイル名の自動化
その他(Microsoft Office)
-
エクセルで「名前を付けて保存」を自動的に名前を付けて保存したい
Excel(エクセル)
-
ワードで保存先を指定する
その他(Microsoft Office)
-
-
4
Wordで差込印刷した後に別々のファイル名をつける
Word(ワード)
-
5
Excelでセル内の文字をファイル名にする方法と、下のSheet1タブを2列にする方法は?
Excel(エクセル)
-
6
ワードの様に新規保存時に自動で一行目をファイル名にしたい。
Excel(エクセル)
-
7
エクセルファイル名に更新日時を入れたいです。
Excel(エクセル)
-
8
WORDテンプレート保存時にファイル名を指定
Word(ワード)
-
9
word VBA ファイル名 保存
その他(Microsoft Office)
-
10
Word差し込み後にセクション別に名前を付けて保存
Word(ワード)
-
11
エクセルで「ファイル保存名」を自動作成したい
Excel(エクセル)
-
12
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
13
Wordの文書ファイルの「名前を付けて保存」について「
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数学 Tan(θ)-1/Cos(θ)について...
-
スマートな関数を教えて下さい。
-
Excel ウインドウ枠の固定をす...
-
EXACT関数とIF関数の組み合わせ...
-
4つのパターンを表示するEXACT...
-
関数を教えて下さい。
-
Excel:一部のフォントでセルの...
-
エクセルで指定した日付、店舗...
-
エクセルでセルに「氏名を入力...
-
Excel 2019 のピボットテーブル...
-
スプレッドシートの関数VLOOKUP...
-
エクセルで日付の入ったセルの...
-
Excelファイルの「数式」タブ→...
-
excelの不要な行の削除ができな...
-
Excelのif関数で文字が見えなく...
-
各ページの1番上の表示について
-
エクセル関数に詳しい方、教え...
-
INDIRECTを使わず excelで複数...
-
Excel 2019 は、SPILL機能があ...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word、Excelのファイル名に自動...
-
EXCEL VBAのModuleの使い方
-
VB6の変数宣言で、末尾に"*"と...
-
OpenPNEで日記等を外部公開する...
-
私書箱スクリプト(PHP、CGI等)
-
不倫でバレた後、再構築と仮面...
-
RAID5+HS vs RAID6
-
Windows serverでマルチキャス...
-
付加価値を加える?
-
VBAをDLL化する方法を教えてく...
-
PL/SQLとMS SQLServerの違いを...
-
Accessの代わりのノンプログラ...
-
パケットキャプチャツール(Wir...
-
QGISでの円(圏域)描画方法に...
-
難読化ソフト
-
Movable typeで作ったサイトの...
-
diffツールでコメントを比較対...
-
夫婦共に浮気、発覚後に再構築...
-
Movable Typeで特定のページの...
-
ツールが消えた
おすすめ情報