ソフトウェア

PDFをテキスト出力するVBA実行時、Acrobatから「ファイルを開けません」とエラーメッセージが表示されます。何のファイルなのかわからないので教えてください。 下記VBAで、最終行の「objJs.SaveAs txtFilePath, "com.adobe.acrobat.plain-text"」でPDFは読み込まれて画面表示されますが、同時に「ファイルを開けません」というメッセージが表示されます。PDFは正常に読み込まれていると思われるので、ほかに何が必要なのか教えてください。 AcrobatとMicrosoftScriptingRuntimeは組み込んでいます。 -------------------------------------------- 'PDFのデータをExcelに読み込むメイン処理 Sub Main() 'PDFファイルをテキストに変換するための定数を用意 Const fileName = "テストファイル" Const folderPath = "C:\Data\" Const pdfFilePath = folderPath & fileName & ".pdf" Const txtFilePath = folderPath & fileName & ".txt" 'PDFファイルをテキストに変換 Call convPDFtoText(fileName, folderPath, pdfFilePath, txtFilePath) End Sub 'PDFファイルをテキスト変換する処理 Sub convPDFtoText(fileName As String, folderPath As String, pdfFilePath As String, txtFilePath As String) 'Acrobat操作用の変数を宣言 Dim objAcrobatApp As New Acrobat.AcroApp Dim objAcrobatAVDoc As New Acrobat.AcroAVDoc Dim objAcrobatPDDoc As Acrobat.AcroPDDoc Dim AcrobatId As Long Dim objJs As Object 'Acrobatアプリを起動 AcrobatId = objAcrobatApp.Show 'PDFファイルを開く AcrobatId = objAcrobatAVDoc.Open(pdfFilePath, "") 'PDDocオブジェクトを取得 Set objAcrobatPDDoc = objAcrobatAVDoc.GetPDDoc() 'Acrobat JavaScriptオブジェクトを作成 Set objJs = objAcrobatPDDoc.GetJSObject 'PDFをテキストで保存 objJs.SaveAs txtFilePath, "com.adobe.acrobat.plain-text"

いきなりPDF10の編集で、　PDF挿入すると、記号などが、消えてしまった。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（ZERO ウイルスセキュリティ1台/3台/5台） ＝＝＝ご記入ください＝＝＝ ウイルスセキュリティ（3台） ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ Windows10 ▼お困りごとの詳細、エラーなど（例：ログインができない・デバイス登録ができない・ダウンロードができないなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ インターネットアクセスがブロックされています。との表示が出てインターネット接続が出来ません ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

チャットワークで数ヶ月に一回やり取りあるかないかの人をホームから非表示にすることは可能でしょうか? 削除はしない方針です。

アンドロイドスマホのradikoで録音した音声データをトリミングしたいのですが、ご存知の方教えて頂けますか？ トリミング操作はスマホでもPCでもどちらでも結構です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆まめVer.33など） ＝＝＝ご記入ください＝＝＝ 筆まめ　26 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ Windows11 ▼お困りごとの詳細、エラーなど（例：印刷方法がわからない・サイズ変更の仕方が分からない・保存の仕方を教えてほしいなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ 今までのパソコンが壊れました。 データーは取り出せません 新しいパソコンにはDVD挿入口がありません。 住所録などは取り出せなくてかまいませんが、 ソフトだけダウンロードはできませんか。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆まめVer.34など） ＝＝＝ご記入ください＝＝＝ 筆まめVer.34です。 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ ▼お困りごとの詳細、エラーなど（例：印刷方法がわからない・サイズ変更の仕方が分からない・保存の仕方を教えてほしいなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ 宛名印刷で、都道府県を印刷しない方法を教えてください。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

Excelのデータテーブルからフォーマットに値を抽出して反映させるには。あるパトロール様式を作成しようとしています。 添付画像のようなイメージです。 ◇データテーブルのフィールド名と情報 PageNo. (パトロール記入シートのページ数 １日に１ページ) 日時 担当者 巡回時の注意点 ◇パトロールシートの様式 Sheet名をPageNo.の数字にし、データテーブルからINDEX関数で検索し、データテーブルにある日時・担当者・巡回時の注意点を抽出し反映させます。 このやり方で抽出は可能ですが、フォーマット(ここではパトロールシート)が巡回する日付分必要となり。操作が非常に重たくなり困っています。 印刷はPegeNo.のSheetを作業グループに選択して一括印刷しています。 VBAなどでPageNo.ごとの情報をフォーマットに反映させてページ一括でPDFや印刷プレビュー表示して印刷することは可能でしょうか。 現状のやり方でも印刷は可能ですが、動作が重くなり、途中でフリーズしてしまう場合があります。 詳しい方いましたらご教授ください。 よろしくお願いいたします。

