Инструмент для слияния файлов MS Word
попробуйте обновить целевой кадр в методе viewDidLayoutSubviews
override func viewDidLayoutSubviews() {
imageScrollerSubView?.frame.size.height = ImageScrollerPlaceHolder.frame.size.height
imageScrollerSubView?.frame.size.width = ImageScrollerPlaceHolder.frame.size.width
}
3 ответа
Sub MergeAllDocuments(AllDocumentsPath as String, MasterDocumentPath as String)
Dim MasterDocument As Document
Set MasterDocument = Documents.Open(FileName:=MasterDocumentPath)
TheDocumentPath = Dir(AllDocumentsPath , vbNormal)
While TheDocumentPath <> ""
' Append the next doc to the end of the master doc. (The
' special "\EndOfDoc" bookmark is always available!)
MasterDocument.Bookmarks("\EndOfDoc").Range.InsertFile TheDocumentPath
TheDocumentPath = Dir
Wend
MasterDocument.Save
End Sub
MergeAllDocuments "C:\MySeparateDocuments\*.doc", "C:\MasterDocument.doc"
У меня есть один вопрос - почему делают Вы хотите, действительно делают такую вещь (с "огромным количеством" документов, по крайней мере)?
Я столкнулся с сообщением Graham Skan некоторое время назад. Это могло бы запустить Вас:
Sub InsertFiles()
Dim strFileName As String
Dim rng As Range
Dim Doc As Document
Const strPath = "C:\Documents and Settings\Graham Skan\My Documents\Allwork\" 'adjust as necessary '"
Set Doc = Documents.Add
strFileName = Dir$(strPath & "\*.doc")
Do
Set rng = Doc.Bookmarks("\EndOfDoc").Range
If rng.End > 0 Then 'section break not necessary before first document.'
rng.InsertBreak wdSectionBreakNextPage
rng.Collapse wdCollapseEnd
End If
rng.InsertFile strPath & "\" & strFileName
strFileName = Dir$()
Loop Until strFileName = ""
End Sub
Вы попытались использовать API Word COM? Можно автоматизировать много вещей - возможно, можно автоматизировать слияние.
Необходимо ли действительно сделать фактическое слияние, или Вы хотите присоединиться к файлам вместе. Эти две вещи очень отличаются.
Слияние используется, когда у Вас есть две версии исходного файла с (потенциально конфликтующий) изменения. Я не могу действительно видеть, как у Вас было бы "огромное количество" файлов, что необходимо было объединить все вместе. Это было бы абсолютным кошмаром конфликтов. Вы означаете объединять наборы их в отдельные файлы?
Присоединение состояло бы в том, когда Вы хотите связать их один за другим. Это было бы намного легче сделать. Это - довольно возможное использование API COM.