貼り付け後マクロを実行してください
ご挨拶、私はExcelからの貼り付けを受ける必要があるという単語で「すべてを実行する」マクロを持っています.Ctrlを選択するか、ペーストクリップボードから「a」を選択します.私が知っているVBAは、ありがとうございました.
SUB EDITPASTE()
Cleartabs
を呼び出しますコールタブ
bold_underline_thursday
を呼び出しますBold_Underline_friday
を呼び出しますBold_Underline_saturday
を呼び出しますbold_underline_sunday
を呼び出しますBold_Underline_Monday
を呼び出しますbold_underline_tuesday
を呼び出しますbold_underline_wednesday
を呼び出しますHighlight_donot_post
を呼び出します終了SUB
返信リスト(回答:10)
テキストのみの専用の貼り付けオプションにのみ取り組んでいるようです.
私はあなたの「タブ」マクロを使おうとしました、そしてそれはまったく機能していないようです.私はこの機能に精通していませんが、私がそれを実行しようとしたときに何も起こらないとき.
「BackSpace」または「Delete」を使用して削除した後に「Ctrl + V」を実行したときにMSGBOXの下のコードを使用しようとしました.
sub editpaste()
selection.paste.
MSGBOX( "Call関数")
終了サブ
あなたが持っている関数のリストのために、すべての関数がトリガされなかったのですか?
問題が解決しない場合は、上記の簡単なコードを試してください.
応答5# ->にスキップ4 #embry使用したマクロは以下の通りです.メッセージボックスに記載されています.私は間違いなくメッセージボックスを使いたくないです.たくさんのアンダーリングがこれを使用しているので、ペースト後にアクティブにするマクロだけで、ありがとう
ISEDPASTE WORDコマンドまたは作成したマクロの方が、テストのMSGBOXを使用して問題を分離することです.
今のとおり、Cleartabs、Tabsなどのようになった機能がありません.
応答6# ->にスキップ3 #embry私はこれがかなり長いことを知っていますが、「Backspace」とCTVL + Vを使って作業します.それはただセットタブでは作業したくないようです.ありがとうございました.
SUB CLEAR_TABS()
selection.paragraphformat
.LEFTINDENT=インチストラクション(0)
············(0)
.spaceBefore= 0
.SpaceBeForeAuto= False
.spaceafter= 0
.spaceafterAuto= false
.linespacingRule= WDLinespacesingle
.Alignment= wdalignParagraphleft
.widowControl= true
.keepwithnext= false
.keeptogether= false
.PageBreakBefore= false
.nolinenumber= false
.Hyphenation= true
.firstLineIndent= inchestopoints(0)
.outlinelevel= wdOutlinelevelbodyText
.characterunitleftindent= 0
.characterunitrightIndent= 0
.characterunitFirstLineIndent= 0
.LineItbeFore= 0
.LineUnitAfter= 0
.mirrorIndents= false
.TextBoxTightWrap= WDtightnone
.collapsedByDefault= false
で終わりますselection.paragraphformat.tabstops.clareLall
ActiveDocument.DefaultTabStop= InchestoPoints(0.5)
終了SUB
サブタブ()
selection.paragraphformat.tabstops(InchestoPoints(3.5))Position= _
インチスポット(3.5)
selection.paragraphformat.tabstops(InchestoPoints(4.56))Position= _
インチオンプション(4.56)
selection.paragraphformat.tabstops(InchestoPoints(5.81)).位置= _
インチスポット(5.81)
selection.paragraphformat.tabstops(InchestoPoints(6.56)).位置= _
インチストラプポイント(6.56)
selection.paragraphformat.tabstops(InchestoPoints(9.81)).位置= _
インチスポット(9.81)
selection.paragraphformat.tabstops.add position:= inchestoPoints(9.81)、_
arning:= wdaligntabright、リーダー:= wdtableAderspaces
終了SUB
sub bold_underline(weekname as string)
selection.homekey WDStory
範囲
として薄暗いrngfoundselection.find
.execute(findText:= weekname、forward:= true、_
MatchWildCards:= false、wrap:= wdfindstop、matchcase:= true、matchWholeWord:= true)= true
rngfound= selection.bookmarks( "\line")を設定します.範囲
rngfound.font.underline= wdunderlinesingle
rngfound.font.bold= true
selection.collapse wdcollapseDend
ループ
で終わります終了SUB
sub bold_underline_all()
bold_underline( "monday")
bold_underline( "tuesday")
bold_underline( "wednesday")
bold_underline( "thursday")
bold_underline( "Friday")
BOLD_UNDERLINE( "土曜日")
bold_underline( "Sundy")
終了SUB
サブハイライトドノット_post()
selection.homekey WDStory
範囲
としての薄暗いselection.find
.execute(findText:= "投稿しない"、転送:= true、_
MatchWildCards:= false、wrap:= wdfindstop、matchcase:= true、matchWholeWord:= true)= true
RLINE= SELECTION.BOOKMARKS( "\line")を設定します.範囲
Rline.HighlightColorIndex= wdeellow
selection.collapse wdcollapseDend
ループ
で終わります終了SUB
SUB EDITPASTE()
Application.WindowState= WDWindowstatenormal
selection.pasteAndFormat(WDFormatPleaintext)
clear_tabs
を呼び出しますコールタブ
bold_underline_all
を呼び出しますHighlight_donot_post
を呼び出します終了SUB
そうですか.私が知っている限り、これは "Ctrl+ v「キーボードショートカットまたはメニューリボンの貼り付けを介して.貼り付けオプションを使用している場合は、これはトリガーされません.
応答9# ->にスキップ7 #embryそれは正しいです.私はそれを「Ctrl + V」で作業することができます.文書全体を強調表示し、「Backspace」を押してから "Ctrl + V"を打つ
それは完璧です.ただし、DELETEと "CTRL + v"を打つと "Call Tabs"マクロが機能しません.私はなぜわからないのですか?ありがとうございました.
あなたが持っている問題を明確にするように? 1つのマクロを使用してすべての機能を実行しますか?
そうであれば、今すぐそこに持っているコードはうまく機能しているはずです.
これはユーザー間のサポートフォーラムであり、私は仲間のユーザーです.