画像付ワードをｈｔｍｌにワンクリックで変換する方法【商標】

モチ湖

こんにちはモチ湖です。

前回の記事でワードをｈｔｍｌにワンクリックで変換する方法【特許出願向け】を紹介しましたが、
文章中に「ファイルにリンクで画像データを挿入」した場合を想定していませんでした。

今回は、文章中に画像データがある場合でも、ワンクリックでHTML変換できるマクロを紹介します。
これを使えば、商標出願原稿でもワンクリックでHTML化できます。

本記事の内容

・ワードデータからHTMLデータをワンクリックで変換する方法

・今回は画像データが「ファイルにリンク」で挿入されているワードデータからHTMLデータに変換する方法を解説していきます！

本記事の信頼性

この記事を書いている私は、特許実務者であり、中堅特許事務所でシステム管理者の経験があります。これまでに、知財関係の便利ツールを発掘しています。

特許等の出願書類は、下記のとおり、文章中に「ファイルにリンクで画像データを挿入」しなければならないケースがあります。（商標出願の場合は「商標」、特許出願の場合は「数式」「表」など）
このようなケースでも、ワードデータからHTMLデータに変換できるマクロを紹介します。

マクロコード

Sub WordToHtml()

  Dim strFilePath As String
  Dim wordFileName As String
  Dim htmlFileName As String
    'HTML変換元のファイル名取得'
    wordFileName = ActiveDocument.Name
    'HTML変換先のファイル名'
    htmlFileName = "\" + Left(wordFileName, InStrRev(wordFileName, ".") - 1) + ".html"
    strFilePath = ActiveDocument.Path & htmlFileName
    
  'HTML変換先のファイル作成'
  Open strFilePath For Output As #1
    Print #1, "<html>"
  
    Dim p As Paragraph
    Dim Sups As Boolean
    Dim Subs As Boolean
    Dim Uline As Boolean


    'HTMLタグ付与'
    For Each p In ActiveDocument.Paragraphs
        Print #1, "<p>";
        
        
        '画像タグ付与'
        If p.Range.InlineShapes.Count >= 1 Then
        
            Dim isp As InlineShape

            For Each isp In p.Range.InlineShapes
                Print #1, "<img src=" & Chr(34);
                Print #1, isp.LinkFormat.SourceFullName;  '画像データ名書き込み'
                Print #1, Chr(34) & ">";
            Next

        Else
        
            Dim c As Range
        
            '下線部、上付文字、下付文字、タグ付与'
            For Each c In p.Range.Characters
                If Uline = False And Subs = False And c.Font.Underline <> wdUnderlineNone And c.Font.Subscript = True Then
                    Print #1, "<u><sub>";
                    Uline = True
                    Subs = True
                ElseIf Uline = False And Sups = False And c.Font.Underline <> wdUnderlineNone And c.Font.Superscript = True Then
                    Print #1, "<u><sup>";
                    Uline = True
                    Sups = True
                ElseIf Uline = True And Sups = True And c.Font.Underline = wdUnderlineNone And c.Font.Superscript = False Then
                    Print #1, "</sup></u>";
                    Uline = False
                    Sups = False
                ElseIf Uline = True And Subs = True And c.Font.Underline = wdUnderlineNone And c.Font.Subscript = False Then
                    Print #1, "</sub></u>";
                    Uline = False
                    Subs = False
                ElseIf Uline = False And c.Font.Underline <> wdUnderlineNone Then
                    Print #1, "<u>";
                    Uline = True
                ElseIf Subs = False And c.Font.Subscript = True Then
                    Print #1, "<sub>";
                    Subs = True
                ElseIf Sups = False And c.Font.Superscript = True Then
                    Print #1, "<sup>"
                    Sups = True
                ElseIf Sups = True And c.Font.Superscript = False Then
                    Print #1, "</sup>";
                    Sups = False
                ElseIf Subs = True And c.Font.Subscript = False Then
                    Print #1, "</sub>";
                    Subs = False
                ElseIf Uline = True And c.Font.Underline = wdUnderlineNone Then
                    Print #1, "</u>";
                    Uline = False
                End If
                If Not c = vbCr Then
                    Print #1, c;
                End If
            Next
        
        End If
        
            Print #1, "</p>"
    Next
    Print #1, "</html>"
    
  Close #1

End Sub

Sub WordToHtml()

Dim strFilePath As String

Dim wordFileName As String

Dim htmlFileName As String

'HTML変換元のファイル名取得'

wordFileName = ActiveDocument.Name

'HTML変換先のファイル名'

htmlFileName = "\" + Left(wordFileName, InStrRev(wordFileName, ".") - 1) + ".html"

