Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1 / 288 ツリー 前へ→

【818】初心者です Ka-sa 17/2/28(火) 10:16 質問[未読]
【819】Re:初心者です マナ 17/3/1(水) 23:46 発言[未読]
【820】Re:初心者です Ka-sa 17/3/2(木) 0:02 発言[未読]
【821】Re:初心者です マナ 17/3/2(木) 20:11 発言[未読]

【818】初心者です
質問  Ka-sa E-MAIL  - 17/2/28(火) 10:16 -

引用なし
パスワード
   はじめまして。Ka-saです
今回初めてwordでマクロ作成しようと思っているのですが、
こういう風な仕様にしたい!という漠然としたイメージは出来ていますが
いざ組もうと思ったら全く出来ませんでした。
それでこの質問板見つけたので質問させていただきます。

自分は今、問題を作成しています。問題は1-100問あり1問1ページにしたいです。

問題は

1 ○○のとき××。△△のとき□□はどうなるか。
1. ○
2. ×
3. △
4. ▲
5. ●
改行
改行
改行


2. ○○のとき××。△△のとき□□はどうなるか。
1. ○
2. ×
3. △
4. ▲
5. ●
改行
改行



という風になっておりこれが100問あります。
ファイルが全部で50近くあるのでとてもじゃないですが一つ一つやってる時間はないのでマクロでやりたいと思ってます。


どなたかおしえていただけないでしょうか?
よろしくお願いします。

【819】Re:初心者です
発言  マナ  - 17/3/1(水) 23:46 -

引用なし
パスワード
   ▼Ka-sa さん:

改行が2個以上連続したら、改ページに置換する

という処理で期待通りの結果になりそうですか
それとも不都合ありますか

【820】Re:初心者です
発言  Ka-sa E-MAIL  - 17/3/2(木) 0:02 -

引用なし
パスワード
   ▼マナ さん:
>▼Ka-sa さん:
>
>改行が2個以上連続したら、改ページに置換する
>
>という処理で期待通りの結果になりそうですか
>それとも不都合ありますか

なるほど!問題ないです!

【821】Re:初心者です
発言  マナ  - 17/3/2(木) 20:11 -

引用なし
パスワード
   ▼Ka-sa さん:

処理したいファイルを、一つのフォルダにまとめておいて
下記マクロを実行します。

Option Explicit

Sub test()
  Dim f As String
  Dim tmp As String
  Dim doc As Document
  Dim r As Range
  
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "ワード文書があるフォルダを選択してください"
    If .Show Then
      f = .SelectedItems(1) & "\"
    Else
      MsgBox "操作を中止します"
      Exit Sub
    End If
  End With
'
  tmp = Dir(f & "*.docx")
'
  Do While tmp <> ""
    Set doc = Documents.Open(f & tmp)
    Set r = doc.Content
    
    With r.Find
      .MatchWildcards = True
      .Text = "^13{2,}?"
      .Replacement.Text = "^m"
      .Execute Replace:=wdReplaceAll
    End With
    
    doc.Close True
    
    tmp = Dir()
  Loop
          
End Sub


最終的には、1つずつ開いて確認が必要でしょうから
手作業で、置換操作をしても良い気がします。

1 / 288 ツリー 前へ→
ページ:  ┃  記事番号:
193784
(SS)C-BOARD v3.8 is Free