[スポンサーリンク]

化学者のつぶやき

化学者のためのWordマクロ -Supporting Informationの作成作業効率化-

[スポンサーリンク]

「化合物データの帰属チェックリスト、見やすいんですが、もっと使いやすくならないですか」

ある日、ラボメンバーにこのようなことを言われました。もともと、スペクトルを帰属して、帰属表をピーク毎に改行してWordファイルにまとめるという方法を取っていました(下図)。ですが、色々な理由で、結局のところ不便していました。Excelでチェックリストを作るとまとめやすく見やすいですが、Wordフォーマットに落とし込むのが大変手間でした。ということで、Excelで見やすくまとめた帰属チェックリストを一発で論文フォーマットに変換できるマクロを書きましたので、ご紹介します。

Word式帰属チェックリスト

注)本記事の内容は、プログラミング専門外の有機化学者ができる範囲で作成したマクロになりますので、不完全な部分があることをご了承ください。

 

目標:Excelでまとめた帰属チェックリストをWord論文フォーマットに一括置換する

天然物やその合成中間体など複雑な化合物のNMRによる帰属・構造決定は慎重行う必要があります。そのために、以下のようなExcel帰属チェックリストが役に立ちます。
人がリストを転記すると、人為的ミスが生じ、結果的に非効率になってしまいますので自動化が必須ですが、こちらのチェックリストをWord書式に落とし込むためには少々複雑なプロセスが必要でした。
※簡単な化合物の場合、最初からWordに論文フォーマットで帰属を書いた方が速いです。

そこでまず、Excel上で帰属まとめ用シートとは別にコピー用シートを作ることにしました。Excel上で作成したJ値やプロトン数などを書き込んだ情報の中から必要な論文に使うデータを順に並ぶように抽出します。そして、赤枠内をコピーしてWordにマクロを使って貼り付けます。

 

鍵となるのは「検索」と「置換」を指示するコード

Supporting Informationなど、繰り返し同じ記載が多数出てくる文書のフォーマットを統一するためには、検索と置換が有効です。いつもは検索と置換ウインドウを開いて設定していますが、VBAマクロで書くと以下のようになります。

