新着記事一覧 | 在宅仕事日記

【Word VBA/マクロ】蛍光マーカー（ハイライト）リスト作成

追記：2023年12月4日マクロの記事は下記のサイトで書くことにしました。Word VBA/マクロ備忘録Sub GetMarkerList()'蛍光マーカー（ハイライト）の一覧を作成します。 Dim rng As Range, mkrList As String, dcNew As Document Set rng = ActiveDocument.Range(0, 0) With rng.Find .Highlight = True End With With rng Do While .Find.Execute = True mkrList = mkrList & rng.Information(wdActiveEndPageNumber) _ & vbTab & rng.Text & vbCrLf .SetRange .End, .End Loop End With If mkrList = "" Then MsgBox "ハイライトはありませんでした。" Exit Sub End If Set dcNew = Documents.Add With dcNew.PageSetup .TopMargin = MillimetersToPoints(30) .BottomMargin = MillimetersToPoints(30) .LeftMargin = MillimetersToPoints(30) .RightMargin = MillimetersToPoints(30) End With dcNew.Range(0, 0).InsertBefore mkrList With Selection .WholeStory .ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2, _ AutoFitBehavior:=wdAutoFitFixed .InsertRowsAbove 1 .TypeText Text:="ページ" .MoveRight Unit:=wdCell .TypeText Text:="ハイライト" With .Tables(1) .Style = "表 (格子)" .ApplyStyleHeadingRows = True .PreferredWidthType = wdPreferredWidthPercent .PreferredWidth = 100 .Columns(1).PreferredWidth = 10 .Columns(2).PreferredWidth = 90 End With End WithEnd Sub

Oct 24, 2023

コメント(0)

【Word VBA/マクロ】本文、ヘッダーフッター、オートシェイプ置換

追記：2023年12月4日マクロの記事は下記のサイトで書くことにしました。Word VBA/マクロ備忘録Sub 本文、ヘッダーフッター、オートシェイプ置換() Dim mae As String Dim ato As String Dim sec As Section Dim hdr As HeaderFooter Dim ftr As HeaderFooter Dim rng As Range Dim shp As Shape, gShp As Shape, inlShp As InlineShape, satNode As SmartArtNode mae = "■" '検索するキーワード ato = "□" '検索後のキーワード '本文置換' On Error Resume Next Set rng = ActiveDocument.Range(0, 0) With rng.Find .Text = mae .Replacement.Text = ato .Execute Replace:=wdReplaceAll End With 'ヘッダーフッター内置換 For Each sec In ActiveDocument.Sections For Each hdr In sec.Headers With hdr.Range.Find .Text = mae .Replacement.Text = ato .Execute Replace:=wdReplaceAll End With Next For Each ftr In sec.Footers With ftr.Range.Find .Text = mae .Replacement.Text = ato .Execute Replace:=wdReplaceAll End With Next Next 'オートシェイプ内置換 For Each shp In ActiveDocument.Shapes If shp.Type = msoGroup Then For Each gShp In shp.GroupItems If gShp.TextFrame.HasText Then With gShp.TextFrame.TextRange.Find .Text = mae .Replacement.Text = ato .Execute Replace:=wdReplaceAll End With End If Next End If If shp.TextFrame.HasText Then Set rng = shp.TextFrame.TextRange With rng.Find .Text = mae .Replacement.Text = ato .Execute Replace:=wdReplaceAll End With End If NextEnd Sub

Oct 23, 2023

コメント(0)

【Word VBA/マクロ】ハイパーリンク一覧作成

追記：2023年12月4日マクロの記事は下記のサイトで書くことにしました。Word VBA/マクロ備忘録ハイパーリンクの一覧（ページ、表示文字列、アドレス）を作成します。Sub GetHyperlinkList() Dim hpLink As Hyperlink, hprList As String Dim dcNew As Document If ActiveDocument.Hyperlinks.Count = 0 Then MsgBox "ハイパーリンクはありません" Exit Sub End If For Each hpLink In ActiveDocument.Hyperlinks hprList = hprList & hpLink.Range.Information(wdActiveEndPageNumber) & vbTab & _ hpLink.TextToDisplay & vbTab & hpLink.Address & vbCrLf Next Set dcNew = Documents.Add With dcNew.PageSetup .TopMargin = MillimetersToPoints(20) .BottomMargin = MillimetersToPoints(20) .LeftMargin = MillimetersToPoints(20) .RightMargin = MillimetersToPoints(20) End With dcNew.Range(0, 0).InsertBefore hprList With Selection .WholeStory .ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=3, _ NumRows:=3, AutoFitBehavior:=wdAutoFitFixed .InsertRowsAbove 1 .TypeText Text:="ページ" .MoveRight Unit:=wdCell .TypeText Text:="表示文字列" .MoveRight Unit:=wdCell .TypeText Text:="アドレス" With .Tables(1) .Style = "表 (格子)" .PreferredWidthType = wdPreferredWidthPercent .PreferredWidth = 100 .Columns(1).PreferredWidth = 5 .Columns(2).PreferredWidth = 35 .Columns(3).PreferredWidth = 60 End With .Font.Size = 9 End WithEnd Sub

Oct 23, 2023

コメント(0)

【Word VBA/マクロ】スマートアート内の置換

追記：2023年12月4日マクロの記事は下記のサイトで書くことにしました。Word VBA/マクロ備忘録本文やオートシェイプの置換は、「Range.Find.Replacement」を使用します。スマートアートでは、RangeのメンバーのFindは使用できませんでした。選択する方法（Selection.Find）もうまくいかず…。TestRange2のメンバーの「Find」は使えそうですが、戻り値が「TextRange2」なんですよね。他のFindと全然違うので、難しくて分かりませんでした。やむを得ずInStrで置換することにしました。スマートアートは初期設定では行内なので、前面などShape型には対応しておりません。Sub スマートアート置換() Dim shp As Shape, gShp As Shape, inlShp As InlineShape, satNode As SmartArtNode Dim rng As TextRange2, satRng As TextRange2 Dim mae As String, ato As String, txt As String Dim cntMae As Long, cntAto As Long, nagasa As Long, c As Long mae = "■■" '検索キーワード ato = "□□" '置換キーワード nagasa = Len(mae) For Each inlShp In ActiveDocument.InlineShapes If inlShp.Type = wdInlineShapeSmartArt Then For Each satNode In inlShp.SmartArt.AllNodes Set rng = satNode.TextFrame2.TextRange txt = rng.Text cntMae = 1 Do While InStr(cntMae, txt, mae) > 0 txt = rng.Text cntMae = InStr(txt, mae) If cntMae = 0 Then GoTo Continue rng.Characters(cntMae, nagasa).Text = ato LoopContinue: Next End If NextEnd Sub