PS５でキャプチャボードで録画をしていて OW2やapexの120fpsのソフトを起動するとobsのキャプチャ映像画面が固まってしまいます。 一応OBSを再起動すると直るのですが大変不便です。 どのような設定をすれば直りますか？ 使用環境はPS5 キャプチャボードはIOデータのGV-USB3/HDSです。

win10 office365 accessのテーブルの table1のフィールド　IDの数値を table2のフィールド　ID （いずれも長整数型　数値型　重複あり　空白の許容なし） にコピーする操作ですが 幾度か お尋ねしてきていますが 今回 このやり方で やってみました http://www.mahoutsukaino.com/ac/ac2002/vba/vba16/v16.htm 以下のコードにおいて rs2.Update ここの部分が黄色くなって とまってしまいます しかし　なぜか 数値の移行は　出来ていました ただ止まってしまうと 次に続けられなく困っています Public Function table2table1() Dim cn As adodb.Connection Dim rs1 As adodb.Recordset Dim rs2 As adodb.Recordset Set cn = Application.CurrentProject.Connection Set rs1 = New adodb.Recordset Set rs2 = New adodb.Recordset rs1.Open "table1", cn, adOpenStatic, adLockReadOnly rs2.Open "table2", cn, adOpenKeyset, adLockOptimistic rs1.MoveFirst Do Until rs1.EOF rs2.Find "ID='" & rs1!ID & "'" If rs2.EOF Then rs2.AddNew rs2![ID] = rs1![ID] rs2.Update End If rs1.movenext Loop rs1.Close rs2.Close cn.Close End Function 以上　すみません 宜しくお願い致します

いきなりPDF　ver.11　standard　ダウンロード版 昨日4/15、ｱﾏｿﾞﾝで購入した 　いきなりPDF　のインストールは今後どうすべきか教えてください 症状 IKIP１１はダウンロードできた　programホルダーないの　インストールする.exeのダブルクリックでソースネクストアップデートはインストールされた様だ（動かしていない）が、　いきなりPDF　がインストールされていない 動きがおそいので居眠りしておきたら画面がとまっていた（インストールの画面が）　再度、　インストールする.exeのダブルクリックしたが、「インストーラアップデート　新しいインストーラを探しています」の画面から進まず、4時間ほど待ってとめた 以上 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆まめVer.33など） 筆まめYer.30 ▼パソコンのOS（例：Windows10など） Windows10 ▼お困りごとの詳細、エラーなど（例：印刷方法がわからない・サイズ変更の仕方が分からない・保存の仕方を教えてほしいなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ タッグ印刷の際、宛名面に（備考への入力データは可能ですが）「分類」入力データを印字出来ますか。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