検索して置換

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “検索する文字列
.Replacement.Text = “置換する文字列
.Forward = True (#カーソルから前方に向かって検索)
        .Wrap = wdFindContinue (#検索置換後にそのまま繰り返すかどうか)
        .Format = True (#フォーマットを区別)
        .MatchCase = True (#大文字小文字を区別)
        .MatchWholeWord = True (#文字列の完全一致を区別)
        .MatchByte = True (#全角と半角を区別)
        .MatchAllWordForms = True (#英単語の異なる活用形を区別)
        .MatchSoundsLike = True (#似た単語・あいまい検索)
        .MatchWildcards = True (#ワイルドカードを使用する)
        .MatchFuzzy = True (#ひらがなとカタカナ、旧漢字と常用漢字の区別をなくす)
    End With
Selection.Find.Execute Replace:=wdReplaceAll

検索のみで、置換しない場合、置換する文字列を検索する文字列と同じにするか”\1″とし、最後の行のSelection.Find.Execute Replace:=wdReplaceAllのReplace以降を削除します。

選択箇所の数字だけを上付きor下付きにする

化学式の「数字」のみを下付きにするといった操作は、「ワイルドカード」という機能を使用することで実現できます。選択した箇所の半角数字のみを下付きにするコードは以下。上付きにする場合はSubscriptをSuperscriptに変更すればOK

【Word VBA】選択範囲内の半角数字を全て下付き文字にするWordマクロ
ワイルドカードの使い方

If Selection.Type = wdSelectionIP Then
  Selection.Expand Unit:=wdWord
End If

 With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = “([0-9]{1,})”
.Replacement.Text = “\1”
.Replacement.Font.Subscript = True
  .Forward = True
  .Wrap = wdFindStop
.Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchFuzzy = False
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With

ちなみにこのワイルドカード検索、他にも様々なことに活用できます。例えばわかりやすい例で言えば、Mr. Ms. Mrs. Dr.などのPrefixを一括検索したい場合、ワイルドカードを有効にして、検索する文字列を([MD][rs]{1,2})とすればよいのです。1文字目はMまたはD、2文字目はr, s, rr, ss, sr, rsのいずれかという意味になります。このように、規則的な接頭語などを検索する場合はワイルドカード検索が有効です。それぞれ研究分野によって需要は異なると思いますが、アレンジして使ってみてください。

マクロの記録を活用

マクロ化したい操作のコードが不明な場合、「マクロの記録」を使用し、マクロ化したい操作を実行して記録を停止します。その後Visual Basicを開き、保存したマクロのコードを確認します。ほとんどの操作はこれによりマクロ化可能です。プロのエンジニアからすると非推奨の方法かもしれませんが、必要なコードはすべて入っているのでエラーの確率が減ります。エラーが起きて困る場合はマクロの記録を試しましょう。

マクロの記録 Record Macro

 

Visual Basicでマクロを編集する -記号に注意-

Visula Basicでマクロを組合せてやりたいことを実現しましょう。今回は最初にお見せしたExcelのセルをコピーしてWordに貼り付けてから、下図のような雰囲気の操作を施せば論文フォーマットに変換できます。それぞれのラボの記述フォーマットがあると思いますので、細かい部分はラボごとに編集していただければと思います。
記号に注意というのは、enダッシュ「–」やデルタ「δ」のような記号はそのままマクロに入れても文字化けしてしまうということです。
これには、ChrWというユニコード関数を使用します。例えば、enダッシュ = ChrW(8211) となります。

 

最終的に出来上がったマクロの威力

最終的に出来上がったマクロを使って、Excelのコピー用シートの内容をコピーしてWordに貼り付けてみた様子がこちら。これ、特に何も編集カットなどしていません。マクロが動いている間カーソルがチョロチョロと変わっている様子が見て取れると思います。マクロを使って貼り付けた際に思い通りの結果が得られなかった場合、Word上でCtrl + Z(戻る)を繰り返し、おかしな動作をしたところまで戻ることで、どのコードを修正すればよいのかを把握することができます。(途中でWordを呼び出す時にさり気なく使っているのはAlfred 5というmac神アプリ。これもリアルタイム。)
(↓↓少々重いので表示に時間がかかる場合があります↓↓)

 

おわりに

最後まで読んでいただきありがとうございました。
今回作成したマクロとExcelファイルはこちらに格納いたしましたので、自由に改変して使ってください。
ちなみに、ExceltoWordというマクロが上記の一括変換コピペマクロですが、JEOL DeltaやMNovaなどで出力した1Hや13Cのピークリスト(J coupling analysis)を横表示から縦表示に変換するマクロも入っています(Delta to word 1Hと13C)。これらも活用するとさらに作業効率化できます。

 

関連記事

電子実験ノートSignals Notebookを紹介します ①
電子実験ノートSignals Notebookを紹介します ②
電子実験ノートSignals Notebookを紹介します ③
IASO R7の試薬データベースを構造式検索できるようにしてみた
電子実験ノートSignals Notebookを紹介します ④

Macy

投稿者の記事一覧

有機合成を専門とする教員。将来取り組む研究分野を探し求める「なんでも屋」。若いうちに色々なケミストリーに触れようと邁進中。

関連記事

  1. 【速報】2010年ノーベル化学賞決定!『クロスカップリング反応』…
  2. 第42回ケムステVシンポ「ペプチドと膜が織りなす超分子生命工学」…
  3. 産学それぞれの立場におけるマテリアルズ・インフォマティクス技術活…
  4. 常圧核還元(水添)触媒 Rh-Pt/(DMPSi-Al2O3)
  5. ハロゲン移動させーテル!N-ヘテロアレーンのC–Hエーテル化
  6. 論文執筆&出版を学ぶポータルサイト
  7. 真空ポンプはなぜ壊れる?
  8. あなたの分子を特別なカタチに―「CrystalProtein.c…

注目情報

ピックアップ記事

  1. Inpriaとは? ~フォトレジスト業界の重要トピック~
  2. 論文投稿・出版に役立つ! 10の記事
  3. マグネシウム Magnesium-にがりの成分から軽量化合物材料まで
  4. ヌノ・マウリド Nuno Maulide
  5. 「MI×データ科学」コース実施要綱~データ科学を利用した材料研究の新潮流~
  6. 大学院生のつぶやき:研究助成の採択率を考える
  7. IBM,high-k絶縁膜用ハフニウムの特性解析にスパコン「Blue Gene」を活用
  8. 新形式の芳香族化合物を目指して~反芳香族シクロファンにおける三次元芳香族性の発現~
  9. 有賀先生に質問しよう!!【第29回ケムステVシンポ特別企画】
  10. これからの理系の転職について考えてみた

関連商品

ケムステYoutube

ケムステSlack

月別アーカイブ

2024年5月
 12345
6789101112
13141516171819
20212223242526
2728293031  

注目情報

最新記事

第67回「1分子レベルの酵素活性を網羅的に解析し,疾患と関わる異常を見つける」小松徹 准教授

第67回目の研究者インタビューです! 今回は第49回ケムステVシンポ「触媒との掛け算で拡張・多様化す…

四置換アルケンのエナンチオ選択的ヒドロホウ素化反応

四置換アルケンの位置選択的かつ立体選択的な触媒的ヒドロホウ素化が報告された。電子豊富なロジウム錯体と…

【12月開催】 【第二期 マツモトファインケミカル技術セミナー開催】 題目:有機金属化合物 オルガチックスのエステル化、エステル交換触媒としての利用

■セミナー概要当社ではチタン、ジルコニウム、アルミニウム、ケイ素等の有機金属化合物を“オルガチッ…

河村奈緒子 Naoko Komura

河村 奈緒子(こうむら なおこ, 19xx年xx月xx日-)は、日本の有機化学者である。専門は糖鎖合…

分極したBe–Be結合で広がるベリリウムの化学

Be–Be結合をもつ安定な錯体であるジベリロセンの配位子交換により、分極したBe–Be結合形成を初め…

小松 徹 Tohru Komatsu

小松 徹(こまつ とおる、19xx年xx月xx日-)は、日本の化学者である。東京大学大学院薬学系研究…

化学CMアップデート

いろいろ忙しくてケムステからほぼ一年離れておりましたが、少しだけ復活しました。その復活第一弾は化学企…

固有のキラリティーを生むカリックス[4]アレーン合成法の開発

不斉有機触媒を利用した分子間反応により、カリックスアレーンを構築することが可能である。固有キラリ…

服部 倫弘 Tomohiro Hattori

服部 倫弘 (Tomohiro Hattori) は、日本の有機化学者。中部大学…

ぱたぱた組み替わるブルバレン誘導体を高度に置換する

容易に合成可能なビシクロノナン骨格を利用した、簡潔でエナンチオ選択的に多様な官能基をもつバルバラロン…

実験器具・用品を試してみたシリーズ

スポットライトリサーチムービー

PAGE TOP