Oct 23, 2023

コメント(0)

【Word VBA/マクロ】選択範囲で置換

追記：2023年12月4日マクロの記事は下記のサイトで書くことにしました。Word VBA/マクロ備忘録選択範囲内で置換を行います。Sub ReplaceTabToSpace()'選択した範囲のタブを全角スペースに置換します Dim mae As String Dim ato As String mae = vbTab '検索するキーワード ato = "　" '置換後のキーワード On Error Resume Next With Selection.Find .Format = False .Text = mae .Replacement.Text = ato .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = False .MatchByte = True .Wrap = wdFindStop .Execute Replace:=wdReplaceAll End WithEnd Sub

Oct 23, 2023

コメント(0)

Visio（永続版）はアカウントに紐づけできない

ヤフオクでVisio 2019を購入しました。2台インストール可能な正規版で、ライセンス認証はできました。ところが、Microsoftアカウントでログインしたのに、「購入済みの製品」の一覧にVisioが表示されません。問い合わせしたので、回答をメモとして残しておきます。プロダクトキーには 2 種類あります。(1) アカウントに関連付けられているプロダクトキー。(2) アカウントに関連付ける必要のないプロダクトキー。お持ちの Visio プロダクトキーは、実際のプロダクトキーです。ライセンスは Microsoft アカウントに関連付けられません。実際のプロダクトキーを使用して、製品のダウンロード、インストール、およびライセンス認証を行うことができます。「ここをコインで削ってください」に表示されるのが、プロダクトキーです。Visioの場合は「(2) アカウントに関連付ける必要のないプロダクトキー」です。このプロダクトキーは、再インストールに際に必要です。「プロダクトキーのコピーを保持することをお勧めします。」という回答をいただきました。Office製品の場合「(1) アカウントに関連付けられているプロダクトキー」が表示されます。ライセンス認証して、アカウントに紐づいたら、新たなプロダクトキーが付与されるので、今後カードのプロダクトキーは不要です。

Sep 1, 2023

コメント(0)

【Excel VBA】ページ毎に別ファイルで保存するマクロ

Excelでページ毎にファイルを分ける必要があったので、作成したマクロです。最初は、新しいブックファイルにページ毎に行を選択して、コピー＆ペーストするコードを考えていたのですが、ページ設定はコピーできませんでした。後でページ設定を元のファイルに合わせるコードを追加しても、完全に同じにはならなかったのです。（ページ内に全て収まらないなど、違いがありました）Excelの一般機能の「移動またはシート」で、シートごと新たなブックにコピーすることは可能です。この機能を使用して、後で不要な行を削除すると、やりたいことはできます。ですが、同じことをマクロでやろうとしても、うまくいきませんでした。結局、シートのコピーは諦めて、コピーファイルとして保存して、不要な行を削除する方法で上手く動作しました。Sub ページ毎に別ファイルで保存() Dim targetWb As Workbook Set targetWb = Workbooks("一括") Dim i As Long Dim st As Worksheet Dim pgWb As Workbook Dim newBk As Workbook Dim PgLastRw As Long Dim ct As Long ct = 1 Dim StLastRw As Long Dim StartRw As Long Dim c As Long Dim mySheet As Worksheet For c = 1 To targetWb.Sheets.count '下記のコードの「st.Range(」の後の"A"は、ファイルによって書き換える 'シートの最終行を取得するためのコード StLastRw = targetWb.Sheets(c).Range("A" & Rows.count).End(xlUp).Row For i = 1 To targetWb.Sheets(c).HPageBreaks.count + 1 '"C:\MacroTest\"を保存したい場所に変更する。 targetWb.SaveCopyAs Filename:= _ "C:\MacroTest\" & targetWb.Sheets(c).Name & "_P " & i & ".xlsx" Set pgWb = Workbooks.Open("C:\MacroTest\" & targetWb.Sheets(c).Name & "_P " & i & ".xlsx") Select Case i Case 1 pgWb.Sheets(c).Activate PgLastRw = targetWb.Sheets(c).HPageBreaks(i).Location.Row pgWb.Sheets(c).Rows(PgLastRw & ":" & StLastRw).Delete ActiveSheet.Move Worksheets(1) Application.DisplayAlerts = False For Each mySheet In Worksheets If mySheet.Name <> ActiveSheet.Name Then mySheet.Delete End If Next Range("A1").Select ActiveWorkbook.Save Application.DisplayAlerts = True ActiveWorkbook.Close Case 1 To targetWb.Sheets(c).HPageBreaks.count PgLastRw = targetWb.Sheets(c).HPageBreaks(i).Location.Row pgWb.Sheets(c).Activate pgWb.Sheets(c).Rows(PgLastRw & ":" & StLastRw).Select pgWb.Sheets(c).Rows(PgLastRw & ":" & StLastRw).Delete PgLastRw = targetWb.Sheets(c).HPageBreaks(i - 1).Location.Row pgWb.Sheets(c).Rows("1:" & PgLastRw - 1).Select pgWb.Sheets(c).Rows("1:" & PgLastRw - 1).Delete ActiveSheet.Move Worksheets(1) Application.DisplayAlerts = False For Each mySheet In Worksheets If mySheet.Name <> ActiveSheet.Name Then mySheet.Delete End If Next Range("A1").Select ActiveWorkbook.Save Application.DisplayAlerts = True ActiveWorkbook.Close Case Else PgLastRw = targetWb.Sheets(c).HPageBreaks(i - 1).Location.Row pgWb.Sheets(c).Activate pgWb.Sheets(c).Rows("1:" & PgLastRw - 1).Delete ActiveSheet.Move Worksheets(1) Application.DisplayAlerts = False For Each mySheet In Worksheets If mySheet.Name <> ActiveSheet.Name Then mySheet.Delete End If Next Range("A1").Select ActiveWorkbook.Save Application.DisplayAlerts = True ActiveWorkbook.Close End Select Next NextEnd Sub

