一、房地产评估报告？
我们公司的土地部门主要做这两份工作，第一是由土地估价师根据一个宗地的具体情况撰写出土地估价技术报告，而另一方面，则由一些能力稍次的员工进行土地估价技术报告的备案工作（俗称土地备案，类似于我们之前看到过的录入工作）。在土地估价实行电子信息统一管理之后，对于评估的每一块宗地，它的一些关键信息（比如项目名称，土地单价，面积，四至等）都需要通过备案系统实行电子报备，并且存储进入数据库中。下图显示了一个标准的土地估价技术报告的封面的样子。
在一份完整的土地估价技术报告的备案工作中，我们主要处理两张表格（还有一张表格是处理关于估价方法的选定和整个土地估价的计算过程的，由于程序设计方法其实是类似的，所以这里略去）—— 土地估价基本信息表和宗地信息表。
对于一个土地估价基本信息表来说，它主要囊括第一部分，也就是总述部分的内容，包括报告名称，估价报告编号，项目名称，估价目的，委托方，委托方电话，委托人邮编，委托人地址，公司资信等级等等。我们先来看看这些信息是如何通过代码提取出来的吧！
如上图所示，在土地估价基本信息表中（这里有一个错误，就是将for i=1 to 1后面那个1稍微改大一点），我们首先将当前的文档（ActiveDocument）切分为一段一段的（Paragraphs(i)），然后分别针对每一个段来进行处理。比如在处理公司资信等级的时候，我们先通过Left(str,5)函数进行字符串信息比对，然后再将信息填入到excel表格中。采用这种方式，我们可以很轻松地处理土地估价基本信息表上的所有数据。
对于宗地信息表来说，问题则要复杂地多。有些内容并不是一个独立的段（Paragraphs(i)）所能够处理的。有时候我们需要处理若干个“合并的段”，我的意思是，比如宗地信息中的“前提和假设条件”，“基础设施情况”和“土地权利状况”中，我们需要处理合并段的信息，所以我们需要采用下面的核心代码：
如下图所示，这里的我们需要从“1.前提条件”一直读到“（二）估价结果和估价报告的使用”。这个时候，由于我们在搜索的过程中，并不知道将来会被分成多少段，所以可以采用Do While --- Loop语句进行顺序搜索，并通过msg变量不断地搜集信息。在每次搜集完信息之后，记得加上vbCrLf回车提示符，这样在录入到宗地信息表之后，就会将所有的内容以分段的方式显示在表格上面。
最后，我们在处理宗地信息的时候，一定不要忘记将土地估价技术报告中的“土地估价结果一览表”作为使得代码可以变得更加简单的道具！调用文档中的表格可以用VBA中的Tables(1)[代表第一张表的信息]将文字都提取出来，并最终复制到宗地信息表中。
'宗地信息表
str = docapp.ActiveDocument.Tables(1).Cell(3, 3).Range.Text
Sheets(1).Cells(11, 3) = Left(str, Len(str) - 1)下面我还是给出这个系统的全部源代码吧，以飨读者！
Sub catch()
Dim myfile As String
Dim str, strk As String
Dim docapp As Word.Application
Dim num As Integer
myfile = ThisWorkbook.Path & "\" & "技术报告.doc"
Set docapp = New Word.Application
docapp.Documents.Open myfile
Dim i As Integer
'docapp.ActiveDocument.Paragraphs.Count
'土地估价基本信息表
For i = 1 To 1
str = docapp.ActiveDocument.Paragraphs(i).Range.Text
If str <> "" Then
If Left(str, 5) = "项目名称：" Then
Sheets(1).Cells(3, 3) = Right(str, Len(str) - 5)
Sheets(1).Cells(4, 3) = Right(str, Len(str) - 5)
End If
If Left(str, 11) = "土地估价技术报告编号：" Then
Sheets(1).Cells(3, 7) = Right(str, Len(str) - 11)
End If
If Left(str, 9) = "提交估价报告日期：" Then
Sheets(1).Cells(8, 9) = Right(str, Len(str) - 9)
End If
If Left(str, 5) = "委托单位：" Then
Sheets(1).Cells(5, 3) = Right(str, Len(str) - 5)
num = i
End If
If Left(str, 3) = "住所：" Then
Sheets(1).Cells(6, 3) = Right(str, Len(str) - 3)
End If
If Left(str, 5) = "资信等级：" Then
Sheets(1).Cells(6, 7) = Right(str, Len(str) - 5)
End If
If Left(str, 5) = "邮政编码：" Then
Sheets(1).Cells(5, 9) = Right(str, Len(str) - 5)
End If
If Left(str, 5) = "联系电话：" Then
Sheets(1).Cells(5, 7) = Right(str, Len(str) - 5)
End If
If Left(str, 6) = "四、估价目的" And i > num Then
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
Sheets(1).Cells(4, 7) = strk
End If
If Left(str, 6) = "六、估价期日" And i > num Then
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
Sheets(1).Cells(8, 7) = strk
End If
If Left(str, 6) = "七、估价日期" And i > num Then
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
Sheets(1).Cells(8, 3) = strk
End If
If Left(str, 6) = "联 系 人：" Then
Sheets(1).Cells(6, 9) = Right(str, Len(str) - 6)
End If
If Left(str, 13) = "估价期日的土地使用权性质：" Then
Sheets(1).Cells(13, 7) = Right(str, Len(str) - 13)
End If
If Left(str, 4) = "宗地数：" Then
Sheets(1).Cells(7, 3) = Right(str, Len(str) - 4)
End If
If Left(str, 3) = "座落：" Then
Sheets(1).Cells(14, 7) = Right(str, Len(str) - 3)
End If
If Left(str, 6) = "使用权类型：" Then
Sheets(1).Cells(13, 7) = Right(str, Len(str) - 6)
End If
If Left(str, 3) = "四至：" Then
Sheets(1).Cells(19, 7) = Right(str, Len(str) - 3)
End If
If Left(str, 5) = "土地级别：" Then
Sheets(1).Cells(14, 3) = Right(str, 3)
End If
If Left(str, 7) = "1、前提条件：" Then
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
Dim msg As String
Do While Left(strk, 15) <> "（二）估价结果和估价报告的使用"
msg = msg & strk & vbCrLf
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
i = i + 1
Loop
Sheets(1).Cells(16, 9) = msg
End If
If Left(str, 8) = "2、土地权利状况" Then
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
msg = ""
Do While Left(strk, 8) <> "3、土地利用状况"
msg = msg & strk & vbCrLf
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
i = i + 1
Loop
Sheets(1).Cells(18, 9) = msg
End If
If Left(str, 8) = "3、基础设施状况" Then
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
msg = ""
Do While Left(strk, 6) <> "4、环境条件"
msg = msg & strk & vbCrLf
strk = docapp.ActiveDocument.Paragraphs(i + 1).Range.Text
i = i + 1
Loop
Sheets(1).Cells(17, 9) = msg
End If
End If
Next i
'宗地信息表
str = docapp.ActiveDocument.Tables(1).Cell(3, 3).Range.Text
Sheets(1).Cells(11, 3) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 14).Range.Text
Sheets(1).Cells(11, 7) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 15).Range.Text
Sheets(1).Cells(11, 9) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 4).Range.Text
Sheets(1).Cells(12, 3) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 16).Range.Text
Sheets(1).Cells(12, 7) = Left(str, Len(str) - 1)
Sheets(1).Cells(12, 9) = Sheets(1).Cells(8, 7).Text
str = docapp.ActiveDocument.Tables(1).Cell(3, 1).Range.Text
Sheets(1).Cells(13, 3) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 13).Range.Text
Sheets(1).Cells(13, 9) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 5).Range.Text
Sheets(1).Cells(15, 3) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 6).Range.Text
Sheets(1).Cells(16, 4) = Left(str, Len(str) - 1)
Sheets(1).Cells(17, 4) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 7).Range.Text
Sheets(1).Cells(18, 4) = Left(str, Len(str) - 1)
Sheets(1).Cells(19, 4) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 2).Range.Text
Sheets(1).Cells(14, 5) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 8).Range.Text
Sheets(1).Cells(15, 7) = Left(str, Len(str) - 1)
Sheets(1).Cells(16, 7) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 9).Range.Text
Sheets(1).Cells(17, 7) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 10).Range.Text
Sheets(1).Cells(18, 7) = Left(str, Len(str) - 1)
str = docapp.ActiveDocument.Tables(1).Cell(3, 11).Range.Text
Sheets(1).Cells(15, 9) = Left(str, Len(str) - 1)
Sheets(1).Cells(7, 5) = Sheets(1).Cells(11, 7).Text
Sheets(1).Cells(7, 7) = Sheets(1).Cells(12, 7).Text
str = docapp.ActiveDocument.Tables(1).Cell(3, 17).Range.Text
Sheets(1).Cells(19, 9) = Left(str, Len(str) - 1)
Sheets(1).Cells(7, 9) = Val(Sheets(1).Cells(7, 7)) * 0.02
End Sub二、房地产咨询报告和评估报告的区别？
区别有:
1.概念不一样
咨询报告是可行性研究报告是从事一种经济活动（投资）之前，双方要从经济、技术、生产、供销直到社会各种环境、法律等各种因素进行具体调查、研究、分析；
评估报告则是对评估对象的一个简单的预测。
2.内容不同
评估报告一般指评估师发表的、由其所在评估机构出具的书面专业意见。
咨询报告主要是根据委托方提供资料进行分析得出的报告，供委托方参考。咨询方不对报告的实施结果负责。
三、房地产估价报告是什么？
房地产估价报告是指专业房地产估价人员，根据特定的估价目的，遵循公认的估价原则，按照严谨的估价程序，运用科学的估价方法，在对影响估价对象价值的因素进行综合分析的基础上，对估价对象在估价时点的价值进行估算和判定的总结性文本。
四、房地产估价报告评审标准意义？
估价目的就是评估房地产的动机，即评估所服务经济行为的具体类型的价值的真实。如是为了买卖、租赁还是为了抵押、典当等而评估房地产价值。
估价目的不同，所采用的评估方法及具体操作过程也有所不同，导致估价结果也出现相应的差异是对房产价值的评估，主意是避免评估错误而对银行或抵押人造成经济损失
五、房地产企业亏损原因分析报告？
重点分析推盘去化率、销售单价和成本变动，使管理者知晓亏损产生的原因。
房地产企业亏损原因分析，只要是企业财务部门来做，要按照会计语言加管理者风格进行分析。
一般来说，分析的基础是会计报表，说明分析期内公司开发、建设、销售、管理等主要计划和执行，之后着重对销售情况、费用开支、成本控制进行说明，分析出年度实际与预算偏差和偏差出现的原因，点出下年度工作努力的方向。
六、房地产文员转正述职报告怎么写？
尊敬的领导：
我是一名房地产文员，非常感谢公司给予我这个机会，让我能够在这个行业中发展自己的职业生涯。在这段时间里，我兢兢业业地完成了公司交给我的各项任务，并且在工作中不断学习和进步。
在工作中，我主要负责文书资料的整理、归档和管理，以及协助销售人员完成各种销售工作。我始终保持着高度的作热情和责任心，认真对待每一个工作任务，确保每一份文书资料都能够准确无误地完成。
同时，我也积极参与公司的培训和学习活动，不断提高自己的专业能力和素质。在公司的帮助下，我学习了很多关于房地产行业的知识和技能，也不断提高了自己的沟通能力和团队合作能力。
在未来的工作中，我将继续努力学习和进步不断提高自己的工作能力和水平，为公司的发展做出更大的贡献。
谢谢您的关注和支持！
此致
敬礼！
您的房地产文员
七、房地产评估报告应该怎么做？
1、明确评估基本事项
在受理评估业务时，由委托方提出评估目的，并将评估目的写在评估报告上。确定评估基准日以年、月、日表示。签订评估合同，它包括评估对象、评估目的、评估时点、评估收费、双方责任、评估报告等事项。
2、制定工作计划
3、实地查勘收集资料：实地查勘是房地产评估工作的一项重要的步骤，并要做记录。
4、测算被评估房地产价格：为求得一个公平合理的价格，以一种评估方法为主，同时以另一种或几种评估方法为辅，以求互相对照和检验修正。
5、综合分析确定评估成果
6、撰写评估报告。
八、房地产竣工验收报告标准？
某工程（楼号）现已完成全部设计要求的施工内容，经自检合格，资料齐全，现报请竣工验收。
九、房地产可研报告包括哪些内容？
房地产可研报告包括地理位置，建设规模，公建配套设施，销售规划，及毛利率等。
十、房地产市场分析报告怎么写？
房地产市场分析报告的撰写要建立在充分的调研了解的前提和基础上。主要包括取下几个方面的内容和事项：
一是要写明目前的房地产市场现状及特点等情况，二是房地产市场的存在问题及对策研判，三推动房地产市场发展的主要对策及建议，工作措施，长效机制。
