0

WordのcustomUiメニューにさまざまなボタンを追加しています。ボタンの1つは、サーバー上のライブラリフォルダーから1つ以上の画像をインポートしますが、ページに画像を追加するときに、各画像の間に段落を返すように設定できません。

With fd
    .InitialFileName = strFolder & "\*.png; *.jpg; *.gif"
    .ButtonName = "Insert"
    .AllowMultiSelect = True  ' Make multiple selection
    .Title = "Choose one or more pictures from the library"
    .InitialView = msoFileDialogViewPreview

'Sets the initial file filter to number 2.
'    .FilterIndex = 2

'Use the Show method to display the File Picker dialog box and return the user's action.
'If the user presses the action button...
If .Show = -1 Then
'Step through each string in the FileDialogSelectedItems collection.
    For Each vrtSelectedItem In .SelectedItems
'vrtSelectedItem is a String that contains the path of each selected item.
    Selection.InlineShapes.AddPicture FileName:= _
                  vrtSelectedItem _
                , LinkToFile:=False, SaveWithDocument:=True

    Next vrtSelectedItem

さまざまな場所で段落行[Selection.TypeParagraph]を追加しようとしましたが、すべての画像の後にリターンが追加されるだけです。どんな助けでもいただければ幸いです。

4

1 に答える 1

0

使用しようとしましたか：

Selection.InsertParagraphAfter
Selection.Move

おそらくあなたが探しているものはどれですか？Nextステートメントの前に行を追加します。

于 2013-03-08T10:38:00.777 に答える