【LINE】携帯入れ替えによる公式アカウントのブロック処理方法

1.届く広告をクリックする。

2.広告上部のブロックを選択する。

以上、これだけ。

【登山】安達太良山160429-30

今年のGWは日程の並びがまずまず良く、登山の計画を。
どうせなら小屋宿泊の登山したいと検討した結果、安達太良山へ。

GW中も雪が舞い、そして吹雪あり。
気温はマイナスになる時も・・・。結構厳しい登山でした。

【MSAccess】Word差込サンプルコード

以下、MSAccessからWordへ差し込む際のコードを作成。
煮るなり、焼くなりお好きにどーぞ。（コードフリー）
※指摘、一切非受付。好きにやっているので。
-------------------------------------------------------


'差込印刷コード(フォーム上のボタンへ埋め込み）
Private Sub insert_at_word_Click()
Dim myWrd As Object      'オリジナル文書をセット
Dim myTMP As Object      'テンプレート文書用
Dim myNAME As String     'テンプレート文書名
Dim i As Variant         '指定ページ文字列設定


'差込印刷のオリジナル文書（あらかじめWordにて差込の準備の上、作業を進めてください。
Const myFileP As String = "【ワードの差込フォルダ先】.docx"


'ワードオブジェクトの取得
Set myWrd = GetObject(myFileP)
Set myTMP = GetObject(Class:="Word.Application")

With myWrd 'クエリデータ→Wordに差込
With .MailMerge
     .Destination = 0
     .SuppressBlankLines = True


'ページ数判定
i = InputBox("印刷するページ範囲を入力して下さい。", "A-B形式で指定します")

'型式入力判定
    If InStr(i, "-") = 0 Then
        MsgBox "キャンセルします。"
        End
    End If

With .DataSource
     .FirstRecord = Left(i, InStr(i, "-") - 1)         '印刷開始ページ番号
     .LastRecord = Right(i, (Len(i) - InStr(i, "-")))  '印刷終了ページ番号

End With

.Execute Pause:=False 'AccessのDBが不可時に判定


End With
End With

myWrd.Close

Set myTMP = Nothing
Set myWrd = Nothing
End Sub