hylom's

genre:windows,hack,programing


Wordで文書を作成しなきゃならないんだけど、Emacs使い的にはWordで長文作成なんてやってられないのでエディタで書いた後にWordにコピーして整形、という形で作成。



この場合、画像を入れたいときに手作業でわざわざファイルを指定して挿入、という作業を繰り返さなければいけないのが面倒なのでマクロで自動化を試みる。



挿入する画像には[0-9]{1,5}.*というファイル名をつけておいて、エディタでの編集時には挿入したい画像のgファイル名を^[0-9]{1,5}という形で埋め込んでおき、マクロを実行すると対応する画像が自動的に挿入される。



ということで書いたVBAが以下。Wordの正規表現が独特で融通が利かなかったり、VBAの文法自体がワケ分からなかったりと激しくハマリまくりましたが・・・。せめてJavaScriptでマクロが書けるようになると便利なのに。。。

Sub InsertImage()

 
  Dim TextRange As Range
  Dim FileName As String
  Dim FolderName As String
  Dim FoundFile As String
  Set TextRange = ActiveDocument.Content
  Set fs = Application.FileSearch
 
  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = False Then
      GoTo Label_end
    End If
    FolderName = .SelectedItems(1)
  End With
 
  Do While TextRange.Find.Execute(“^13[0-9]{1,5}”, , , True)
    FileName = TextRange.Text
    FileName = Mid(FileName, 2)
    Selection.SetRange Start:=TextRange.End, End:=TextRange.End
 
    With fs
      .NewSearch
      .LookIn = FolderName
      .SearchSubFolders = False
      .FileName = FileName & “.*”
 
      If .Execute() > 0 Then
        For I = 1 To .FoundFiles.Count
          FoundFile = .FoundFiles(I)
          Selection.InlineShapes.AddPicture _
            FileName := FoundFile, _
            LinkToFile := False, _
            SaveWithDocument := True
        Next I
      End If
    End With
 
  Loop
 
‘終了
Label_end:
End Sub