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 発言[未読]

【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 ツリー 前へ→
ページ:  ┃  記事番号:
192503
(SS)C-BOARD v3.8 is Free