オプション
詳細
コンテンツを貼り付けるときに[貼り付けオプション]ボタンを表示する
ホームページビルダー元開発責任者
鎌田裕二責任指導
横浜市鶴見区のパソコン教室⇒
お問い合わせ TEL:045-567-8393
オプション
詳細
コンテンツを貼り付けるときに[貼り付けオプション]ボタンを表示する
将
異体字
Sub send_mail()
Dim i, j As Integer
Dim oApp
Dim myNameSpace
Dim myFolder
‘Outlookの起動
On Error Resume Next
Set oApp = GetObject(, “Outlook.Application”)
If oApp Is Nothing Then
Set oApp = CreateObject(“Outlook.Application”)
Set myNameSpace = oApp.GetNamespace(“MAPI”)
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display
End If
On Error GoTo 0
oApp.ActiveWindow.WindowState = 2
‘以下はメールの新規作成
Dim mITEM ‘As Outlook.MailItem’
Set mITEM = oApp.CreateItem(0)
mITEM.BodyFormat = 2
mITEM.Display
mITEM.Subject = Worksheets(“Sheet1”).Cells(1, “a”).Value
mITEM.To = Worksheets(“Sheet1”).Cells(4, “i”).Value
mITEM.CC = Worksheets(“Sheet1”).Cells(4, “j”).Value
‘メールのコピー
Range(“A3”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Range(“A4”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Range(“A5”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Range(“A6”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Worksheets(“Sheet1”).Range(“A7”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘Dim waitTime As Variant
‘waitTime = Now + TimeValue(“0:00:2”)
‘Application.Wait waitTime
‘個数を数える
i = 0
Do While Worksheets(“Sheet1”).Cells(i + 8, “a”).Value <> “”
i = i + 1
Loop
‘Debug.Print i
‘コピー
Worksheets(“Sheet1”).Range(Cells(8, “a”), Cells(8 + i – 1, “g”)).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
End Sub
Xvid MPEG4 codecが見つからなかったので調査した結果、プラグインが足りなかったので追加しました。 Xvidプラグインダウンロード先 同じようにUT Video Codecも見つからなかったので、プラグインを追加して対応しました。 UT Video Codecプラグインダウンロード先 使い方
RewriteEngine on
RewriteRule ^/?$ https://wp-school.yokohama? [L,R=301]
ErrorDocument 404 /
ワードプレスの教室にてホームページ作成中
Table of Contents Plus
使い方
内容に見出しを設定することで、自動的に目次を作成してくれるワードプレス・プラグイン。
4つ以上の見出しがある場合に表示する(個数は設定で変更可能)
サイトマップも作成できる。
Worksbooks(outputfile).worksheets(dst).cells(k, “a”) = workbooks(inputfilename).worksheets(src).cells(i, “i”)
do while workbooks(outputfilename).worksheets(dst).cells(k, “a”) <>””
k = k + 1
loop
タブレットモード オフのまま使うこと
全画面表示のスタート画面を使う オフのまま使うこと
横浜鶴見・川崎のパソコン教室の生徒さんのホームページ作成事例はこちら
(掲載承諾分のみ掲載)
ホームページビルダー教室、ワードプレス教室の生徒さんの作成事例です。