Nov 3, 2021

コメント(0)

グラフのフォントを変更する Excel VBA マクロ

グラフの多いExcelのレイアウト作業を行いました。Arialフォント指定ですが、グラフのフォントの種類を変更するだけでも大変。そこでマクロを作ってみました面倒な作業は、マクロを作ったら楽だろうとよく思います。そういうマクロに限って、作るのが難しいのです。VBAのオンライン講座を受講したり、書籍でも勉強しました。でも、グラフや図形を扱うマクロは学んでいません。記録マクロでヒントをさがしたり、ネットで調べて作ってみるのです。グラフは初めてのオブジェクトです。一から学んで作ればよいけど、仕事なので勉強している時間はありません。知識が足りない状態で、調べつつコードを書きました。仕事のマクロを作るときに迷うのは、動くマクロが完成するのかさえ分からないことです。面倒だからマクロを作りたい。でも、作るのに時間をかけると、納期までの作業時間が少なくなります。短時間でコードを完成させなければなりません。バージョン2013で作成したコードを、参考のため貼り付けておきます。コメントにも書いていますが、2010ではエラーになります。もっとシンプルに書けるはずだけど、時間の関係で、動くマクロをとりあえず作りました。これからグラフのマクロについて勉強して、もっと良いコードに修正してみたいと思います。Sub AllSheetGraphFontSet() Dim chrt As ChartObject Dim c As Long Dim ws As Worksheet Dim dtLabel As DataLabel Dim shp As Shape For Each ws In Worksheets For c = 1 To ws.ChartObjects.Count With ws.ChartObjects(c).Chart If .HasTitle Then .ChartTitle.Format.TextFrame2.TextRange.Font.Name = "Arial" End If If .HasLegend Then .Legend.Format.TextFrame2.TextRange.Font.Name = "Arial" End If If .HasAxis(xlCategory) Then .Axes(xlCategory).TickLabels.Font.Name = "Arial" End If If .HasAxis(xlValue) Then .Axes(xlValue).TickLabels.Font.Name = "Arial" End If If .HasAxis(xlSeriesAxis) Then .Axes(xlSeriesAxis).TickLabels.Font.Name = "Arial" End If If .HasAxis(xlValue, xlSecondary) Then .Axes(xlValue, xlSecondary).TickLabels.Font.Name = "Arial" End If For i = 1 To .SeriesCollection.Count If .SeriesCollection(i).HasDataLabels Then For Each dtLabel In .FullSeriesCollection(i).DataLabels 'FullSeriesCollectionは、バージョン2010でエラーになる。代わりにSeriesCollectionを使う .FullSeriesCollection(i).DataLabels.Format.TextFrame2.TextRange.Font.Name = "Arial" Next End If Next For Each shp In .Shapes shp.TextFrame2.TextRange.Font.Name = "Arial" Next End With Next NextEnd Sub

Sep 24, 2020

コメント(0)

Excel VBA グループ解除、再グループ化

