ワード2007を使用しています。
エクセルデータから差し込みをしたワードファイルがあります。
100ページ以上あるものを、手っ取り早くページごとに分割したいのです。
私なりにいろいろ調べて、そのようなことができるマクロがあるようなのですが思うように動きません。
http://support.microsoft.com/kb/306348/ja
こちらのサイトのセクションことに分割するマクロを使用してみたのですが、うまくいきません。
マクロを実行するのは差しこみを設定した文書でいいのでしょうか?
それとも差し込み済みで複数ページに出来上がった文書に対して実行するのでしょうか?
後者のほうにマクロを実行すると
実行時エラー’5156’
「文書を作成、または保存することができません。保存先のディスクに十分な空き容量があること、書き込み禁止に設定されていないこと、またディスクが壊れていないことを確認してください。」
というメッセージが出ます。
また、以下のようなプログラムもネットから引用してみたのですがうまくいきませんでした。
Sub データごとにファイルを分ける()
Dim i As Long, LRec As Long
With ThisDocument.MailMerge
.DataSource.ActiveRecord = wdLastRecord
LRec = .DataSource.ActiveRecord
For i = 1 To LRec
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.DataSource.ActiveRecord = i
.Execute Pause:=True
ActiveDocument.SaveAs ThisDocument.Path & "\" & _
.DataSource.DataFields(4).Value & ".doc", wdFormatDocument
'ファイル名に使うフィールド(例では4番目)
ActiveDocument.Close
Next i
End With
End Sub
何をどうしたらできるようになるのかわかりません。
お分かりになる方、是非教えていただきたいです。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
Windows Vista を実行しているコンピューターで、Word2007文書
をVBAで保存しようとしている場合の保存先の問題のようです。
おそらくこちら↓のエラーメッセージと同じことだと思います。
Word 2007 文書を保存しようとすると、エラー メッセージ:
「この場所に保存する権限がするありません」またはファイル名
を指定して実行時エラー '5156'
http://support.microsoft.com/kb/923917/ja
セキュリティで保存先が"C/"直下などに保存できないようです。
保存先を変更する必要があるようなので、書き換えてみては。
マクロについては http://support.microsoft.com/kb/306348/ja
を使うとして、以下のように直してみてはいかが。
マクロはすべて記載すると長いので、省略してます。
変更部分だけを記載しますので、以下の部分だけ書き換えます。
usernameは質問者のドライブにあるユーザー名に書き換えます。
ChangeFileOpenDirectory "C:\Users\ username \Documents\"
保存先については、以下の場所以外の通常Wordファイルを保存
しているフォルダでもよいと思います。
"C:\Users\ username \Documents\"
ちなみに、マクロは差し込み済みで複数ページに出来上がった
文書に対して実行しますが、この文書が実行後に消えるので、
名前を付けて保存しておくとよいと思ます。
マクロについての補足質問はしないでくださいね。
私自身、あまり得意ではないので。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
オンラインWordで保存した文書...
-
デスクトップ上に文書を保存したい
-
ワードでアンドゥができなくな...
-
openofficeのソフトからWord/Ex...
-
Wordの差し込み印刷でSql文を変...
-
Word2010を使っているのですが…
-
Macでレポートを書きたいのですが
-
wordについて
-
Wordの保存の際のメッセージ
-
EXCELにて変更していないのに毎...
-
リッチテキスト形式ってどのよ...
-
Word「自動バックアップ」、「...
-
CSVファイルで誤って上書き保存...
-
メールでもらった画像をコピー...
-
WORDの文字が赤になり取消...
-
Docuworksに代わるソフトを教え...
-
Word文章の文字が赤くなってしまう
-
Wordでページ指定し、メールで...
-
”挿入”がグレーアウトして選択...
-
リアルプレーヤーのサムネイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordの差し込み印刷でSql文を変...
-
wordで1ページだけを保存したい時
-
openofficeのソフトからWord/Ex...
-
自動保存の解除
-
EXCELにて変更していないのに毎...
-
DVDで、ワードの文書は保存でき...
-
ワード文書を保存するとPDF...
-
差し込みで設定した書式が保存...
-
Word「自動バックアップ」、「...
-
オンラインWordで保存した文書...
-
RTF形式でのパスワード設定
-
Excel VBAで確認なしで上書き保存
-
WORD2013で.docxで保存すると図...
-
デスクトップ上に文書を保存したい
-
ワードで勝手に保存されちゃう...
-
PDF文書の保存禁止設定方法を教...
-
紛失したUSBの文章を復元し...
-
wordで保存した文書に「editdat...
-
wordを立ち上げると前の文章が...
-
ワードでホームページをUTF-8で...
おすすめ情報