![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
ワードはほぼ使ったことがないので、
かなりいい加減ですが。
' 選択したテキストを取得
Dim SelectedText As String
SelectedText = Trim(Selection.Text)
' URLを作成
Dim linkText As String
linkText = ActiveDocument.Paragraphs(1).Range.Text
' リンクアドレスの改行マークを削除
linkText = Replace(linkText, vbCr, "")
linkText = Replace(linkText, vbLf, "")
linkText = Replace(linkText, vbVerticalTab, "")
' リンクアドレスと選択テキストを結合
Dim linkURL As String
linkURL = linkText & LTrim(SentakuHani)
No.3
- 回答日時:
例えばこんな感じでハイパーリンクへの処理は
するんですけど。
これと検索処理とをどう組み合わせる話かと思ったんですけどね。
Sub test()
Dim hLink As Hyperlink
For Each hLink In ActiveDocument.Hyperlinks
Debug.Print hLink.TextToDisplay
Debug.Print hLink.Name
Next
End Sub
No.2
- 回答日時:
ううん・・。
部分公開だと意図がよみにくいです。
SentakuHaniは検索語句とのことですけど
Selectionは検索した語句で止まってる訳?
起きていることを再現しないと確認できないのに
SentakuHaniは不明、Selectionとの関係性も不明、
Paragraphs(1)と固定なのも不明
複数処理したりしないの?
IF Rightで右しか見てないのに左も切り落とす不思議?
ちょっとうかがいたいんですけどステップ実行はされてますか?
コードを書く時に右辺を実際に確認して書いてるかなと思うんですよ。
一番疑問なのはハイパーリンクの話なのにHyperlinksが出てこないんだけど・・。
呼んだあとってこと?
だったらハイパーリンク関係なくない?
No.1
- 回答日時:
お尋ねしますけど、コード無しでどうして問題点が見つかるとお考えですか?
コードは人によっては作り方が大きく異なりますから、私のコートで貴方の問題解決に繫がるとは思えないのですが。
しかも文字が入るとかなら削ればいいだけの様な気がするんですが、そういう話でもないの?
コードはこんな感じですが。
' 選択したテキストを取得
Dim SelectedText As String
SelectedText = Trim(Selection.Text)
' URLを作成
Dim linkText As String
linkText = ActiveDocument.Paragraphs(1).Range.Text
' リンクアドレスの末尾の改行マークを削除
If Right(linkText, Len(vbCrLf)) = vbCrLf Then
linkText = Left(linkText, Len(linkText) - Len(vbCrLf))
linkText = Right(linkText, Len(linkText) - Len(vbCrLf))
End If
' リンクアドレスと選択テキストを結合
Dim linkURL As String
linkURL = Replace(linkText, bcrlf, "") & LTrim(SentakuHani)
linkText = Left(linkText, Len(linkText) - Len(vbCrLf))
linkText = Right(linkText, Len(linkText) - Len(vbCrLf))
の部分は苦し紛れで作りました。そもそもは上の部分のみでした。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロ 関数を使った抽出でエラーになってしまう 1 2022/02/01 14:44
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) VBA CSV取り込みについて 3 2021/12/30 22:40
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Firefox(ファイヤーフォックス) Firefoxでグーグルの検索画面が変です 2 2022/09/20 19:25
- Visual Basic(VBA) VBA Twitter 高度な検索 日付 単語 リンクをOutlook で送信 2 2022/06/18 18:36
- 哲学 「理念の狡知」という表現について 2 2022/05/29 14:19
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) 指定した語句と隣のセルを空欄にする 1 2023/06/18 12:54
- その他(パソコン・周辺機器) 動画復元 2 2023/11/20 23:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロの連続印刷で2枚目からプレビューを出したくない
Excel(エクセル)
-
VBAの高速化について
Excel(エクセル)
-
日付のテキストボックスに(例)2024/01/ と入力すると「入力した値が正しくありません」を回避
Access(アクセス)
-
-
4
エクセルマクロ 並び替え 手動設定した範囲の書き方
Excel(エクセル)
-
5
引数に数値、文字列の混在
Visual Basic(VBA)
-
6
10行目にフィルターを使用して見出しがあります。列はA:DFで11行目以降(2000行ぐらい)はデー
Visual Basic(VBA)
-
7
Excel VBA 文字列のセルを反映させたいです
Visual Basic(VBA)
-
8
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
9
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
10
VBA エクセル で FIND でのエラーについて,教えてください。
Excel(エクセル)
-
11
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
12
EXCELでの文字列連続抽出について
その他(Microsoft Office)
-
13
アルファベット順にソートする方法を教えてださい
Excel(エクセル)
-
14
エクセルでプルダウンから5つ条件を選択し、金額を出力するツールを作りたい
Excel(エクセル)
-
15
エクセルで作った勤怠表に発生する時間の誤差の修正方法を教えていただけないでしょうか? A1セルに出社
Excel(エクセル)
-
16
Excelの画面表示
Excel(エクセル)
-
17
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
18
QRコードとバーコードについて
その他(データベース)
-
19
Excelのテーブルでmatch関数の使い方について
Excel(エクセル)
-
20
【Excel】セル内の文字が正しい時間表記かどうかの判定
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelVBAでPDFを閉じるソース
-
ソース内の行末に\\
-
特定文字のある行の前に空白行...
-
TERA TERMを隠す方法
-
wordを起動した際に特定のペー...
-
アクセス マクロ クリップボ...
-
【EXCEL VBA】オートシェイプを...
-
ExcelVBA 図形をクリックした...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
マクロ実行時、ユーザーフォー...
-
コマンドボタンに二回目のマク...
-
WORD テキストボックスを全ペ...
-
EXCELマクロでのThisisWor...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報
SentakuHani
は検索語句です。この上のコードで取得しています。
つまり、URLの末尾にある改行マークを削除しても、残ってしまう、という問題です。
旧いバージョンのOfficeでもこの問題はあったのですが、少なくとも、ファイルを閉じるまでは正常に機能していました。しかし、再度開くといつの間にか余計な改行マークがある、ということです。
VBAのバグらしい、とのことですが、Office2021になってさらにひどくなりました。
どなたか解決策をご存じの方がいらっしゃるかな、と思いお尋ねしました。