strFilePath = ActiveDocument.Path & htmlFileName

'HTML変換先のファイル作成'

Open strFilePath For Output As #1

Print #1, "<html>"

Dim p As Paragraph

Dim Sups As Boolean

Dim Subs As Boolean

Dim Uline As Boolean

'HTMLタグ付与'

For Each p In ActiveDocument.Paragraphs

Print #1, "";

'画像タグ付与'

If p.Range.InlineShapes.Count >= 1 Then

Dim isp As InlineShape

For Each isp In p.Range.InlineShapes

Print #1, "<img src=" & Chr(34);

Print #1, isp.LinkFormat.SourceFullName; '画像データ名書き込み'

Print #1, Chr(34) & ">";

Else

Dim c As Range

'下線部、上付文字、下付文字、タグ付与'

For Each c In p.Range.Characters

If Uline = False And Subs = False And c.Font.Underline <> wdUnderlineNone And c.Font.Subscript = True Then

Print #1, "";

Uline = True

Subs = True

ElseIf Uline = False And Sups = False And c.Font.Underline <> wdUnderlineNone And c.Font.Superscript = True Then

Print #1, "";

Uline = True

Sups = True

ElseIf Uline = True And Sups = True And c.Font.Underline = wdUnderlineNone And c.Font.Superscript = False Then

Print #1, "";

Uline = False

Sups = False

ElseIf Uline = True And Subs = True And c.Font.Underline = wdUnderlineNone And c.Font.Subscript = False Then

Print #1, "";

Uline = False

Subs = False

ElseIf Uline = False And c.Font.Underline <> wdUnderlineNone Then

Print #1, "";

Uline = True

ElseIf Subs = False And c.Font.Subscript = True Then

Print #1, "";

Subs = True

ElseIf Sups = False And c.Font.Superscript = True Then

Print #1, ""

Sups = True

ElseIf Sups = True And c.Font.Superscript = False Then

Print #1, "";

Sups = False

ElseIf Subs = True And c.Font.Subscript = False Then

Print #1, "";

Subs = False

ElseIf Uline = True And c.Font.Underline = wdUnderlineNone Then

Print #1, "";

Uline = False

End If

If Not c = vbCr Then

Print #1, c;

End If

Print #1, ""

Print #1, "</html>"

Close #1

End Sub

マクロの特徴

前回との相違点は、下記のコードを追加した点です。段落内にフィールドコード（ファイルにリンクで挿入した画像）があると、イメージタグを挿入する動作を行います。

        '画像タグ付与'
        If p.Range.InlineShapes.Count >= 1 Then
        
            Dim isp As InlineShape

            For Each isp In p.Range.InlineShapes
                Print #1, "<img src=" & Chr(34);
                Print #1, isp.LinkFormat.SourceFullName;  '画像データ名書き込み'
                Print #1, Chr(34) & ">";
            Next

        Else

'画像タグ付与'

If p.Range.InlineShapes.Count >= 1 Then

Dim isp As InlineShape

For Each isp In p.Range.InlineShapes

Print #1, "<img src=" & Chr(34);

Print #1, isp.LinkFormat.SourceFullName; '画像データ名書き込み'

Print #1, Chr(34) & ">";

Else

段落内にフィールドコード（ファイルにリンクで挿入した画像）があると、イメージタグを挿入する動作を行います。

実行結果

＜HTML＞

＜ソースコード＞

マクロの使い方は、過去の記事をご覧ください。

　①マクロで明細書変換（文字データのみ）

: ワードをｈｔｍｌにワンクリックで変換する方法【特許出願向け】

続きを見る

　②マクロで図面変換

: 特許の図面データをｈｔｍｌにワンクリックで変換する方法

続きを見る

　③マクロでファイルにリンクの画像を貼る

: 「ファイルにリンク」の選択を省略して画像を貼付けるマクロ

続きを見る

　④マクロをツールバーに登録

: HTML変換マクロ用のツールバーを作成する方法

続きを見る

以上、画像データが「ファイルにリンク」で挿入されているワードデータからHTMLデータに変換する方法を解説していきました。

このブログではこれからもどんどん特許事務に役立つ情報を発信していきますのでご覧いただければと思います！

画像付ワードをｈｔｍｌにワンクリックで変換する方法【商標】

マクロコード

マクロの特徴

実行結果

ワードをｈｔｍｌにワンクリックで変換する方法【特許出願向け】

特許の図面データをｈｔｍｌにワンクリックで変換する方法

「ファイルにリンク」の選択を省略して画像を貼付けるマクロ

HTML変換マクロ用のツールバーを作成する方法