Sub a() Debug.Print nstrGetFileName("c:\AA.pdf") End Sub ' ファイル名から拡張子を抜いた文字を取得する ' ' ' 引数：ファイル名 ' 戻り値；ファイル名 ' フォルダ名は削除 ' 拡張子は削除 ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/220510…

Sub a() Call nsubWordToPDF("D:\TEMP\テスト.doc", "D:\TEMP\テスト.pdf") End Sub 'WordファイルををPDFへ変換 ' 引数：pstrInputWordPath 変換前のWORDファイル名（フルパス） ' pstrOutputPDFPath 出力のPOFファイル名（フルパス） 'https://pgbigoroku.…

' ' 指定行を削除する ' ' ' 引数：pwksTarget 対象シート ' pintLineNo 削除する行番号 ' pblnEndLineNo (省略可)複数行削除する場合、最終行 ' 戻り値：追加した行番号 ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/181917 ' バージョン 2022/12…

' ' 新しい行を指定行の下に追加後、指定行のデータをコピーする。 ' ' ' 引数：pwksTarget 挿入するシート ' pintLineNo コピーする行番号 ' 戻り値：追加した行番号 ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/013417 ' バージョン 2022/12/3 …

' ' ファイル名から拡張子を取得する ' ' ' 引数：ファイル名 ' 戻り値；拡張子 ' 小文字で返す ' 拡張子が無い場合はLen(0)の文字列を返す ' https://pgbigoroku.hatenablog.com/entry/2022/12/03/011813 '2022/12/1 Private Function nstrGetExtension(ByV…