以下のコードで最終的に編集したImgを保存していますが Img.SaveFile outFile 同名ファイルがある場合は、エラーがでます。 エラー無く上書き保存するにはどのようにコードを編集すれば良いですか？ Sub TrimImg() Dim folderPath As String Dim fso As Object Dim folder As Object Dim files As Object Dim file As Object Dim Img As Object Dim flag As Long folderPath = "C:\Users\TAC_\download\Yes\YES - Open your eyes - FULL ALBUM\" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderPath) For Each file In folder.files If LCase(right(file.Name, 4)) = ".jpg" Or LCase(right(file.Name, 5)) = ".jpeg" Then flag = left(file.Name, 1) Set Img = CreateObject("WIA.ImageFile") Img.LoadFile file.Path Dim inputFile As String Dim outputFile As String 'Dim Img As Object 'As ImageFile Dim IP 'As ImageProcess Set Img = CreateObject("WIA.ImageFile") Set IP = CreateObject("WIA.ImageProcess") Select Case flag Case 1 inputFile = file.Path outputFile = folderPath & fso.GetBaseName(file.Name) & "(new)." & fso.GetExtensionName(file.Name) Img.LoadFile inputFile Dim imageWidth As Long Dim imageHeight As Long imageWidth = Img.width imageHeight = Img.height Dim left1 As Long Dim top1 As Long Dim right1 As Long Dim bottom1 As Long left1 = 0.2 * imageWidth top1 = 0 right1 = 0.2 * imageWidth bottom1 = 0 ModImage inputFile, outputFile, left1, top1, right1, bottom1 ' End Select End If Next file MsgBox "トリミングが完了しました。" End Sub Function ModImage(inFile As String, outFile As String, left As Long, top As Long, right As Long, bottom As Long) Dim Img As Object, IP As Object Set IP = CreateObject("WIA.ImageProcess") 'create WIA objects Set Img = CreateObject("WIA.ImageFile") Img.LoadFile inFile 'load image IP.Filters.Add IP.FilterInfos("Crop").FilterID 'setup filter With IP.Filters(1) .Properties("Left") = left .Properties("Top") = top .Properties("Right") = right .Properties("Bottom") = bottom End With Set Img = IP.Apply(Img) 'apply change '------------------------------------ ' 再整形 ' Dim imageWidth As Long ' Dim imageHeight As Long ' ' imageWidth = Img.width ' imageHeight = Img.height Dim NewWidth As Long Dim NewHeight As Long NewWidth = (Img.height + Img.width) / 2 NewHeight = (Img.height + Img.width) / 2 With CreateObject("WIA.ImageProcess") .Filters.Add .FilterInfos("Scale").FilterID .Filters(1).Properties("MaximumWidth") = NewWidth .Filters(1).Properties("MaximumHeight") = NewHeight .Filters(1).Properties("PreserveAspectRatio") = False Set Img = .Apply(Img) End With Img.SaveFile outFile End Function

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（ZERO スーパーセキュリティ1台/3台） ＝＝＝ご記入ください＝＝＝ ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ アンドロイド ▼お困りごとの詳細、エラーなど（例：ログインができない・デバイス登録ができない・ダウンロードができないなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ この製品は、アンドロイドスマホへのインストールは可能でしょうか。シリアル番号は無効ですと表示されます。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（Bʼ s 動画レコーダー 8/B's DVDビデオ 4など） ＝＝＝ご記入ください＝＝＝ YouTubeの音楽を取り込みたく「ヤマダ電機」B's動画レコ－ダ－を購入しました。取説はPCから取り出せるとのことで、取り出そうとしますが、アドレスが既に登録済みとかで取り出せません。メールには制限をかけていません。パソコンは最近購入した「DELL」です。最新型と聞いています。 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ ▼お困りごとの詳細、エラーなど（例：インストールできない・音声が入らない・表示されないなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（ZERO スーパーセキュリティ1台。ダウンロード版） ▼パソコンのOS（例：Windows10など） Windows11 ▼お困りごとの詳細、エラーなど（例：ログインができない・デバイス登録ができない・ダウンロードができないなど） すでにユーザー登録をしたのですが、パソコンの使用者が違うため登録したユーザーを変更したいのですが、何かいい方法はありませんか？ ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

Voicepeakという文章をAIが読み上げてくれるソフトを使用しているのですが、アクセントやイントネーションの調整が上手くいかず困っています。 添付画像のように赤い丸を調整してイントネーションを調整できるのですが、正しいイントネーションが分からないので、例えば『これいにより』と検索したらこのイントネーションのこのグラフのようなものが表示されるアプリはご存知でしょうか?

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ソースネクスト社からの案内メールに 以下のようなメールアドレスが記してあります これは、ソースネクスト社のメールで間違いないでしょうか？ 発信元：ソースネクスト株式会社   http://fc0735.cuenote.jp/c/何か記号列のようなもの 〒105-7133 東京都港区東新橋1-5-2 汐留シティセンター33階 Copyright（C） SOURCENEXT CORPORATION All Rights Reserved. ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（おまかせ引っ越しSUITE） 「おまかせ全バックアップ」のインストールで、取説には①ドライブレイサーをクリックする、とあるが、その下の図は、「おまかせ全アップ」をマルで囲んでいる。インストールの順番は、「おまかせ全アップ」のクリックからでいいとおもうのですが、どなたか教えてください。ちなみに、ドライブレイサーとおまかせ引っ越しの２つは、今のところ使用予定なしです。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆まめVer.33など） ＝＝＝ご記入ください＝＝＝ 筆まめ34 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ WINDOWS10 ▼お困りごとの詳細、エラーなど（例：インストール出来ない、製品登録ができないなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ ダウンロード終了後、デスクトップに２個のショートカット・アイコンができたが、どちらのショートカットを叩いてもVER34のロゴが表示されるだけで起動できない。VER30から、VER34にアップしたもの。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。