エクセルマクロを勉強始めてから、年数が経ちました。はじめは、メールマガジンの教材を購入しました（Wordマクロの書籍は購入していたのですが、Excelマクロの勉強は初めてでした）。教材で勉強して、簡単なマクロは作れるようになったのです。勉強のため、グループ化されたオートシェイプを解除して、再グループ化して元に戻すマクロに挑戦しました。はっきり言って、無謀でした。VBAの基礎を学んだだけで、配列の勉強もしていなかったのです。でも、難しいマクロに挑戦することが、勉強になると思いました。セルを扱うマクロは、サンプルも多くて、情報があふれています。あえて、図形を扱いたかったのですが、異常にむずかしくて･･･。一重グループ化なら、何とかなりそうですが、実用的ではありません。何重にもグループ化された図形にも対応可能なものを作りたかったのですが、私には高難度すぎました。まずは、ネット検索して、方法を調べました。グループ化解除は、サンプルマクロがたくさんありました。再帰という方法で、多重グループ化にも対応でするそうです。再帰が何かすら初めて知りました。グループ解除のコードは、ほぼサンプル丸写ししました。ワンパターンなので、サンプルはみな似ていました。問題は、どうやって再グループ化するかです。ネットでさがしても、サンプルが見つかりません。再グループ化のコードを求めている人はいるのですが、解決法は見当たらなくて。その後、オンライン講座を受講したり、書籍でも勉強しました。新たな勉強をするたび、このマクロに挑戦するのですが、毎回途中で挫折です。どのような手順ですればよいのか、頭の中で組み立てられないと、コードを書くことはできません。パソコンから離れて、頭の中で、グルグル考えました。いくら考えても、これといった解決法も思いつかなくて。この状態で、コードを書いてみても、先へ進みません。今年に入って、2冊のVBA本でさらに勉強しました。。VBAの勉強もかなりしてきましたので、最低限の知識はあるはず。配列も知らなかった頃とは違います。学んだことを工夫すれば、完成できるはずでした。はっきり言って、このマクロは勉強のためで、完成しても使わないと思います。でも、繰り返し挑戦してきたので、なんとしても完成したかったのです。他のもっと簡単なマクロに挑戦しても、未完成なこのマクロが気にかかります。これまでネットで検索しても有益な情報がなかったのですが、ヒントらしきものは見つかりました。図形を階層式にワークシートに書き出して、それを復元するというものです。これをヒントに、ワークシートへ図のIDを書き出しました。図のIDは変わらないと聞きました。これは使えそうだと思いました。グループ化を解除するときに、ワークシートに図のIDを書いていくコードを記述しました。ここまでできて、ようやく完成が可能に思えてきました。あとは、ワークシートをもとに、グループ化していくだけです。といっても、簡単ではありませんでした。迷ったのが、複数にグループ化されている場合です。グループ化解除マクロを実行すると、ワークシートに図のIDが書き出されます。グループ1131412119118グループ2131412グループ1とグループ2は、同じ図のIDがあります。13、14、12は二重にグループ化されているのです。ワークシートには、グループ化を解除する順に上の行から表示されます。再グループ化するときは、下の行からグループ化を行います。まず、グループ2の図のID13、14、12をまずグループ化します。次は、グループ1の5つの図形をグループ化します。ワークシートの図のIDと一致する図形をさがしていきます。でも、13、14、12の図形は、グループ化されていしまっています。そこで、グループ化された図形の中に、一致するIDの図形がないかさがします。見つかったら、グループ化された図形を選択します。13、14、12は同じグループです。3つとも同じグループ名なので、1回グループ化された図形を選択すればOKです。でも、同じグループ名ならどうするかコードがないと、3回選択することになります（エラーになります）。それに対応するため、配列にIDを入れています。既にIDにグループ化されたIDが入っていたら、何もしません。最初に一致した場合のみ、選択するようにします。もともと、配列には図のIDではなく名前を入れていました。これでグループ化するのは簡単だったのです。でも、後で書きますが、図形によってはエラーになってしまいましたので、図を1つずつ選択する方法に変えたのです。だから、配列はもう不要かと思ったのですが、配列にIDを入れて、グループ化されたIDが入っているかどうかの確認に使いました。連想配列にはオブジェクトを格納できるます。連想配列を使うと、普通の配列と1つずつ図形を選択するコードより、簡単にできるかもしれません。最善の方法をさがす余裕はなく、どんなコードでも良いから、とりあえず完成させたいだけでした。こんな面倒なことしなくても…と思われるような、未熟なコードだと思います。でも、完成するまで考えたことは勉強になりました。このコードをそのまま使わないとしても、部分的に今後も参考になりそうです。今後のためにも、うまくいかなかったこと、考えたことを含めて、一応記録しています。前述のとおり、配列（下のコードのmyAry）には、図のIDではなくIDを入れるようにした理由について書いておきます。はじめは、グループ化するために、配列を使って、図の名前を入れていました。　　myAry(cnt) = shp.Nameそうすると、下記のコードで、13、14、12をグループ化できるのです。 shWs.Shapes.Range(myAry).Select Selection.ShapeRange.Groupところが、図形をグループ化して試したところ、上記のコードでエラーが出てしまいました。図の名前が同じものがあると（図形をコピーすると、その方法によっては、図形の名前がおなじになります）、エラーが出るようです。同じ名前がある場合のことを考えて、図のIDを書き出していたのに、これではうまくいかないですよね。結局、配列には図の名前ではなく、図のIDを入れることにしました。 myAry(cnt) = shp.ID図のIDがmyAryに入っていますので、下記のコードは使えません。。myAryには図の名前が必要なのです。 shWs.Shapes.Range(myAry).Select Selection.ShapeRange.Group上記のコードはやめて、別の方法を考えました。ワークシートの図のIDと一致する図形が見つかったら、その都度選択することにしました。グループ2の3つの図形を1つずつ選択して追加していき、グループ化します。配列のmyArmは、グループ化された図がすでに選択されているかの確認に使うことにしました。ワークシードの図のIDと一致する図を見つけるたび、選択することにしたので、上記のコードも変更しました。既に図を選択しているので、Selectionから始めています。 Selection.ShapeRange.Group下記がコードのすべてです。グループ化解除マクロで、すべてのグループ化を解除して、ワークシーとに図のIDを書き出します。再グループ化マクロで、ワークシートのリストをもとに、もとの状態に戻します。図形を描いて試したのですが、グループ化の回数を増やすと、うまくいかなかったり。ようやくエラーが出ないものが完成したのですが、複雑な図形で問題なく動作するかはわかりません。Option Explicit Dim yoko As Long Dim tate As LongSub グループ化解除() yoko = 0 tate = 0 Dim flagWs As Boolean '図のIDシートの有無の判定 Dim shp As Shape Dim ws As Worksheet flagWs = False Dim shWs As Worksheet Set shWs = ActiveSheet If shWs.Shapes.Count = 0 Then MsgBox "図形のあるシートを表示してから実行してください" Exit Sub End If For Each ws In Worksheets If ws.Name = "図のID" Then Worksheets("図のID").Range("A1").CurrentRegion.Delete flagWs = True Exit For End If Next If flagWs = False Then Worksheets.Add ActiveSheet.Name = "図のID" End If shWs.Select For Each shp In ActiveSheet.Shapes Call UnGroup(shp) Next End SubSub UnGroup(sh As Shape) Dim has_grp As Boolean 'グループ化されているかどうか判定する Dim gShp As Shape Dim idWs As Worksheet Set idWs = Worksheets("図のID") If sh.Type = msoGroup Then has_grp = True For Each gShp In sh.GroupItems If yoko = 0 Then idWs.Range("A1").Offset(tate, yoko).Value = "グループ" & tate + 1 yoko = yoko + 1 End If idWs.Range("A1").Offset(tate, yoko).Value = gShp.ID yoko = yoko + 1 Next tate = tate + 1 yoko = 0 Do While has_grp For Each gShp In sh.UnGroup Call UnGroup(gShp) Next has_grp = False Loop End IfEnd SubSub グループ化解除した図形を再グループ化() Dim shp As Shape Dim gyo As Long Dim maxCol As Long Dim ret As Long Dim maxGyo As Long Dim gp() As Variant Dim cnt As Long Dim myAry() As Variant Dim c As Long Dim flg As Boolean Dim gShp As Shape Dim n As Long Dim idWs As Worksheet Set idWs = Worksheets("図のID") If ActiveSheet.Shapes.Count = 0 Then MsgBox "図形のあるシートを表示してから実行してください" Exit Sub End If '★もし図形を選択していたら、選択を解除するコードを入れる maxGyo = idWs.Range("A" & Rows.Count).End(xlUp).Row For gyo = maxGyo To 1 Step -1 maxCol = idWs.Range("A" & gyo).End(xlToRight).Column - 1 cnt = 0 Erase myAry For ret = 1 To maxCol For Each shp In ActiveSheet.Shapes If shp.Type <> msoGroup Then If shp.ID = idWs.Range("A" & gyo).Offset(, ret).Value Then ReDim Preserve myAry(cnt) myAry(cnt) = shp.ID shp.Select Replace:=False cnt = cnt + 1 Exit For End If Else flg = False For Each gShp In shp.GroupItems If gShp.ID = idWs.Range("A" & gyo).Offset(, ret).Value Then '同じグループ化された図形が既に配列に入っていないか確認する If Not Not myAry Then '配列か空かどうかを判定す For n = LBound(myAry) To UBound(myAry) If myAry(n) = shp.ID Then flg = True End If Next End If 'グループ化がまだ配列に入っていないときの時、配列に図形名を入れる。 If flg = False Then ReDim Preserve myAry(cnt) 'この位置？ myAry(cnt) = shp.ID shp.Select Replace:=False cnt = cnt + 1 Exit For End If End If Next End If Next Next Selection.ShapeRange.Group Next Application.DisplayAlerts = False idWs.Delete Application.DisplayAlerts = True End Sub

