isshiki

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Net;
using System.Text.RegularExpressions;
using System.IO;

namespace ConsoleApp1

isshiki

例：

検索する文字列：<td width="100%" valign="top"><div class="da-code-bodylines"><code>((.*\n)+?)</code></div></td>
置換する文字列：<td width="100%" valign="top"><div class="da-code-bodylines">$1</div></td>

検索する文字列：<td valign="top"><div class="da-code-numlines"><code>((.*\n)+?)</code></div></td>
置換する文字列：<td valign="top"><div class="da-code-numlines">$1</div></td>

isshiki

Sub DA原稿新形式への自動対応()
'
' DA原稿新形式への自動対応 Macro
'
    ' ［あいまい検索 (日)］の外し
    Selection.Find.MatchFuzzy = False
    ' ［大文字と小文字を区別する］のチェック
    Selection.Find.MatchCase = True
    ' ［半角と全角を区別する］のチェック
    Selection.Find.MatchByte = True

isshiki

Const EditorialHelperVersioning As String = "EditorialHelper 1.0.1"

Private xlApp As Object

Sub ◆編集前◆ハイパーリンクと脚注と文末脚注の置き換え()

    ' ハイパーリンク
    Dim oDoc As Document
    Dim oStory As Range
    Dim oHlink As Hyperlink