重金,重金悬赏一个关于wordVBA编程问题！！！！！请问选定w

问题： 我想打印在word文档中所有包含了某个人姓名的页 我粗略编了一个宏： Sub Macro1() ' ' Macro1 Macro ' 宏在 2004-10-14 由 bill 录制 Dim i As Integer Selection.Find.ClearFormatting With Selection.Find .Text = ＂婷 '要查找的姓名 .Replacement.Text = ＂＂ .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute ActiveDocument.PrintOut Range:=wdPrintCurrentPage '若找到姓名，则打印当前页 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name：=＂＂ '下翻一页 Loop End Sub

word VBA中可否同时选中相同颜色的字和word VBA剪贴板程序

问题太多，还一分没有。

我有个小程序，自动将WINDOWS剪切板的内容读入WORD文件。

你自己看看。

Public TempStrSub BeginCB()MsgBox ＂只能选择纯文字！！！＂， vbInformation， ＂开始＂With Selection.EndKey unit:=wdStory.TypeText Text:=Chr(13) & Chr(13).InsertDateTime DateTimeFormat:=＂yyyy-MM-dd＂, InsertAsField:=False, _DateLanguage:=wdSimplifiedChinese, CalendarType:=wdCalendarWestern, _InsertAsFullWidth:=False.MoveLeft unit:=wdCharacter, Count:=10, Extend:=wdExtend.Copy.EndKey unit:=wdStory.TypeText Text:=Chr(13)End WithTempStr = Format(Now(), ＂yyyy-mm-dd＂)Call FirOpenEnd SubFunction FirOpen()Application.OnTime Now + TimeValue(＂00:00:01＂), ＂CBText＂End FunctionSub CBText()Dim MyData As DataObjectSet MyData = New DataObjectMyData.GetFromClipboardgetcbtext = MyData.GetText(1)If getcbtext TempStr ThenSelection.TypeText Text:=getcbtext & Chr(13) & Chr(13)TempStr = getcbtextEnd IfCall FirOpenEnd Sub

word 中如何运用vba将文档中高亮的句段全部选中

Private Sub ListBox1_Click()Dim n%n = Me.ListBox1.ListIndex + 1Me.Controls(＂checkbox＂ & n).SetFocusIf Me.Controls(＂checkbox＂ & n) = False ThenMe.Controls(＂checkbox＂ & n) = TrueElseMe.Controls(＂checkbox＂ & n) = FalseEnd IfEnd Sub--------------------Private Sub UserForm_Initialize()Dim i%For i = 1 To 4Me.ListBox1.AddItem Me.Controls(＂checkbox＂ & i).CaptionNextEnd Sub----------------------

如何在wordVBA中选择与当前文本格式相同的文本

ShowVisualBasicEditor = TrueActiveDocument.Shapes.AddTextEffect(msoTextEffect26, _＂【解析】人们研制了许许多多计算机程序设计语言，其中二进制＂， ＂宋体＂， 36#, msoFalse, msoFalse, -190.95 _, 92.8).SelectShowVisualBasicEditor = True

WORD VBA： 查找字符并选择整个格子

这个应该完全满足要求了吧。

Sub TEST()Dim MyTable As Table, MyRng As CellFor Each MyTable In ThisDocument.TablesFor Each MyRng In MyTable.Range.CellsWith MyRng.Range.Find.Text = ＂RRDD-ST＂.ExecuteIf .Found ThenMyRng.Range.Style = ActiveDocument.Styles（＂引用＂）End IfEnd WithNext MyRngNext MyTableEnd Sub

转载请注明出处51数据库 » word vba选中