Jul 20, 2020

コメント(5)

在宅の仕事、近況

最後に日記を更新したのが、2008年です。テープ起こし（今は音声起こし？）、DTPなど、在宅で仕事をしている人のブログもよく読んでいました。いつの間にか仕事関係のブログから離れてしまったのですが、在宅の仕事は続けています。当時は、FrameMakerやInDesignの仕事もしていたのですが、今はWordやPowerPoint、Excelのレイアウトだけです。来る仕事は全て引き受けていた時代もあったのですが、さすがに疲れてしまいました。InDesignの仕事は避けたり、苦手な仕事、納期のきつい仕事を断っているうちに、すっかり依頼も減りました。メインの収入源だった会社からの依頼は全くなくなりました。納期のきつい仕事が多くて、依頼がきても、断る回数が増えてしまい、疎遠になりました。仕事をしたいと希望すれば、また依頼してくれるだろうけど、頑張る気力はないんですよね。収入は、多い時の半分以下になりました。2019年も少なかったけど、ギリギリ200万超え。一応、平均月15万以上収入があったのは、意外な感じです。今年は、3月はそこそこ依頼がありましたが、4月に入ってあまり予定もなく、今日は2時間でできる仕事の依頼のみです。時間があるときに、Excel VBAの勉強をしています。オンライン講座を受講したり、書籍を購入したり。いつかVBAの仕事もできれば思い始めたのは、かなり前です。勉強をさぼっては、再開の繰り返しです。講座のおかげもあって、配列レベルまでは理解できるようになりました。最近、良い書籍に出会ったので、また勉強を頑張りたいです。

Apr 3, 2020

コメント(0)

確定申告終了！

