sinsia53のプロフィール

@sinsia53 sinsia53
ありがとう数9
質問数0
回答数13
ベストアンサー数
6
ベストアンサー率
75%
お礼率
0%

  • 登録日2005/01/06
  • wordマクロで検索⇒フォント変更したいが、結果がとびとびになります。

    MSwordのマクロについてです。マクロはど素人です。 「数式に使うa,b,n,p,q,r,t,u,v,w,x,y,zの文字を検索して、CMUserifというフォントに変え、サイズを2pt大きくする」 つもりで、以下のマクロを見よう見まねで作って実行したところ、うまく変更される文字とされない文字が混在してしまいます。 これはどのような理由によるもので、また、どのようにマクロを訂正すればよいのでしょうか。 --- Sub 数式用フォントに変更() Selection.StartOf wdStory With Selection.Find Do While .Execute(FindText:=\"[a-bn-np-rt-z]\", Forward:=True, Format:=False, MatchWildcards:=True, MatchSoundsLike:=False) = True With Selection Selection.Find.Execute Selection.Font.Name = \"CMU Serif\" Selection.Font.Size = Selection.Font.Size + 2 Selection.Find.ClearFormatting End With Loop End With End

  • DataReport(PrintReport)の同期(待ち)について教えてください

    只今、VB6のDataReportを使用して500ページほど 印刷したいのですが100ページほどしか印刷されません。 原因は印刷が完了する前にDataReportの解放を行っているためです。 DataReportの解放前に数秒プログラムを停止させる方法があるのですが できればPrintreportメソッドで出力が完了したかの判断を行いたいです。 それに近い質問があり以下のように実行したのですがうまくいきませんでした。 具体的な解決方法があればとてもありがたいです。 【プログラムロジック.vbs】 '起動プロセスのオープン(状態の取得準備) Public Declare Function OpenProcess Lib "KERNEL32" _ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long '起動プロセスとのシンクロ(待機する) Public Declare Function WaitForSingleObject Lib "KERNEL32" _ (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long '起動プロセスのクローズ(終了) Public Declare Function CloseHandle Lib "KERNEL32" _ (ByVal hObject As Long) As Long '起動プロセスが実行中か調べる(状態の取得) Public Declare Function GetExitCodeProcess Lib "KERNEL32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Public Const SYNCHRONIZE = &H100000 Public Const INFINITE = &HFFFF 【プログラムロジック.frm】 Dim IDProcess As Long Dim hProcess As Long Dim ret As Long IDProcess = Control.PrintReport hProcess = OpenProcess(SYNCHRONIZE, 1, IDProcess) ret = WaitForSingleObject(hProcess, INFINITE) ret = CloseHandle(hProcess) 上記方法でテストしたのですが 「IDProcess」には「1」が返ります。 「hProcess」には「0」が返ります。 スプールにJOBがたまるまで「WaitForSingleObject」で WAITされると思ったのですがとくに待ちになりませんでした。 環境はWindowsXP、Windows2003サーバです。 よろしくお願いします。

  • 圧縮ファイルについての質問です。

    インターネットで集めた壁紙や画像をZIP形式で圧縮して保存しておきました。 最近、壁紙を変えようと思って解凍したら、一部の画像が少し欠けていたり、半分真っ白になってるときがあります。 再び解凍しても同じなんですが、圧縮するときは正常だったんです。 原因は何なのでしょうか?

  • ブログを切り替えたい

    最近今まで書いていたブログの記事を整理したく、その際新しいブログを持ち、記事を移したいと考えています。過去の日時にも投稿できるブログ(無料)で使いやすいと感じるブログがあったら教えていただきたいのです。携帯で閲覧できたり、アクセス解析(簡単なものでも可)があるか、ツール(忍者とか)を使えるともっといいのですが。

    • 締切済み
    • noname#232138
    • ブログ
    • 回答数1
  • ヤフーbbのポート開放について

    ポート開放がしたいのですが良くわかりません。ヤフーのADSLを使用しているのですがヤフーは必要ないと聞いた事があります。ホントですか?その他にしなきゃいけないことがありますか?初心者なんでわかりやすく教えて頂けると嬉しいです。ちなみにwindows xp sp2 で無線lanです。

    • ベストアンサー
    • Yasher
    • ADSL
    • 回答数3