VBA 【VBA】【Word】Word 文書に改ページを挿入する
新しい Word 文書を作成し、「This is age 1」と入力して、改ページを挿入してから、2 ページ目に「This is page 2」と入力するスクリプトセンターのサンプルコードConst wdPageBreak = 7 Set ...
VBA EXCEL 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル出力
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを出力することも可能。ＣＳＶファイルの還元先システムが、Windows(Excel）以外で、文字コードを気に...
EXCEL 【Excel】【VBA】ADODB.Streamを利用したコード変換機能付きCSVファイル取込
ADODB.Stream (Microsoft ActiveX Data Objects)を使えば、コード変換をしながらＣＳＶデータを取り込むことが可能。ＣＳＶファイルの作成元のシステムが、Windows(Excel）以外で、文字コードを気...
EXCEL 日付ブックマークに日付に置換
Sub 日付ブックマークに日付に置換() Dim objRange As Word.Range Set objRange = Me.Bookmarks("日付ブックマーク").Range objRange = Date End Sub W...
Tech TechNet ギャラリーは読み取り専用になり、間もなく廃止される予定です。必ず、プロジェクトとコードをバックアップしてください
たまに見てたscriptcenterが、間もなく廃止のとのこと！プロジェクトとコードをバックアップしないと
Tech My DNS への通知スクリプト
papanda925@papandaSV:/usr/local/bin$ cat NoticeIP.shcurl --interface eth0 -u userID:Password ポイントは、--interface eth0 複数イ...
資料 【WSL2】【Docker 】バックアップ用ローカルWordPress環境の構築
かなり手間取ったので忘れないようにメモ１ WSL２のインストールと設定Windows Subsystem for Linux (WSL) を Windows 10 にインストールする | Microsoft Docs公式サイトの通りに設定す...
Tech 連絡先を Outlook から Word にコピーする
VBSub CopyCurrentContact() Dim OutlookObj As Object Dim InspectorObj As Object Dim ItemObj As Object Set OutlookObj = Cr...
Tech PowerPoint で空のテキスト ボックスを削除する
Sub RemoveEmptyTextBoxes() Dim SlideObj As Slide Dim ShapeObj As Shape Dim ShapeIndex As Integer For Each SlideObj In Ac...
EXCEL Excel ワークシートから空の行を削除する
Sub DeleteEmptyRows() SelectedRange = Selection.Rows.Count ActiveCell.Offset(0, 0).Select For i = 1 To SelectedRange If ...