昨日ようやく確定申告の書類を揃えて郵送しました！２月は仕事が少なかったのに、つい先延ばしして、３月になってしまった。『日本一やさしいフリーのための確定申告ガイド』（はにわきみこ著）という書籍を読んで、勉強した。所得税は辛うじて分かるものの、住民税・国民健康保険等々全然わからなかったもんで…。本を読みを得て、基本的なことは一通り理解できるようになった。ネットで評判良かったから買ったんだけど、本当に分かりやすい！フリーランスの方にはオススメです。国民健康保険の計算方法は市町村によって違うので、自分でで調べるしかなかったんだけど、いろんな情報があって混乱してしまった。一番混乱したのが、住民税と国民健康保険は連動するかどうかってこと。連動するという書き込みがあったんだけど、市のホームページの計算方法を見ると無関係に思えるし…(?_?)直接電話で確認して、高齢者以外は住民税と無関係ってことが分かった。市町村によって計算方法が違うから、やっぱりネットの情報は鵜呑みにできないなぁ～～。それにしても国民健康保険ってこんなに高いのか(;_;ほんとビックリした。でも、扶養の枠がないから、収入を気にして働く必要ないし、かえって良いのかな～と前向きにとらえるしかないか。。。

Mar 4, 2008

コメント(6)

正月も仕事・・・

今年は正月も休みなく、仕事・仕事…の毎日でした。Wordの仕事（３本くらい？）はまだ良いのだけど、PowerPointの仕事は、全然進まなくてほんと辛い(;_;)マニュアル作成なんだけど、100頁以上あるのに、一日数ページしか進めない。PowerPointは元々マニュアル作成のためのソフトじゃないし、スタイル機能とか、効率よく作業できる機能が全然備わっていないのだ。図形が多いので、今回の仕事はWordにも不向きかもしれないけど、それでも今よりは効率よくできると思うんだけどなぁ～～。時給の仕事だけど、時間かかりすぎて、大幅に減らされそうな予感。。。仕事の合間をぬって、12月はソフト買いまくってました。前年より収入が増えてしまったので、経費で落とそうと、欲しいソフトはとことん購入。Office 2007、Visio 2007、Adobe Creative Suite等々。これでも足りないと、ノートパソコンも注文しました（9日に到着予定）。私のような仕事をしている人は、経費は収入の何分の一くらいなんだろう？ノートパソコンとCreative Suiteは10万以上だから、１年分の経費では落とせないし、経費を増やすのも大変だ。

Jan 5, 2008

コメント(2)

『在宅ワークハンドブック』到着

『在宅ワークハンドブック』が６年ぶりに改訂されたそうです。早速取り寄せてみました。無料なのに（注：送料必要）、充実してますよぉ～！入手方法はこちらの一番下に記載されてます。

Sep 28, 2007

コメント(4)

オンライン講座の内容が・・・

オンライン講座（テキスト入力コース）９回目のテキストを読んだ。どこかで読んだような一文があったので、検索したところ、講座の講師のブログにたどり着いた。読んで驚き！　この一文だけでなく、今回のテキストの内容がブログの内容とほとんど同じだった。ブログより講座の方が詳細だし、表現も変えてはあるんだけど。。。今回だけかもしれないけど、これってどうなんだろう？？？前回は、「データは添付ファイルでお送りします」とあったのに、何も届かないし･･･。無料で受講しているのに、こんなこと書いたらまずいのかなぁ～。（前の日記に書いた講座名は一応消しておこうかな(^^ゞ）

Sep 4, 2007

コメント(4)

オンライン講座（テキスト入力コース）受講開始！

オンライン講座（テキスト入力コース）の受講を始めた。先週は第一回目。ほとんど知っている内容だろう、と受講は考えていなかった。が、ＭＬのプレゼントに当選して無料で受講できることになったのだ。タダなら何の問題もない^^;最近は仕事も忙しかったし両立できるかなぁ～と思っていたが、心配無用だった。初回は課題もなく、説明を読むだけであっという間に終了。10分もかからなかったかな(笑)「これだけ？」というのが正直な感想。知っていることの確認ではなく、知らないことを学びたいなーと思う。

Jul 15, 2007

コメント(2)

応募した会社に訪問

今月は仕事量が少なかったので、登録できる会社をネットで探して応募した。一社から連絡があって、「一度は訪問してほしい」と言われた。正直訪問なんて考えてもみなかった(^^ゞ過去に登録した会社は、あっても電話面接だけだったし、簡単に訪問できるほど近隣でもないし。。。会社が東京なら断ったけど、愛知という微妙な距離。迷った末、昨日訪問してきた。新幹線は高いから、長距離バスで行ってきた。片道４時間以上は、やっぱり疲れる(;´ｏ｀)会社では主にセキュリティの話を聞いた。・パソコン起動時のパスワード設定・原稿を鍵のかかるところに保存・パソコン盗難防止の器具の取り付けこんなに大変なのかぁとびっくり！　ここまで徹底したことはしてこなかった。交通費も高かったし、お仕事来るといいなぁ。今月の収入を計算したところ、10万ぎりぎり届きそうだ（感覚的には５万くらいかな？と思っていたが･･･）。10万届くと、ほっと一安心(^_^)

Jun 27, 2007

コメント(6)

邪魔なリサーチ機能

Word2003のリサーチ機能にはうんざりです！無意識のうちに[Alt]キーを押しながらクリックしているみたいで、その都度作業ウィンドウが表示される。解決方法をネットで調べたけれど、質問はあっても回答がない・・・。ショートカットキーの設定やコマンドマクロ、設定を確認したが、該当するところがない。[ツール]→[リサーチ]は無効にできるのに、ショートカットキーを無効にできない(/_;)サポートセンターに電話したら、無効にできないといわれるし、諦めるしかないんかなー。

Jun 16, 2007

コメント(0)

ウィルスバスターはかなりお得！

ノートンの更新期限が過ぎたので、１年ぶりにウィルスバスターに戻すべきかなぁ、と更新料金を調べてました。すると、嬉しいことが・・・。１ライセンスでパソコン３台までインストール可能になってました！家族のパソコンでもＯＫなんです。早速３年分延長しました。３年分の更新料が12,054円。母と半分ずつ出して、約6,000円でした。１年で2,000円だから、安いですよね～。１年で約5,000円と予測していたから、得した気分です(^.^)

Apr 30, 2007

コメント(0)

ワードマクロ

大量のワード作業も先週終わりました！３月はいつもの４倍の収入です(^^♪これだけまとまった仕事は当分ないだろうなぁ～。最近は小さな仕事しかなくて、空き時間が多くなってしまいました。この間にワードマクロの勉強をしています。編集作業は同じ設定の繰り返しが多いから、もっと作業効率を上げられないものか？考えてました。定型句、ショートカットキー、ボタン化etc･･･、それ以上の効率化を考えると、「マクロ」しかないだろうと思ったわけです。昨年ワードのマクロ本が出たので一応購入しておきました。パラパラと読んだだけで、そのままになっていましたが…。『Wordで実践やさしくて役に立つ「マクロ」事例集』（西上原裕明著）この書籍が発売されるまでは、ワードのマクロ本は絶版で手に入らなかったのです。オークションで見つけても、定価以上の価格になるし…。で、久々に本を開いてみたわけですが、タイトルは「やさしくて」なのに、全然やさしくないです！「事例集」だから仕方ないんだけど、コードの記述に関する解説がちょっと足りないです。もっと詳しい説明が欲しいんだけどな･･･。サンプルも難しすぎでは？書籍購入前にも一度マクロに挑戦して挫折したけど、またまた挫折しそう(+o+)　今度こそ粘って頑張る気持ちだけど、どうなるんだろう・・・

Apr 14, 2007

コメント(4)

変なスタイルが増える

大量のワード作業もあと少しで終わりそうです。1500ページも作業するのは初めて…（これまで最大でも300ページを少し超えるくらい）。作業していて気になったのは、勝手に変なスタイルが増えていくこと。「見出し 1 (文字)」とか、「見出し 2 (文字)」とか、（文字）が付いたスタイルが、勝手に増えていくのです。こんなの作った記憶ないのに…。バージョン2002からの現象で、前々から気になってました。検索しても解決方法は載っていないし、誰も困っていないのかなぁ～と思ってました。注文した書籍が届いたので、パラパラめくっていると・・・、ちゃんと載ってました！結論を言うと、「見出し 1 (文字)」だけを消すことはできない(;_:) （注：旧バージョンでは削除できる）「見出し１スタイル」と「見出し 1 (文字)スタイル」はセットになっているらしい。増える原因は分かったので、すっきりはしましたけどね～。解決法は「マクロ」です。紹介されているコードを試してみると、一気に解決しました。でもコードはさっぱり理解できない((+_+)) コードは理解して使えるようになりたいなぁと思うこの頃です。※ちなみに、バージョン2002以降「標準＋右揃え」「標準＋太字」など書式が増えていく現象は、[ツール]⇒[オプション]⇒[編集と日本語入力]の「書式の履歴を維持する」をOFFで解決できます。

Mar 31, 2007

コメント(7)

ワード単価

先日ペラもののワードレイアウト作業をしました。難易度に応じて単価が違っていて、難しいページは、簡易なページの２倍です。ただ難しいページは簡単なページの５倍以上時間がかかりました(/_;)ということは、時給的には、簡単なページのほうが良いんですよね～。原稿をぱっと見たところ妥当な額かな？と思っていたんだけど、実際に作業するのとは全然違いました…。Word作業をグループですると、不公平になってしまうことも多いんです。他人の担当箇所が分かってしまうから、なんで私だけ難しいページを？？なんて思ってしまうことも（しかも単価は同じだったりする）。翻訳会社の仕事は、ほとんど複数作業はないから、楽なんですけどね～。時給だと、不公平感が出なくていいんだけどなぁ。技術を要する作業の方が報酬的に良くないなんて、やる気が失せる…。まぁ、たまには勉強のために難しい作業をするのもいいんですが。。。

Feb 19, 2007

コメント(12)

Acrobat 8購入！

Acrobat8の体験版の期限がとうとうきれてしまったので、アップグレード版を購入しました。12,000円の出費です。これまでバージョン5を使用してしましたが、もう限界です。Word保存できないし、コピーすると文字化けするし･･･。バージョン8も文字化けしますが、5と比べてはるかに少ないです。ただ問題はバージョン8でWord保存すると、全てが枠に入った状態になってしまうんです。分かりやすいように線に色を付けてみました。青枠が「レイアウト枠」、赤枠が「テキストボックス」です。テキストはレイアウト枠に入っているけど、表組はテキストボックスに入っているわけです。「レイアウト枠」を解除するのは簡単だけど、問題はどうやってテキストボックスから一括で表を取り出すのか…。書籍を見ながらマクロを作成して、なんとか取り出すことができました。こんなことなら、マクロの勉強しておけばよかった･･･。マクロはちんぷんかんぷんで挫折していたのでした。AcrobatでWord保存したところで、完璧な状態になるわけもないけど、意外に表組みはきれいに書き出せます。セル幅はほぼ完璧です！　表作成には役立ちそうです。

Feb 8, 2007

コメント(5)

PDFの画像をコピーすると･･･

約50ページのWordレイアウト作業を終えて納品しました。が、画像に変な線が入っていると言われてしまいました。PDFファイルから画像をスナップショットでコピーしてWordに直接貼り付けたのですが、こちらでは何の問題もなかったのに、変な線が表示されているらしいです。バージョン2003で作業していましたが、2000で見ると確かに変な線が・・・。↓こんな感じです。元の画像にはこんな線はないのに、何なのでしょうね～。先方ではバージョン2003で確認しても線が表示されるしく、何が原因なんだかさっぱりです…。結局画像は支給してもらったのですが、良い解決方法はないものかな？PDFの画像は頻繁に利用するので、解決方法を模索中です。

Feb 2, 2007

コメント(4)

まだまだ続くPDF→WORD作業

２週間以上続いたPDF→Word作業、昨日で終わり！っと思ったとたん、また追加があるそうです…。他の作業も始まるし、乗り越えられるかなぁ～。収入は過去最高を大幅に更新しそうだけど、こんなペースでは到底続かない。仕事がないときは全くないんだから、がんばるっきゃないなぁ･･･。

Jan 26, 2007

コメント(2)

疲れる仕事(在宅ワーク)

３日連続５時起きで、ワード編集の仕事をしています。いろんな面で疲れてしまって、早く解放されたい気分です。２年前に登録したグループ(現在は法人化)の作業ですが、仕事がとてもやりにくいんです。50～100ページ希望しているのに、200ページ以上来るし…。何のために希望枚数を伝えているんだか、いつも希望枚数を守ってくれないのです(/_;)120ページが許容範囲なんだけどなぁ。質問は直接先方にしなければならないのも、困ったもんです。グループの仕事は、リーダーに質問メールを送るのが通常です。リーダーが先方に確認してくれます。それなのに、ここでは自分で先方に質問しなければならないんです。担当者にメールをしてもなかなか返信が来ないし、電話をしても不在が多い…。リーダーは楽でしょうけど、作業者は本当に大変！こういうのはリーダーの仕事だと思うのだけど…。作業以外のことで疲れてしまいます^_^;来年のワードの仕事も決まってるし、なんだか今から不安…。※Mixiから日記を移しているところですが、12月の日記なのに、間違って1月の日記にアップしてしまいました(^^ゞ　コメントをいただいたので、そのままにしておきます。

Jan 21, 2007

コメント(2)

PDF→Word変換作業(在宅ワーク)

PDFをWordに変換する作業をしました。レイアウトを再現する必要はなく、表組以外はベタ入力状態でＯＫ。翻訳者がTRADOS（翻訳支援ツール）を使用するので、とりあえずWordファイルにしてほしいとのこと。一週間で1,000ページ処理する必要があったので、大変でした (>_

Jan 12, 2007

コメント(0)

今年の収入確認（在宅ワーク）

３銀行と郵便局の記帳をまとめて行ないました。半年以上記帳していなかったので、間違いなく入金されているか、確認に時間がかかりました（なにせ小さな仕事が多いもので…(^^ゞ）。今年はじめの目標は、月平均８万以上だったので、波はあったものの問題なくクリアできました（一番少ない月は、５万そこそこかな…）。４社の報酬額は源泉徴収されていました。在宅で仕事を始めて４年以上になりますが、昨年初めて源泉徴収されました。源泉徴収の意味さえ分からず、収入の10％引かれるという知識のみでした。翻訳会社の仕事を時々していますが、翻訳の仕事は源泉徴収する必要があるらしいです。なので、翻訳会社の仕事をすると、翻訳をしない私も報酬も源泉徴収されます。デザインを伴わないレイアウト作業をしているので、別に源泉徴収しなくてもいいらしいですが…。源泉徴収分を取り戻すべく、勉強のために『小さな在宅ワークの経理・主婦編』を購入しました（主婦じゃないけど主婦編しかなかった…）。正月休み中に、経費について勉強しておこうと思ってます。

Dec 30, 2006

コメント(0)

請求書の発行(在宅ワーク)

11月にした仕事の請求書を発行する時期です。PowerPoint作業の依頼主には、請求書を「郵送」しなければならないのです。切手代はたった\80だけど、わずかな報酬だと結構イタイ(/_;)封筒に住所書くのも面倒～。おまけに振込み手数料まで引かれるし(引かれないケースもありますが)。請求書の送付方法はいろいろあって、過去に下記の４パターンありました。●郵送(印鑑あり)●FAX(印鑑あり)●メール●請求書なし依頼主が個人事業主の場合、特に郵送が多くて…。印鑑がないと不安なのかなぁ？かえって株式会社の方が、郵送は少なくて請求書すら必要ないケースもあります。郵送で送られても処理が大変なんでしょうねぇ～。請求書がなくても、支払った証拠が残れば、特に問題ないはずなんだけど…。とはいえ、「郵送で」と言われれば、「FAXでいいですか？」とは言いづらいもので、素直に従ってます(^^ゞ

Dec 13, 2006

コメント(0)

Wordバージョン違い(在宅ワーク)

翻訳会社からの依頼で、Word編集の仕事をしました。バージョン2000でＯＫだったのに、作業しているほんの2日の間に、会社は2003にアップグレードしたそうです。2000で納品したけど、2003でも問題なく表示されるんじゃないの？と思っていたのですが…。アップした画像は小さくてわかりづらいんだけど、フォントが変わっているのが分かるでしょうか？　赤枠で囲んでいるところです。（画像の文章は、実際に仕事で使用したものではなく、ダミーです）全てTimes New Romanフォントだったのに、フォントの種類が一部変わっているんです。インデントも変わっていますが、フォントが変わるなんて(*_*;上位バージョンで開いても、こんな問題が起きるんですね～。Wordのバージョンは97～2003まで揃えているのですが、パソコンは２台しかなく、全てのバージョンをインストールするわけにいかないのです。来年には新しいバージョンも出るし、仕事の都度指定のバージョンをインストールするほかないんだろうなぁ。(検索されやすいよう、タイトルに在宅ワークと入れてみました。　効果あるのかな…？)

Dec 5, 2006

コメント(0)

Excel表作成に悪戦苦闘！

土日はExcel表作成の仕事で四苦八苦してました。年表に似た横長の表なので、やむを得ずExcelで作表。枠組みはセルの罫線で作成して、見出し以外は全てテキストボックスを配置しました（セル内入力は無理なケースなので…）。↓Excelの表作成で良い点、悪い点はこんな感じ。（あくまでもレイアウトに限っての話）。■良い点・横長の表が作れる・行・列タイトルを印刷時に常に表示できる■悪い点・文字間隔や文字幅を縮められない・行間隔を縮められない・印刷プレビュー表示どおりに印刷できないExcelは印刷プレビューと実際の印刷で違うのは知っていたんだけど、ことごとくテキストボックスの文字が途中で切れていて(*_*)あと、なぜか勝手にテキストボックスの位置が変わってしまう現象が起きてしまって…。左端を揃えたのに、しばらくするとまたずれている…の繰り返し。何回やってもいつもまにか元に戻っている。なぜなのか、いまだに不明です(?_?)文字間隔・文字幅を縮められないのも困りもんです。PowerPointも同じで、あと少しで１行で収まるのに、Wordみたいに文字間隔が縮められない。枠を広げるか、フォントサイズを下げるしかない。ExcelとWordの良いところを組み合わせられたらいいんですけどねー。

Dec 5, 2006

コメント(0)

仕事は順調♪

最近は仕事が順調に入ってます(^^♪先日トライアル(試験？)を受けて登録した会社の仕事です。どれも小さな仕事ばかりなんだけど、作業者の手が足りないらしく、１週間で４件の仕事です。Wordレイアウト(2件)、PowerPointレイアウト(1件)、Excelレイアウト(1件)、どれもこれもレイアウトばかり。翻訳会社の仕事なので、入力はなしです。今手元にあるのが、PowerPointの仕事。残りの仕事は、翻訳者の訳が仕上がるのを待ってからの作業となります。10月以降は、順調に仕事がはいってます。いつもこうであればいいのに、８～９月は仕事が少なくて、５万円に届くかどうか(;_:)数年前は月３万円でもすごい！って思ったもんだけど。。。毎月コンスタントに仕事が入るといいなぁ。

Dec 4, 2006

コメント(0)

あわや悪徳に･･･

先日、求人掲示板を見て、ある会社に応募しました。電話面接を受けた後、契約書を提出するために準備をしていたんです。契約書を読んでびっくり(@_@)そこに思いもよらぬ会社の名前が書かれていたんです。悪徳(？)で有名な会社の名前が。。。求人掲示板や会社のホームページには、その名前は全然なかったんですよぉ～。悪徳といっても、はじめに登録料を払わせたり、登録前にお金が必要なわけではないんです。勝手に無理な量の原稿を送りつけてきておきながら、納期に間に合わないという理由でペナルティ料を払わせたり…という会社です。ホームページからでは、悪徳と見分けられないんです。悪徳を見分けるのなんて簡単！と思っていたのに、今更引っかかりそうになるとは…。「登録料・教育の為の費用等、お金は一切かかりません」なんてホームページに記載されていますが、登録後が怖いので、在宅で仕事をしたい方は気をつけましょう！

Dec 3, 2006

コメント(0)

OCR作業

9月からExcelへの数値入力の仕事をしています。PDFファイルの表の数値をExcelフォームへ入力するんです。ＯＣＲソフト使用ＯＫなので、E.Typistを使いました。表の認識は難しくて、かなり苦労しました。認識後フォームに貼り付けても、元の表の形に全然ならなくて(;_;)　入力した方が速かったかも。。。いろいろ試しているうちに、段々慣れてきた感じです。読んでココは所有しているんですが、E.Typistは会社で借りています。前に試したときは、E.Typistの方が認識率が高かったけど、最新バージョンではどんなもんでしょう？早く最新バージョンを試してみたいです。

Dec 2, 2006

コメント(0)

在宅ワーク日記開始

在宅で仕事を始めて約４年になります。４年といっても、２年くらいは仕事がない日のほうが多かったのですが(^^ゞがくぶんのテープライターの通信講座を受講後、テープ起こし、入力、Word編集、PowerPoint編集、ブログ監視、データ収集作業など等、できそうな仕事は１度は試してみました。仕事の割合ではWord関係が一番多いかな？毎月コンスタントに10万以上の収入を得るのがとりあえずの目標です！

Dec 1, 2006

コメント(0)