Đang chuẩn bị liên kết để tải về tài liệu:
Office VBA Macros You Can Use Today phần 5

ngăn chặn các máy ghi vĩ mô bằng cách nhấn vào nút Stop trên thanh công cụ ghi âm Dừng, bằng cách nhấn vào nút REC trên thanh trạng thái, hoặc bằng cách sử dụng Tools | Macro | Dừng lệnh ghi. 7. Kiểm tra vĩ mô bằng cách lựa chọn một số đoạn văn | Word Procedures Wrd Sub fl InsertPictureWithCaption fl Variable declarationfl Dim FileTolnsert As Stringfl Dim rng As Word.Rangefl Dim frm As Word.Framefl FileTolnsert GetFileNamefl The user cancelledfl If Len FileToInsert 0 Then Exit Subfl Set rng Selection.Range.Paragraphs 1 .Rangefl When in a paragraph with textfl move to the top so that the framefl will be associated with this paragraphfl and insert an empty paragraphfl If Len rng.Paragraphs 1 .Range.Text 1 Thenfl rng.Collapse wdCollapseStartfl rng.Text vbCrfl End Iffl Put a frame around the paragraphfl Set frm rng.Frames.Add rng fl format the framefl FormatFrame frmfl Insert a picture into itfl rng.InlineShapes.AddPicture _fl FileName FileToInsert _fl LinkToFile LinkGraphic _fl SaveWithDocument SaveInDoc _fl Range rngfl If frm Is Nothing Thenfl AddaCaptionInaFrame rngfl Elsefl AddaCaptionInaFrame frm.Rangefl End Iffl Moves insertion point out of framefl Selection.MoveRight Unit wdCharacter Count 1fl Subfl fl End Function GetFileName As Stringfl Variable declarationfl Dim dlg As Word.Dialogfl Set dlg Dialogs wdDialogInsertPicture fl With dlgfl .Displayfl End Withfl GetFileName dlg.Namefl End Functionfl page 166 Office VBA Macros You Can Use Today Word Procedures End Sub f Function FormatFrame ByRef frm As Word.Frame f Set the bordersf frm.Borders.Enable Falsef If frm.Borders.Enable TrUe Thenf With frm.Bordersf .OutsideColorIndex wdBlackf .OutsideLineStyle wdLineStyleSinglef .OutsideLineWidth wdLineWidth050ptf End Withf End Iff Determine how the frame sizesf The frame can size a picture proportionally if an exact height OR width is set f and let the other dimension size automatically Use if the frame should be a certain heightf frm.HeightRule LimitPictureHeightf If LimitPictureHeight wdFrameAuto Thenf frm.HeightRule LimitPictureHeightf frm.Height InchesToPoints 3 f End Iff Use if the frame should be a certain widthfl frm.WidthRule LimitPictureWidthf If LimitPictureWidth wdFrameAuto Thenf frm.WidthRule .